<%@ 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("at_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("at_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