Website Feedback

<% PageNo = request("page") If PageNo="" then %>

Sign the Guestbook       ">Back to Referring Page

<% PageNo=1 ElseIf PageNo=1 then %>

Sign the Guestbook

<% Else %>

Sign the Guestbook      

<% End If set conn = server.createobject("adodb.connection") DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; " ' set the actual path to the guestbook below - this example ' assumes that the guestbook is in the web server root DSNtemp=dsntemp & "DBQ=" & server.mappath("guestbook.mdb") conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("/SARG/01100-Guestbook/guestbook.mdb") sqlstmt = "SELECT * from Guestbook ORDER BY PostDate DESC" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sqlstmt, conn, 3, 3 TotalRecs = rs.recordcount rs.Pagesize=10 TotalPages = cInt(rs.pagecount) rs.absolutepage=PageNo If PageNo = 1 then response.write "
There are " & TotalRecs & " entries in " & TotalPages & " pages" End If If rs.eof then response.write "


There are no entries in the guestbook." response.write "
Sign the Guestbook
" response.end End If x = 0 For x = 1 to 10 If rs.eof then Exit For Else When = formatDateTime(rs("PostDate"),1) & " " & formatDateTime(rs("PostDate"),4) Name = rs("Name") Name = Replace(Name,"''","'") City = rs("City") State = rs("State") Country = rs("Country") Email = rs("Email") URL = rs("URL") If IsEmpty(URL) or URL = "" then Link = "no URL given" Else Link = "" & URL & "" End If Comments = rs("Comments") Comments = replace(Comments, "''", "'") Start = rs("PostDate") %>
<%= When %>
<%= Comments %>
<% response.write(Name) %> <%= City %> <%= State %> <%= Country %>

<% rs.MoveNext End If Next response.write "" response.write "
" If PageNo > 1 then response.write "
" response.write "" response.write "" response.write "" Else response.write " " End If response.write "
" If NOT rs.eof then response.write "
" response.write "" response.write "" response.write "" Else response.write " " End If response.write "
" conn.close set conn = nothing %>