<%
Dim sSQL, ConnDb, rsUser, lRecAff, sBackPage, RegDate,UserRefNo,connStr
Const DB_NAME = "package.mdb"
Set ConnDb=Server.CreateObject("ADODB.Connection")
'connDb.Open "Driver={Microsoft Access Driver (*.mdb)};" & _
' "DBQ=" & Server.MapPath(DB_NAME) & ";" & _
' "UID=;PWD=;"
ConnDb.ConnectionString = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.Mappath(DB_NAME) & ";UID=;PWD=;"
ConnDb.Open
sSQL="SELECT * FROM packagedetails,pdetails where PackageID=PackID"
'sSQL1="SELECT * FROM pdetails"
Set rsUser = Server.CreateObject("ADODB.Recordset")
'Set rsUser1=Server.CreateObject("ADODB.Recordset")
rsUser.Open sSQL, ConnDb,3,3
'rsUser1.Open sSQL1, ConnDb,3,3
%>
<%
If Not rsUser.Eof Then
' Let's deal with our findings
' Get records count
'nRecCount = Recordset1.RecordCount
' Tell recordset to split records in the pages of our size
'Recordset1.PageSize = RECORDS_PER_PAGE
' How many pages we've got
'nPageCount = Recordset1.PageCount
' Make sure that the Page parameter passed to us is within the range
'If nPage < 1 Or nPage > nPageCount Then
' Ops - bad page number
' let's fix it
'nPage = 1
'End If
' Time to tell user what we've got so far
'Response.Write nRecCount & " records found matching .
"
' Response.Write nPageCount & " pages of results.
"
' Response.Write "Current page is " & nPage & "."
%>
<%
' Give user some navigation
' first page
' we link to this page with Page parameter = 1
'Response.Write "First Page"
' Response.Write " "
' Previous Page
' we link to this page with Page parameter = Current Page - 1
' Response.Write "Prev. Page"
' Response.Write " "
' Next Page
' we link to this page with Page parameter Current Page + 1
' Response.Write "Next Page"
' Response.Write " "
' Last Page
' we link to this page with Page parameter = nPageCount
'Response.Write "Last Page"
' Start Results
' Response.Write " Results:
" & String(20,"-")
' Position recordset to the page we want to see
'rsUser.AbsolutePage = nPage
' Let's output our records
' Loop through records until it's a next page or End of Records
%>
|
<%temp= " "
Do While Not (rsUser.Eof)
' All we do here is just show the records
%>
<%
' Move on to the next record
' rsUser.MoveNext
'n=n+1
%>
<%
' Loop
'else
' We did not find anything
' Response.Write "Nothing found. Try again.Back"
' response.redirect("default.htm")
' Be nice - close the recordset
'End If
'rsUser.Movefirst
%>
<% if rsUser.Fields.Item("PackageID")<>temp then%>
| <%=rsUser.Fields.Item("Packageheading")%> |
 "> "> |
|
| Itenerary :<%=rsUser.Fields.Item("itenary")%> |
| <%=rsUser.Fields.Item("Price1")%> |
| <%=rsUser.Fields.Item("Price2")%> |
<%=rsUser.Fields.Item("Smallheading")%>
| <%=rsUser.Fields.Item("Destinationcovered")%> |
<%
temp= rsUser.Fields.Item("PackageID")
end if
%>
| <%=rsUser.Fields.Item("Subhead")%> |
<%=rsUser.Fields.Item("Details")%> |
|
<%
' Move on to the next record
rsUser.MoveNext
n=n+1
%>
<%
Loop
else
' We did not find anything
Response.Write "Nothing found. Try again.Back"
' response.redirect("default.htm")
' Be nice - close the recordset
' Finish this page
' OutputPageFooter
End if
rsUser.Close
%>
<%
'************************************************************************************
'* End of Functions section
'************************************************************************************
%>
<%
'if nPageCount >1 then
' Response.Write "Next 10"
' Response.Write " "
'end if
%> |
Package includes:
- All accommodation will be in three & two star hotels, all meals (break fast, lunch, dinner), sight seeing assistance, and taxes.
- Transportation will be in a private car, includes driver bata, road permits etc
- A/c house boat will be provided only on request and the same will invite an additional cost of Rs 4000.00 ( 100 USD )
-
Childs below 5 years will be free, below 10 years with extra bed @ Rs 1000.00 (35 USD ) per night and extra person @ Rs 2000.00 ( 75 USD ) per night
- Rates are applicable for the period April 2004 to Nov 04 and Feb 05 to April 05.
- Peak season rates for December and January 04 will be 20% extra only on the package cost
- Boating at Periyar (Thekady wild life sanctuary) will be @ Rs 500.00 ( 15 USD ) per person
- All Payments has to reach us one month before the arrival date.
- Payments can be made at any of the city bank branches favoring “Southside holidays” a/c no 0002150468 or DD payable at Eranakulam
- Handling executives at Kochi, Mr Sreekanth.( Mob : 098461 59025 )
|
|
|
