<%@ LANGUAGE="VBSCRIPT" %> <% Option Explicit %> <% Response.Expires = 0 %> <% '******************* Variables ************************* Dim objConn Dim strSql Dim objRS Dim qstrQSinfo Dim strThankyou Dim Pos Const Pagesize=50 Dim intPage Dim intTotal '******************* Session Variables ***************** qstrQSinfo = Request.QueryString("nfo") strThankyou = "" Set objConn = Server.CreateObject("ADODB.Connection") Set objRS = Server.CreateObject("ADODB.Recordset") if (qstrQSinfo = "tnx") then strThankyou = "Bedankt voor uw steun door het invullen van deze petitie !
" end if 'BB BEG - Modif 11/04/2005 objConn.CursorLocation = 3 'AdUseClient 'BB END - Modif 11/04/2005 objConn.Open Session("vubase_ConnectionString") 'BB BEG - Modif 11/04/2005 strSql = "SELECT Naam,Voornaam,Woonplaats FROM VU_PetitieSOSMUG WHERE Deleted = 0 ORDER BY DatumIngevuld DESC" 'BB END - Modif 11/04/2005 %> SOS-MUG : Overzicht ondertekenaars petitie

Ondertekenaars van de petitie SOS MUG

<% response.write strThankyou %>
<% objRS.PageSize = Pagesize objRS.CacheSize = PageSize objRS.Open strSql,objConn,1,3 ' Set the page intPage = Clng(Request.QueryString("Page")) If intPage > objRS.PageCount Then intPage = objRS.PageCount If intPage < 1 Then intPage = 1 objRS.AbsolutePage = intPage ' Get the total number of records intTotal = objRS.RecordCount %> <% For Pos = 1 to Pagesize %> <% objRS.MoveNext If objRS.EOF Then Exit For If Pos Mod 10 = 0 Then Response.Flush Next %> <% End If %>
Naam Woonplaats
<% Response.write(CStr(Pos + (Pagesize * (intPage-1)))) %><%= objRS("Naam")%> <%= objRS("Voornaam")%> <%= objRS("Woonplaats") %>
<% If intPage <> 1 Then %> < Vorige pagina <% Else %> < Vorige pagina <% End If %> <% Response.Write(" " & Cstr((intPage * Pagesize) - Pagesize + 1) & " - ") If intPage * Pagesize > intTotal Then Response.write(intTotal & " / " & intTotal & "") Else Response.write(Cstr(intPage * Pagesize) & " / " & intTotal & "") End if %> <% If intPage <> objRS.PageCount Then %> Volgende pagina > <% Else %> Volgende pagina > <% End If %>
<% If intTotal = 0 Then %>
 De petitie heeft geen ondertekenaars.
Welkom
Meldpunt
Petitie
Initiatieven
Persecho
Standpunten en nuttige links


 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

<% objRS.close objConn.Close Set objRS = nothing Set objConn = nothing %>