oklahoma cabins
oklahoma cabins
<% Dim Connect_String Dim Page_Size 'variable which holds the number of records to be viewed per page. Dim Current_Page 'variable which keeps track of which page is the current page. Dim MyConn Dim RS Dim SQL Dim Page_Count 'variable which stores the number of pages that can be viewed. Connect_String = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("testimonials.mdb") Page_Size = 10 'here we set the number of records viewed per page to 15. If Request("Page")="" Then Current_Page = 1 Else Current_Page = CInt(Request("Page")) 'the CInt function converts the value to an integer. End If Set MyConn = Server.CreateObject("ADODB.Connection") Set RS = Server.CreateObject("ADODB.RecordSet") MyConn.Open Connect_String RS.CursorLocation = adUseClient RS.PageSize = Page_Size SQL = "SELECT * FROM Testimonials WHERE Active=1" RS.Open SQL, MyConn, adOpenStatic, adLockReadOnly, adCmdText Page_Count = RS.PageCount If 1 > Current_Page Then Current_Page = 1 If Current_Page > Page_Count Then Current_Page = Page_Count RS.AbsolutePage = Current_Page Do While RS.AbsolutePage = Current_Page AND Not RS.EOF %> <%=RS("First_Name") %>
<%= RS("Comments") %>
<% RS.MoveNext Loop RS.Close Set RS = Nothing MyConn.Close Set MyConn = Nothing Response.Write "
" If Current_Page <> 1 Then Response.Write "Previous" & vbCrLf Response.Write " " & vbCrLf End If If Current_Page < Page_Count Then Response.Write "Next" & vbCrLf End IF %>

Click here if you would like to share your experience.

lake texoma state park Family Vacation package hot tubs