Lick the Spot
<font-family:bickley script>My Guestbook</font>
Name
E-mail
Comments
Welcome to my Guestbook
<% Dim NumberOfRecords NumberOfRecords = 10 'Session("PageNumber")= 1 Select Case Request.QueryString("Direction") Case "" Session("PageNumber")= 1 Case "Next" Session("PageNumber")= Session("PageNumber")+1 Case "Prev" Session("PageNumber")= Session("PageNumber")-1 End Select rStart = Session("PageNumber")*NumberOfRecords - NumberOfRecords rStop = rStart+NumberOfRecords Set conn = Server.CreateObject("ADODB.Connection") ConnString = "DRIVER={Microsoft Access Driver (*.mdb)};" & _ "DBQ=" & Server.MapPath("\aleksei\db\mygbdb2.mdb") & ";" conn.open (ConnString) sql1 = "select * from myguest order by RecID" If Request.Form("txtName")<> "" And Request.Form("txtComments")<> "" Then strDate = Now sql2 = "insert into myguest (UserName,Email,Dates,Comments)" &_ "values ('" & Request.Form("txtName") & "', '" & _ Request.Form("txtEmail") & "', '" & strDate & "', '" &_ Request.Form(Server.HTMLEncode("txtComments"))&"') " conn.Execute sql2 End If Set record = Server.CreateObject("ADODB.Recordset") record.open sql1, conn, 1 If Not record.eof Then record.MoveFirst frRec = record("RecID") record.MoveLast lsRec = record("RecID") rlPageNum =(lsRec-frRec+1)/NumberOfRecords PageNum =CInt(rlPageNum) If rlPageNum > CInt(rlPageNum)Then PageNum =CInt(rlPageNum)+ 1 End If i =0 Do While i <> rStop If record.bof Then Exit Do End If If i >= rStart Then Response.Write("
Name:
" & record("UserName")&"
") Response.Write("
E-mail:
" & record("Email")&"
") Response.Write("
Date:
" & record("Dates")&"
") Response.Write(Server.HTMLEncode(record("Comments"))&"
") End If record.MovePrevious i = i+1 Loop record.close conn.close%>
Page <%=Session("PageNumber")%> of <%=PageNum%>
<% If Session("PageNumber") >1 Then Response.Write("
Prev
") End If If Session("PageNumber") < PageNum Then Response.Write("
Next
") End If End If %>
