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

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