<% Dim oRs, qry, count, rstring, ors2, tname, relayid count = 1 Set oRs = Server.CreateObject("ADODB.Recordset") if Session("gcount") = "" then qry = "SELECT Count(id) FROM guest WHERE fshow='yes'" oRs.open qry, oConn Session("gcount") = oRs(0).value oRs.close end if if Request.Querystring("gskip") = "" or int(Request.Querystring("gskip")) < 0 then Session("gskip") = 0 else Session("gskip") = Request.Querystring("gskip") end if qry = "SELECT * FROM guest WHERE fshow='yes' ORDER BY id DESC LIMIT " & Session("gskip") & ",10" oRs.open qry, oConn do until oRs.EOF response.write(" <% end if next oRs.MoveNext loop Set oRs = nothing Set oConn = nothing %>
 
") for each x in oRs.fields if x.name = "fname" then if x.value <> "" then response.write(x.value & "

") tname = x.value else response.write("Anonymous

") tname = "Anonymous" end if end if if x.name = "femail" then if x.value <> "" then set ors2 = Server.CreateObject("ADODB.Recordset") qry = "SELECT uid from emailrelay WHERE email='" & lcase(x.value) & "'" ors2.open qry, oConn if NOT ors2.EOF then relayid = ors2.Fields(0).value response.write("Email Me

") else response.write(" 

") end if set ors2 = nothing else response.write(" 

") end if end if if x.name = "fmessage" then %> 		 

 
 
<% if Session("gskip") = 0 then response.write("") else response.write("") end if if (Session("gskip") + 10) >= Session("gcount") then response.write("") else response.write("") end if %>
  

< - Previous		 

Next - >