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

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