<%@ Language=VBScript%> <% dim rCount 'Kerala Hit counter '-------------------------------------------- SERVER.EXECUTE("keralaHitStats.asp") '-------------------------------------------- Set RsBeasches = Server.CreateObject("ADODB.Recordset") Openconnection MyConn 'strSQL = "SELECT * From Beaches Order By 1" strSQL = " SELECT type='Beaches',BchSlno, BchName, BchDetails, BchCatg='', BchDispImage From Beaches " strSQL = strSQL & " Union All " strSQL = strSQL & " Select type='Hotel', HtlSlno BchSlno, HtlHotelName BchName, HtlDetails BchDetails, " strSQL = strSQL & " HtlCatg BchCatg, HtlHotelImage BchDispImage From Hotels Where HtlCatg = 4 Order By 3" RsBeasches.Open strSQL,Myconn, 3,1 If Not RsBeasches.EOF Then PresentPage = trim(request("PresentPage")) If PresentPage = "" Then PresentPage=1 RsBeasches.PageSize = 4 RsBeasches.AbsolutePage = cInt(PresentPage) rCount = 0 End If %> <%=Title%>
 
<% do while Not RsBeasches.EOF and rCount< RsBeasches.PageSize %> <%RsBeasches.MoveNext %> <%rCount=rCount+1 %> <%Loop%>
"><%=RsBeasches.Fields("BchName")%>
" width="80" height="68"> <%=RsBeasches.Fields("BchDetails")%>
Page : <%for i=1 to RsBeasches.PageCount%> <%=i%> <%next%>