<% Dim cn Dim rs dim RecCount dim LoopCount Dim frmQuery dim x x = 0 On error resume next frmQuery = Request.form("QueryName") LoopCount = 0 set cn = server.CreateObject("ADODB.Connection") set rs = server.CreateObject("ADODB.Recordset") cn.Open "irie" rs.CursorLocation = 3 if Request("SearchType") = "" Then rs.Open "SELECT qryHerefordNightLifeTheBarrels.* FROM qryHerefordNightLifeTheBarrels ORDER BY qryHerefordNightLifeTheBarrels.ExpiryDate" ,cn, 2 'adOpenDynamic ', adLockOptimistic rs.MoveLast rs.MoveFirst if Request("SoFar") = "" Then else if request("MoveDir") = "F" then do until LoopCount = Cint(Request("SoFar")) if not rs.EOF then rs.MoveNext end if loopCount = LoopCount + 1 loop elseif request("MoveDir") = "P" then If rs.EOF then do until LoopCount = (Cint(Request("SoFar")) - 5) Response.Write loopcount rs.MoveNext loopCount = LoopCount + 1 loop end if end if end if Response.Write "" elseif Request("SearchType") = "S" Then rs.Open "Select * from qryHerefordNightLifeTheBarrels WHERE Description Like '%" & Request("KeywordSearch") & "%'" ,cn, 2 'adOpenDynamic ', adLockOptimistic 'rs.Open "Select * from qryHFD where Keywords Like '%" & Request("KeywordSearch") & "%'", cn, 2 'adOpenDynamic ', adLockOptimistic If not rs.EOF then rs.MoveLast rs.MoveFirst if Request("SoFar") = "" Then else if request("MoveDir") = "F" then do until LoopCount = Cint(Request("SoFar")) if not rs.Eof then rs.MoveNext end if loopCount = LoopCount + 1 loop elseif request("MoveDir") = "P" then If rs.EOF then do until LoopCount = (Cint(Request("SoFar")) - 10) rs.MoveNext loopCount = LoopCount + 1 loop end If end if end if end if Response.Write "" end if RecCount = rs.RecordCount %>
|
|
||
|
|
||
|
|
||
|
Hereford's only regular social event for gay / lesbian / bi-sexual / trans-gender community. |
||
|
|
Every first Saturday of the month |
|
| Return to The Black Lion | ||
Website Designed & Maintained by Nick Mabe Trading as
Irie and
