Hereford.uk.com - WHATS ON

<% 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 'Response.Write "Select * from qryHFD" rs.Open "SELECT qryHerefordWhatsOnListings.* FROM qryHerefordWhatsOnListings WHERE (((qryHerefordWhatsOnListings.StartDate)>Now()-1) AND ((qryHerefordWhatsOnListings.ExpiryDate)>Now()))ORDER BY qryHerefordWhatsOnListings.StartDate" ,cn, 2 'adOpenDynamic ', adLockOptimistic 'rs.Open "Select * from qryHFD where Keywords Like '%" & Request("QueryName") & "%'" ,cn, 2 'adOpenDynamic ', adLockOptimistic 'Response.Write "Select * from qryHFD " 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) 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 qryHerefordWhatsOnListings 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 %>

<% Dim cn2 Dim rs2 dim Y Y = 0 On error resume next set cn2 = server.CreateObject("ADODB.Connection") set rs2 = server.CreateObject("ADODB.Recordset") cn2.Open "irie" rs2.CursorLocation = 3 ' rs2.Open "SELECT tblHerefordWhatsOnListings.Category, Count(tblHerefordWhatsOnListings.Category) AS CountOfCategory FROM tblHerefordWhatsOnListings GROUP BY tblHerefordWhatsOnListings.Category ORDER BY tblHerefordWhatsOnListings.Category" ,cn, 2 'adOpenDynamic ', adLockOptimistic rs2.Open "SELECT tblHerefordWhatsOnListings.Category, tblHerefordWhatsOnListings.CategoryID, Count(tblHerefordWhatsOnListings.Category) AS CountOfCategory FROM tblHerefordWhatsOnListings GROUP BY tblHerefordWhatsOnListings.Category, tblHerefordWhatsOnListings.CategoryID ORDER BY tblHerefordWhatsOnListings.Category" ,cn, 2 'adOpenDynamic ', adLockOptimistic rs2.MoveLast rs2.MoveFirst Do until rs2.eof Response.write ""%> <% rs2.MoveNext Y = Y + 1 loop cn2.close set cn2 = nothing %>

WHATS ON

" Response.write "" & rs2("Category") & " (" & rs2("CountOfCategory") & ")" & "

[Back to top]