<%@ Language=VBScript%> <% 'Kerala Hit counter '-------------------------------------------- SERVER.EXECUTE("keralaHitStats.asp") '-------------------------------------------- Openconnection MyConn Set Automobiles = Server.CreateObject ("ADODB.Recordset") '----- Create a query definition -------- sStr="" sStr = "Select ClaSlNo, ClaAdSubcategories, ClaAdHeadLine, ClaBriefDesc, ClaAdditionaInfo, ClaPostDate,ClaActiveYN From ClassifiedAds where ClaAdSubcategories='Educational' and ClaActiveYN='Y'" Automobiles.Open sStr, MyConn, adOpenStatic , adLockOptimistic If Not Automobiles.EOF Then PresentPage = trim(request("PresentPage")) If PresentPage = "" Then PresentPage=1 Automobiles.PageSize = 4 Automobiles.AbsolutePage = cInt(PresentPage) rCount=0 End If %>

<%if not Automobiles.eof then%> <%Do While Not Automobiles.eof and rCount< Automobiles.PageSize %> <%Automobiles.Movenext%> <%rCount=rCount+1 %> <%Loop%> <%End If%> &Categories=<%=Automobiles.Fields("ClaAdSubcategories")%>"> <%=Automobiles.Fields("ClaAdSubcategories")%> <%=left(Automobiles.Fields("ClaBriefDesc"),200)& "..."%> &Name=<%=Automobiles.Fields("ClaAdSubcategories")%>">More >>