<%@ Language=VBScript%>
<%
'Response.Redirect("uc.asp")
dim rCount
Set rsPackTours = Server.CreateObject("ADODB.Recordset")
Openconnection MyConn
'Kerala Hit counter
'--------------------------------------------
SERVER.EXECUTE("keralaHitStats.asp")
'--------------------------------------------
strSQL = "SELECT * From PackageTours Where PktToursName= 'Adventure Tour' Order By 2"
rsPackTours.Open strSQL,Myconn, adOpenStatic , adLockOptimistic
If Not rsPackTours.EOF Then
PresentPage = trim(request("PresentPage"))
If PresentPage = "" Then PresentPage=1
rsPackTours.PageSize = 4
rsPackTours.AbsolutePage = cInt(PresentPage)
rCount = 0
End If
%>
<%=Title%>
<% do while Not rsPackTours.EOF and rCount< rsPackTours.PageSize %>
