<%@ LANGUAGE="VBScript" %> <% s = Request("s") e = Request("e") Set Connection = Server.CreateObject("ADODB.Connection") Connection.Open Application("OrderStatus1_ConnectionString") SQLStmt = "SELECT * FROM [guest] " SQLStmt = SQLStmt & "ORDER BY guestno DESC; " Set RS = Connection.Execute(SQLStmt) allrecord = RS("guestno") If s = 0 and e = 0 Then s = allrecord - 10 e = allrecord End If SQLStmt = "SELECT * FROM [guest] " SQLStmt = SQLStmt & "WHERE guestno<=" & e & " and guestno>=" & s & " " SQLStmt = SQLStmt & "ORDER BY guestno DESC; " Set RS = Connection.Execute(SQLStmt) crend = RS("guestno") crstart = RS("guestno") %> Eastern Jewellers - Guestbook
     
 
Name Pendants
Name Necklaces
Name Bands
Name Earrings
Name Tie Pins
Name Rings
Cartouches
Puzzle Rings
Std Puzzle Rings
Princess Collection
Children Collection
Bedouin Pendants
Bedouin Bangles
Stone Sets  
Stone Rings
Chains

 

 <% CurrentRecord = 0 Do While CheckRS(RS)%> <% RS.MoveNext CurrentRecord = CurrentRecord + 1 crstart = crstart - 1 Loop tope = allrecord-9 nexts = crstart - 9 If nexts < 1 then nexts = 1 End If nexte = crstart If nexte < 1 then nexte = 1 End If prevs = crend + 1 If prevs > allrecord then prevs = allrecord End If preve = crend + 10 If preve > allrecord then preve = allrecord End If %>
Home Company Info E-mail Us Guestbook Ordering Info
Thank you for visiting. We would love it if you would Add your Comments to our Guestbook!
<% =RS("comment") %>
<% =RS("name") %> <% =RS("email") %>
<% =RS("city") %> - <% =RS("day") %>, <% =RS("ldate") %>
<% End If %> <% End If %> <% End If %> <% End If %>
<% If crend < allrecord Then %> Top <% Else %> Top <% If crend > 10 Then %> Next <% Else %> Next <% If crend < allrecord Then %> Previous <% Else %> Previous <% If crstart > 0 Then %> Bottom <% Else %> Bottom
<% Connection.Close %>