<% @language="VBScript" %> <% Option Explicit Response.Buffer = true Response.Expires = 0 Dim strQ, strConn, objRS Dim loginresult, notice, antalRS, strQbeskeder, i, StartAt, Hits, Pages Set objRS = Server.CreateObject("ADODB.Recordset") Hits = 10 ' <<< Vælg antallet af beskeder pr. side >>> strQ = "SELECT * FROM Board " & "ORDER BY BeskedNr DESC" strConn = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../db/db.mdb") objRS.Open strQ, strConn Set antalRS = Server.CreateObject("ADODB.Recordset") strQbeskeder = "SELECT COUNT(BeskedNr) AS Antal FROM Board" antalRS.Open strQbeskeder, strConn %> CT's Board

[Skriv besked]
<% response.write "

Der er på nuværende tidspunkt " & antalRS("Antal") & " besked" if not antalRS("Antal") = 1 then response.write "er" end if response.write " i gæstebogen.
" response.write "" & session("notice") & "
" session("notice") = "" if request("StartAt") = "" then StartAt = 0 else StartAt = request("StartAt") end if For i = 1 To StartAt If Not objRS.EOF then objRS.MoveNext end if Next response.write "
" response.write "Viser nu besked " & StartAt+1 & " til " if StartAt+Hits < antalRS("Antal")-1 then response.write StartAt+Hits & "

" else response.write antalRS("Antal") & "

" end if response.write "
" If objRS.EOF then response.write "
Der er ikke flere beskeder

" end if Sub ShowPages(bType) response.write "
Side(r): " if StartAt > 0 then response.write "[<<]" end if if antalRS("Antal") =< Hits then response.write " 1 " else Pages = antalRS("antal")/Hits if not Len(FormatNumber(Pages,0)) = Len(Pages) then Pages = Pages + 1 end if For i = 1 To Pages if (StartAt/Hits)+1 = i then response.write " " & i else response.write " " & i & " " end if Next end if if StartAt+Hits < antalRS("Antal") then response.write " [>>]
" end if End Sub ShowPages(1) Response.write "
" For i = 1 To Hits If not objRS.EOF then Response.Write "" Response.write "" 'Response.Write "" Response.Write "" '"" if Len(objRS("homepage")) then Response.write "" end if Response.Write "" Response.Write "" objRS.MoveNext end if Next Response.Write "

Dato: " & objRS("Dato") & "
Fra:" & objRS("Forfatter") & "
Fra:" & objRS("Forfatter") & "
(" & objRS("City") & ", " & objRS("Country") & ")
Hjemmeside:" & objRS("homepage") & "
Emne:" & objRS("BeskedTitel") & "

Besked:
" & Replace(objRS("Besked"), vbCrLf, "
") & "

" ShowPages(1) antalRS.Close Set antalRS = Nothing objRS.Close Set objRS = Nothing %>

©Thomas van veen