<%@language=vbscript%> <% option explicit %> <% Dim objRS, objConn, query set objConn = Server.CreateObject( "ADODB.Connection") set objRS = Server.CreateObject( "ADODB.Recordset") objConn.open "guestbook" 'view is het aantal records dat per pagina wordt weergegeven 'alleen dit mag aangepast worden op deze pagina 'de rest van de code is op eigen riesiekoow Dim view, blader view = 10 'dit getal MAG je aanpassen, kies iets tussen de 2 en 5 ongeveer. blader = view 'hulp variabele om normaal terug te bladeren bij een resultaat kleiner dan de view size %>

terug write a message <% Dim id_array(), aantal, j Dim records, lastRecord, id, pos, i i = 0 'vul array met id's van alle records query = "SELECT * FROM guestbook WHERE actief = '1' ORDER BY id DESC" objRS.open query, objConn, 3, 3 aantal = objRS.RecordCount Redim id_array(aantal - 1) If objRS.RecordCount > 0 Then objRS.MoveFirst DO WHILE NOT objRS.EOF id_array(j) = objRS("id") j = j + 1 objRS.MoveNext LOOP Else 'bij geen records toch array vullen Redim id_array(1) id_array(0) = 0 End If objRS.Close 'converteer string naar real 'pos = CSng(request.QueryString("pos")) pos = request.QueryString("pos") If pos = "" Then pos = 0 pos = CSng(pos) 'als de wijzer naar de positie in de string groter is dan het bereik, wijzer 1 kleiner maken If pos > aantal Then pos = aantal-1 End If 'negatieve cijfer kunnen niet, en mag dus niet! If pos < 0 Then pos = 0 End If If pos = "" Then 'bij het openen van de pagina zonder querystring query = "SELECT * FROM guestbook WHERE actief = '1' ORDER BY id DESC" objRS.open query, objConn, 3, 3 objRS.MoveFirst lastRecord = objRS("id") records = objRS.RecordCount Else 'bij het openen van de pagina met een querystring query = "SELECT * FROM guestbook WHERE actief = '1' and id <= " & id_array(pos) & " ORDER BY id DESC" objRS.open query, objConn, 3, 3 If objRS.RecordCount > 0 Then objRS.MoveFirst lastRecord = objRS("id") records = objRS.RecordCount End If End If 'als de resultaten minder zijn dan de view, view gelijkmaken aan resultaten If (records < view) Then view = records End If 'loop view aantal records af For i=1 to view %>        <%=objRS("naam")%> @ <%=objRS("datum")%> My name:   <%If objRS("email") <> "" Then%>"><%=objRS("naam")%><%Else%><%=objRS("naam")%><%End If%> website:   <%If objRS("hpage") <> "" Then%>" target="_blank"><%=objRS("hpage")%><%Else%>no homepage<%End If%> location:   <%=objRS("plaats")%> message:   <% Dim bericht bericht = objRS("bericht") bericht = replace(bericht,Chr(13)&Chr(10)," ") 'eventueel hier omzetten met smileys %> <%=bericht%> <% objRS.MoveNext NEXT %>        viewing message <%=pos+1%> to <%=pos+view%> <% If pos > 0 Then %> <% End If %> prev <%=blader%>   <% If pos+view < aantal Then %> <% End If %> next <%=blader%> <%=aantal%> messages in total <% If pos > 0 Then %> newer messages <% End If %> <% If pos+view < aantal Then %> older messages <% End If %>

<% objRS.Close Set objRS = Nothing objConn.Close Set objConn = Nothing %>