<%@ Language=VBScript %> <% set con = Server.CreateObject("ADODB.Connection") set rs = Server.CreateObject("ADODB.Recordset") set rs1=server.CreateObject("ADODB.Recordset") Dim arrReg() dim sql dim sql1 dim querystring dim searchres con.Open Application("connectionString") Dim i if Request.Form("Go") = "Go" then if Request.Form("cboregion") <> "Region" then sql="select * from Region_Master where Region_code = '" & Request.Form("cboregion") + "'" rs.Open sql,con if rs.EOF <> true then session("regionses") = Request.Form("cboregion") session("activityses") = Request.Form("cboActivity") session("seasonses") = Request.Form("seasone") session("durationses") = Request.Form("duration") Response.Redirect(rs.Fields("aspfilepath")) end if rs.Close else if Request.Form("cboActivity") <> "Activity" then sql="select * from Activity_Master where Activity_name = '" & Request.Form("cboActivity") + "'" rs.Open sql,con if rs.EOF <> true then session("regionses") = Request.Form("cboregion") session("activityses") = Request.Form("cboActivity") session("seasonses") = Request.Form("seasone") session("durationses") = Request.Form("duration") Response.Redirect("search-result.asp") end if rs.Close else session("regionses") = Request.Form("cboregion") session("activityses") = Request.Form("cboActivity") session("seasonses") = Request.Form("seasone") session("durationses") = Request.Form("duration") Response.Redirect("search-result.asp") end if end if end if if Request("page") = 1 then querystring = "select * from Trip_Master where Region_code = '"& "BHU" +"'" searchres = "Bhutan" else if Session("regionses")<>"Region" or session("activityses")<>"Activity" or session("seasonses")<>"Season" or session("durationses")<> "Duration" then call Querybuild() else querystring = "select * from Trip_Master where Region_code = '"& "BHU" +"'" searchres = "Bhutan" end if end if Public Function Querybuild() if session("regionses") <> "Region" then querystring = "select * from Trip_Master where " 'Response.Write(Request.Form("cboregion")) if querystring = "select * from Trip_Master where " then querystring = querystring & "Region_code = '" & session("regionses") + "'" rs.Open "select Region_code,Region_name from region_master where Region_code = '" & session("regionses") + "'",con if rs.EOF <> true then searchres = searchres + " " + rs.Fields("Region_name") end if rs.Close else querystring = querystring & " and Region_code = '" & session("regionses") + "'" rs.Open "select Region_code,Region_name from region_master where Region_code = '" & session("regionses") + "'",con if rs.EOF <> true then searchres = searchres + " " + rs.Fields("Region_name") end if rs.Close end if end if if session("activityses") <> "Activity" then querystring = "select * from Trip_Master where " 'Response.Write(Request.Form("cboregion")) if querystring = "select * from Trip_Master where " then querystring = querystring & "Activity_name = '" & session("activityses") + "'" searchres = searchres + " " + session("activityses") else querystring = querystring & " and Activity_name = '" & session("activityses") + "'" searchres = searchres + " " + session("activityses") end if end if if session("seasonses") <> "Season" then querystring = "select * from Trip_Master where " '(bestseason1from<=2 and bestseason1to>=2) or (bestseason2from<=2 and bestseason2to>=2) or (bestseason3from<=2 and bestseason3to>=2) if querystring = "select * from Trip_Master where " then if cstr(session("seasonses")) = "1" then querystring = querystring & " (bestseason1from<=1 and bestseason1to>=1) or (bestseason2from<=1 and bestseason2to>=1) or (bestseason3from<=1 and bestseason3to>=1)or (bestseason1from<=2 and bestseason1to>=2) or (bestseason2from<=2 and bestseason2to>=2) or (bestseason3from<=2 and bestseason3to>=2)" searchres = searchres + " " + "Jan - Feb" else if cstr(session("seasonses")) = "2" then querystring = querystring & " (bestseason1from<=2 and bestseason1to>=2) or (bestseason2from<=2 and bestseason2to>=2) or (bestseason3from<=2 and bestseason3to>=2)or (bestseason1from<=3 and bestseason1to>=3) or (bestseason2from<=3 and bestseason2to>=3) or (bestseason3from<=3 and bestseason3to>=3)" searchres = searchres + " " + "Feb - Mar" else if cstr(session("seasonses")) = "3" then querystring = querystring & " (bestseason1from<=3 and bestseason1to>=3) or (bestseason2from<=3 and bestseason2to>=3) or (bestseason3from<=3 and bestseason3to>=3)or (bestseason1from<=4 and bestseason1to>=4) or (bestseason2from<=4 and bestseason2to>=3) or (bestseason3from<=4 and bestseason3to>=4)" searchres = searchres + " " + "Mar - April" else if cstr(session("seasonses")) = "4" then querystring = querystring & " (bestseason1from<=4 and bestseason1to>=4) or (bestseason2from<=4 and bestseason2to>=4) or (bestseason3from<=4 and bestseason3to>=4)or (bestseason1from<=5 and bestseason1to>=5) or (bestseason2from<=5 and bestseason2to>=5) or (bestseason3from<=5 and bestseason3to>=5)" searchres = searchres + " " + "April - May" else if cstr(session("seasonses")) = "5" then querystring = querystring & " (bestseason1from<=5 and bestseason1to>=5) or (bestseason2from<=5 and bestseason2to>=5) or (bestseason3from<=5 and bestseason3to>=5)or (bestseason1from<=6 and bestseason1to>=6) or (bestseason2from<=6 and bestseason2to>=6) or (bestseason3from<=6 and bestseason3to>=6)" searchres = searchres + " " + "May - June" else if cstr(session("seasonses")) = "6" then querystring = querystring & " (bestseason1from<=6 and bestseason1to>=6) or (bestseason2from<=6 and bestseason2to>=6) or (bestseason3from<=6 and bestseason3to>=6)or (bestseason1from<=7 and bestseason1to>=7) or (bestseason2from<=7 and bestseason2to>=7) or (bestseason3from<=7 and bestseason3to>=7)" searchres = searchres + " " + "June - July" else if cstr(session("seasonses")) = "7" then querystring = querystring & " (bestseason1from<=7 and bestseason1to>=7) or (bestseason2from<=7 and bestseason2to>=7) or (bestseason3from<=7 and bestseason3to>=7)or (bestseason1from<=8 and bestseason1to>=8) or (bestseason2from<=8 and bestseason2to>=8) or (bestseason3from<=8 and bestseason3to>=8)" searchres = searchres + " " + "July - Aug" else if cstr(session("seasonses")) = "8" then querystring = querystring & " (bestseason1from<=8 and bestseason1to>=8) or (bestseason2from<=8 and bestseason2to>=8) or (bestseason3from<=8 and bestseason3to>=8)or (bestseason1from<=9 and bestseason1to>=9) or (bestseason2from<=9 and bestseason2to>=9) or (bestseason3from<=9 and bestseason3to>=9)" searchres = searchres + " " + "Aug - Sept" else if cstr(session("seasonses")) = "9" then querystring = querystring & " (bestseason1from<=9 and bestseason1to>=9) or (bestseason2from<=9 and bestseason2to>=9) or (bestseason3from<=9 and bestseason3to>=9)or (bestseason1from<=10 and bestseason1to>=10) or (bestseason2from<=10 and bestseason2to>=10) or (bestseason3from<=10 and bestseason3to>=10)" searchres = searchres + " " + "Sept - Oct" else if cstr(session("seasonses")) = "10" then querystring = querystring & " (bestseason1from<=10 and bestseason1to>=10) or (bestseason2from<=10 and bestseason2to>=10) or (bestseason3from<=10 and bestseason3to>=10)or (bestseason1from<=11 and bestseason1to>=11) or (bestseason2from<=11 and bestseason2to>=11) or (bestseason3from<=11 and bestseason3to>=11)" searchres = searchres + " " + "Oct - Nov" else if cstr(session("seasonses")) = "11" then querystring = querystring & " (bestseason1from<=11 and bestseason1to>=11) or (bestseason2from<=2 and bestseason2to>=11) or (bestseason3from<=11 and bestseason3to>=11)or (bestseason1from<=12 and bestseason1to>=12) or (bestseason2from<=12 and bestseason2to>=12) or (bestseason3from<=12 and bestseason3to>=12)" searchres = searchres + " " + "Nov - Dec" else if cstr(session("seasonses")) = "12" then querystring = querystring & " (bestseason1from<=11 and bestseason1to>=11) or (bestseason2from<=2 and bestseason2to>=11) or (bestseason3from<=11 and bestseason3to>=11)or (bestseason1from<=12 and bestseason1to>=12) or (bestseason2from<=12 and bestseason2to>=12) or (bestseason3from<=12 and bestseason3to>=12)" searchres = searchres + " " + "Dec - Nov" end if end if end if end if end if end if end if end if end if end if end if end if else if cstr(session("seasonses")) = "1" then querystring = querystring & " and ((bestseason1from<=1 and bestseason1to>=1) or (bestseason2from<=1 and bestseason2to>=1) or (bestseason3from<=1 and bestseason3to>=1)or (bestseason1from<=2 and bestseason1to>=2) or (bestseason2from<=2 and bestseason2to>=2) or (bestseason3from<=2 and bestseason3to>=2))" searchres = searchres + " " + "Jan - Feb" else if cstr(session("seasonses")) = "2" then querystring = querystring & " and ((bestseason1from<=2 and bestseason1to>=2) or (bestseason2from<=2 and bestseason2to>=2) or (bestseason3from<=2 and bestseason3to>=2)or (bestseason1from<=3 and bestseason1to>=3) or (bestseason2from<=3 and bestseason2to>=3) or (bestseason3from<=3 and bestseason3to>=3))" searchres = searchres + " " + "Feb - Mar" else if cstr(session("seasonses")) = "3" then querystring = querystring & " and ((bestseason1from<=3 and bestseason1to>=3) or (bestseason2from<=3 and bestseason2to>=3) or (bestseason3from<=3 and bestseason3to>=3)or (bestseason1from<=4 and bestseason1to>=4) or (bestseason2from<=4 and bestseason2to>=3) or (bestseason3from<=4 and bestseason3to>=4))" searchres = searchres + " " + "Mar - April" else if cstr(session("seasonses")) = "4" then querystring = querystring & " and ((bestseason1from<=4 and bestseason1to>=4) or (bestseason2from<=4 and bestseason2to>=4) or (bestseason3from<=4 and bestseason3to>=4)or (bestseason1from<=5 and bestseason1to>=5) or (bestseason2from<=5 and bestseason2to>=5) or (bestseason3from<=5 and bestseason3to>=5))" searchres = searchres + " " + "April - May" else if cstr(session("seasonses")) = "5" then querystring = querystring & " and ((bestseason1from<=5 and bestseason1to>=5) or (bestseason2from<=5 and bestseason2to>=5) or (bestseason3from<=5 and bestseason3to>=5)or (bestseason1from<=6 and bestseason1to>=6) or (bestseason2from<=6 and bestseason2to>=6) or (bestseason3from<=6 and bestseason3to>=6))" searchres = searchres + " " + "May - June" else if cstr(session("seasonses")) = "6" then querystring = querystring & " and ((bestseason1from<=6 and bestseason1to>=6) or (bestseason2from<=6 and bestseason2to>=6) or (bestseason3from<=6 and bestseason3to>=6)or (bestseason1from<=7 and bestseason1to>=7) or (bestseason2from<=7 and bestseason2to>=7) or (bestseason3from<=7 and bestseason3to>=7))" searchres = searchres + " " + "June - July" else if cstr(session("seasonses")) = "7" then querystring = querystring & " and ((bestseason1from<=7 and bestseason1to>=7) or (bestseason2from<=7 and bestseason2to>=7) or (bestseason3from<=7 and bestseason3to>=7)or (bestseason1from<=8 and bestseason1to>=8) or (bestseason2from<=8 and bestseason2to>=8) or (bestseason3from<=8 and bestseason3to>=8))" searchres = searchres + " " + "July - Aug" else if cstr(session("seasonses")) = "8" then querystring = querystring & " and ((bestseason1from<=8 and bestseason1to>=8) or (bestseason2from<=8 and bestseason2to>=8) or (bestseason3from<=8 and bestseason3to>=8)or (bestseason1from<=9 and bestseason1to>=9) or (bestseason2from<=9 and bestseason2to>=9) or (bestseason3from<=9 and bestseason3to>=9))" searchres = searchres + " " + "Aug - Sept" else if cstr(session("seasonses")) = "9" then querystring = querystring & " and ((bestseason1from<=9 and bestseason1to>=9) or (bestseason2from<=9 and bestseason2to>=9) or (bestseason3from<=9 and bestseason3to>=9)or (bestseason1from<=10 and bestseason1to>=10) or (bestseason2from<=10 and bestseason2to>=10) or (bestseason3from<=10 and bestseason3to>=10))" searchres = searchres + " " + "Sept - Oct" else if cstr(session("seasonses")) = "10" then querystring = querystring & " and ((bestseason1from<=10 and bestseason1to>=10) or (bestseason2from<=10 and bestseason2to>=10) or (bestseason3from<=10 and bestseason3to>=10)or (bestseason1from<=11 and bestseason1to>=11) or (bestseason2from<=11 and bestseason2to>=11) or (bestseason3from<=11 and bestseason3to>=11))" searchres = searchres + " " + "Oct - Nov" else if cstr(session("seasonses")) = "11" then querystring = querystring & " and ((bestseason1from<=11 and bestseason1to>=11) or (bestseason2from<=2 and bestseason2to>=11) or (bestseason3from<=11 and bestseason3to>=11)or (bestseason1from<=12 and bestseason1to>=12) or (bestseason2from<=12 and bestseason2to>=12) or (bestseason3from<=12 and bestseason3to>=12))" searchres = searchres + " " + "Nov - Dec" else if cstr(session("seasonses")) = "12" then querystring = querystring & " and ((bestseason1from<=11 and bestseason1to>=11) or (bestseason2from<=2 and bestseason2to>=11) or (bestseason3from<=11 and bestseason3to>=11)or (bestseason1from<=12 and bestseason1to>=12) or (bestseason2from<=12 and bestseason2to>=12) or (bestseason3from<=12 and bestseason3to>=12))" searchres = searchres + " " + "Dec - Nov" end if end if end if end if end if end if end if end if end if end if end if end if end if end if if session("durationses") <> "Duration" then querystring = "select * from Trip_Master where " if session("durationses") = "1" then if querystring = "select * from Trip_Master where " then querystring = querystring & " Duration_d <= 7" else querystring = querystring & " and Duration_d <= 7" end if end if if session("durationses") = "2" then if querystring = "select * from Trip_Master where " then querystring = querystring & " Duration_d >= 6 and Duration_d <= 10" else querystring = querystring & " and Duration_d >= 6 and Duration_d <= 10" end if end if if session("durationses") = "3" then if querystring = "select * from Trip_Master where " then querystring = querystring & " Duration_d >= 8 and Duration_d <= 12" else querystring = querystring & " and Duration_d >= 8 and Duration_d <= 12" end if end if if session("durationses") = "4" then if querystring = "select * from Trip_Master where " then querystring = querystring & " Duration_d >= 10 and Duration_d <= 14" else querystring = querystring & " and Duration_d >= 10 and Duration_d <= 14" end if end if if session("durationses") = "5" then if querystring = "select * from Trip_Master where " then querystring = querystring & " Duration_d >= 12 and Duration_d <= 16" else querystring = querystring & " and Duration_d >= 12 and Duration_d <= 16" end if end if if session("durationses") = "6" then if querystring = "select * from Trip_Master where " then querystring = querystring & " Duration_d >= 14 and Duration_d <= 18" else querystring = querystring & " and Duration_d >= 14 and Duration_d <= 18" end if end if if session("durationses") = "7" then if querystring = "select * from Trip_Master where " then querystring = querystring & " Duration_d >= 16 and Duration_d <= 20" else querystring = querystring & " and Duration_d >= 16 and Duration_d <= 20" end if end if if session("durationses") = "8" then if querystring = "select * from Trip_Master where " then querystring = querystring & " Duration_d >= 18" else querystring = querystring & " and Duration_d >= 18" end if end if end if end function Function fncGetDayOrdinal( _ byVal intDay _ ) ' Accepts a day of the month as an integer and returns the ' appropriate suffix Dim strOrd Select Case intDay Case 1, 21, 31 strOrd = "st" Case 2, 22 strOrd = "nd" Case 3, 23 strOrd = "rd" Case Else strOrd = "th" End Select fncGetDayOrdinal = strOrd End Function ' fncGetDayOrdinal Function fncFmtDate( _ byVal strDate, _ byRef strFormat _ ) Dim intPosItem Dim int12HourPart Dim str24HourPart Dim strMinutePart Dim strSecondPart Dim strAMPM ' Insert Short Year (2 digit) strFormat = Replace(strFormat, "%y", _ Right(DatePart("yyyy",strDate),2), _ 1, -1, vbBinaryCompare) ' Insert Abbreviated Month Names strFormat = Replace(strFormat, "%b", _ MonthName(DatePart("m", strDate), _ True), 1, -1, vbBinaryCompare) ' Insert Day Of Month strFormat = Replace(strFormat, "%d", _ DatePart("d",strDate), 1, _ -1, vbBinaryCompare) ' Insert Day of Month Ordinal (eg st, th, or rd) strFormat = Replace(strFormat, "%O", _ fncGetDayOrdinal(Day(strDate)), _ 1, -1, vbBinaryCompare) ' Insert Long Year (4 digit) strFormat = Replace(strFormat, "%Y", _ DatePart("yyyy",strDate), 1, _ -1, vbBinaryCompare) ' ' Insert Short Year (2 digit) strFormat = Replace(strFormat, "%y", _ Right(DatePart("yyyy",strDate),2), _ 1, -1, vbBinaryCompare) fncFmtDate = strFormat 'If there is an error output its value End Function ' fncFmtDate %> Countryside - organising travel to off beat destinations in Himalayas -Ladakh, Himachal, Uttaranchal, Sikkim , Nepal, Bhutan and Tibet. Tour range from Overland tours, treks, mountain climbing and mountain biking
 
