Hereford.uk.com - Classifieds

<% 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 qryInternetClassifieds.*, qryInternetClassifieds.ExpiryDate FROM qryInternetClassifieds WHERE (((qryInternetClassifieds.ExpiryDate)>Now())) And CategoryID Like '%" & Request("CategoryID") & "%'" ,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 qryInternetClassifieds where Description 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 rs2 dim Y Y = 0 On error resume next set rs2 = server.CreateObject("ADODB.Recordset") rs2.CursorLocation = 3 %> <% rs2.Open "SELECT qryInternetClassifieds.Category, qryInternetClassifieds.CategoryID, Count(qryInternetClassifieds.Category) AS CountOfCategory FROM qryInternetClassifieds GROUP BY qryInternetClassifieds.Category, qryInternetClassifieds.CategoryID ORDER BY qryInternetClassifieds.Category" ,cn, 2 'adOpenDynamic ', adLockOptimistic rs2.MoveLast rs2.MoveFirst Do until rs2.eof Response.write ""%> <% rs2.MoveNext Y = Y + 1 loop 'cn.close 'set cn = nothing %>

CLASSIFIEDS

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

[Back to top]

Fill in the form below to add your business - Please keep the description to no more than 100 words

Your Name:
Item Name
Description:
Price:
Email:

CLASSIFIEDS

To advertise here
contact Us