Home Kidventure About us Contact us Site Map

Countryside Tours Corporate Training Free Spirit

Archives

 Newsletter  
 
 
Countryside Tours
Fixed Departures | Booking Request
Customize a Tour | Team | FAQ
Picture Gallery | Testimonial
Special Offers | E-Brochure



To add more excitement to the exciting Countryside Tours, we are offering special discounts this year!

Discount Scheme for 2008- 09:

Confirm Booking with 100% payment.

*Special Discounts

 90 days before date of departure

1500/- per person

 89 to 60 days before date of departure

1000/- per person

 59 to 30 days before date of departure

500/- per person

*Conditions Apply

We are also glad to offer our guests of previous years an additional discount over and above this and a special rate for children below 12 yrs. Contact us for more details.

Make sure to book your tour soon to avail of maximum benefits.

Some travel tips to make your journey enjoyable….

  • Book air tickets in advance to avail of cheaper fares.
  • Train Reservations should be preferably done 60 days prior to the date of departure to get confirmed bookings.
  • Countryside can assist you with the booking of air / rail tickets for a nominal service charge.

Join us and experience the journeys beyond…

Thanks & Regards,


Countryside

 
 
         
Home | Countryside Tours | Corporate Training | Free Spirit | Kidventure | About Us | Contact Us | Site Map | Newsletter
Fixed Departures | Booking Request | Customize a Tour | Team | FAQ | Picture Gallery | Testimonial | Special Offers | E-Brochure
© Countryside Outdoor Programmes PVT. LTD. Site Best Viewed At 1024 x 768 Screen Resolution