|
Wayanad
The wonderful Wayanad is a hill resort of Kerala that offers nature at its best. There are the mist-clad mountains, spice plantations and the stretches of greens as far as the sight goes. The majestic mountains of the Western Ghats add to the charm of Wayanad.The hill resort of Wayanad is situated in the northeastern part of Kerala.
Amongst the major tourist attractions in Wayanad are the two rock caves of Edakkal Caves. Situated in the Ambukuthy Hills the caves are famous for the ancient carvings and pictorial writings dating back to the new Stone Age.
The Wayanad Wildlife Sanctuary is a must visit for the nature as well as the animal lovers. The Wayanad Wildlife Sanctuary is an element of the Nilgiri Biosphere Reserve. Close by are the Nagarhole and Bandipur National Parks. The fabulous flora and fauna of the sanctuary are a major tourist attraction at Wayanad.
You may check out the coffee, tea, cardamom, pepper and rubber plantations that dot the hills of Wayanad
Pookat Lake is another spot to chill out in Wayanad. You may visit the fresh water aquarium or the children's park, enjoying boating or even shop for handicraft items and spices at the fresh water Pookat Lake that is wrapped in high hills and gorgeous greens.
The Varambetta Mosque and the Ambalavayal Heritage Museum are the other places worth visiting on your trip to Wayanad
Hotels In Wayanad
<% Call DefineScriptMessages %>
<%
Session(strTableName & "_ListURL")=Request.ServerVariables("SCRIPT_NAME") & "?" & Request.ServerVariables("QUERY_STRING")
if InStr(Session(strTableName & "_ListURL"), "action=OrderBy&")>0 then
Session(strTableName & "_ListURL") = Replace(Session(strTableName & "_ListURL"), "action=OrderBy&", "action=none&" )
end if
Session.LCID = 1033
Dim rs, dbConnection
strOrderBy="" : strOrderImage="" : strDir="" : strOrderByClause = ""
Call CalculateOrderBy
if Request("action")="" then
Session(strTableName & "SQL")=""
end if
if Request("action")="language" then
Session("Language") = Request("lang")
Response.CharSet = "Windows-1252"
Session.CodePage = 1252
end if
TargetPageNumber=Request("TargetPageNumber")
if TargetPageNumber="" or Request("action")="search" then _
TargetPageNumber=1
if Request("PageSize")<>"" then
Session("PageSize") = Request("PageSize")
end if
if Session("PageSize")<>"" then PageSize = Session("PageSize")
' delete record(s)
if (Request("mdelete")<>"") then
On Error Resume Next
set dbConnection = server.CreateObject ("ADODB.Connection")
dbConnection.ConnectionString = strConnection
dbConnection.Open
Call ReportError
On Error GoTo 0
for i=1 to Request("mdelete").count
ind = CLng(Request("mdelete")(i))
strSQL="delete from " & strTableName & _
" where " & AddWrappers(strKeyField) & "=" & gstrQuote & Replace(Request("mdelete1")(ind), "'", "''") & gstrQuote
if strKeyField2<>"" then _
strSQL = strSQL & " and " & AddWrappers(strKeyField2) & "=" & gstrQuote2 & Replace(Request("mdelete2")(ind), "'", "''") & gstrQuote2
if strKeyField3<>"" then _
strSQL = strSQL & " and " & AddWrappers(strKeyField3) & "=" & gstrQuote3 & Replace(Request("mdelete3")(ind), "'", "''") & gstrQuote3
On Error Resume Next
LogInfo(strSQL)
dbConnection.Execute strSQL
Call ReportError
On Error Goto 0
next
dbConnection.close
set dbConnection = nothing
end if
if Request("action")<>"Search" and Request("action")<>"AdvancedSearch" and Len(Session(strTableName & "SQL"))>3 then
strSQL=Session(strTableName & "SQL")
else
if gstrSQL="" then
strSQL="select * from " & strTableName
else
strSQL="select * from Hotel where Loaction= 'Wayanad'"
'strSQL = gstrSQL
end if
' see if we have some search parameters
' regular search
if Request("action")="Search" and ( Request("SearchFor")<>"" or Request("SearchOption")="IsNull") then
strSearchFor=Trim(Request("SearchFor"))
strSearchOption=Trim(Request("SearchOption"))
if Request("SearchField")<>"AnyField" then
if IsNumeric(strSearchFor) or (IfNeedQuotes(GetFieldType(strTableName, Request("SearchField")))="True" and IsSortableField(GetFieldType(strTableName, Request("SearchField")))) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere(Request("SearchField"), strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then
strAdd = sRet
else
strAdd = "1=0"
end if
end if
else
strAdd = "1=0"
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Id"))="True" and IsSortableField(GetFieldType(strTableName, "Id")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Id", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Hotel_Id"))="True" and IsSortableField(GetFieldType(strTableName, "Hotel_Id")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Hotel_Id", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Hotel_Name"))="True" and IsSortableField(GetFieldType(strTableName, "Hotel_Name")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Hotel_Name", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Email"))="True" and IsSortableField(GetFieldType(strTableName, "Email")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Email", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Contact_No"))="True" and IsSortableField(GetFieldType(strTableName, "Contact_No")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Contact_No", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Hotel_Address"))="True" and IsSortableField(GetFieldType(strTableName, "Hotel_Address")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Hotel_Address", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Contact_person"))="True" and IsSortableField(GetFieldType(strTableName, "Contact_person")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Contact_person", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "State"))="True" and IsSortableField(GetFieldType(strTableName, "State")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("State", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "District"))="True" and IsSortableField(GetFieldType(strTableName, "District")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("District", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Loaction"))="True" and IsSortableField(GetFieldType(strTableName, "Loaction")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Loaction", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Accomadation"))="True" and IsSortableField(GetFieldType(strTableName, "Accomadation")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Accomadation", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Tarif_Rage"))="True" and IsSortableField(GetFieldType(strTableName, "Tarif_Rage")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Tarif_Rage", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Room_Category1"))="True" and IsSortableField(GetFieldType(strTableName, "Room_Category1")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Room_Category1", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Rate1"))="True" and IsSortableField(GetFieldType(strTableName, "Rate1")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Rate1", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Meal_Plan1"))="True" and IsSortableField(GetFieldType(strTableName, "Meal_Plan1")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Meal_Plan1", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Glad_Rate1"))="True" and IsSortableField(GetFieldType(strTableName, "Glad_Rate1")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Glad_Rate1", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Glad_Commission1"))="True" and IsSortableField(GetFieldType(strTableName, "Glad_Commission1")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Glad_Commission1", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Room_Category2"))="True" and IsSortableField(GetFieldType(strTableName, "Room_Category2")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Room_Category2", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Rate2"))="True" and IsSortableField(GetFieldType(strTableName, "Rate2")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Rate2", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Meal_Plan2"))="True" and IsSortableField(GetFieldType(strTableName, "Meal_Plan2")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Meal_Plan2", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Glad_Rate2"))="True" and IsSortableField(GetFieldType(strTableName, "Glad_Rate2")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Glad_Rate2", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Glad_Commission2"))="True" and IsSortableField(GetFieldType(strTableName, "Glad_Commission2")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Glad_Commission2", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Room_Category3"))="True" and IsSortableField(GetFieldType(strTableName, "Room_Category3")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Room_Category3", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Rate3"))="True" and IsSortableField(GetFieldType(strTableName, "Rate3")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Rate3", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Meal_Plan3"))="True" and IsSortableField(GetFieldType(strTableName, "Meal_Plan3")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Meal_Plan3", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Glad_Rate3"))="True" and IsSortableField(GetFieldType(strTableName, "Glad_Rate3")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Glad_Rate3", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Glad_Commission3"))="True" and IsSortableField(GetFieldType(strTableName, "Glad_Commission3")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Glad_Commission3", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Room_Category4"))="True" and IsSortableField(GetFieldType(strTableName, "Room_Category4")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Room_Category4", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Rate4"))="True" and IsSortableField(GetFieldType(strTableName, "Rate4")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Rate4", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Meal_Plan4"))="True" and IsSortableField(GetFieldType(strTableName, "Meal_Plan4")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Meal_Plan4", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Glad_Rate4"))="True" and IsSortableField(GetFieldType(strTableName, "Glad_Rate4")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Glad_Rate4", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Glad_Commission4"))="True" and IsSortableField(GetFieldType(strTableName, "Glad_Commission4")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Glad_Commission4", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Room_Category5"))="True" and IsSortableField(GetFieldType(strTableName, "Room_Category5")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Room_Category5", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Rate5"))="True" and IsSortableField(GetFieldType(strTableName, "Rate5")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Rate5", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Meal_Plan5"))="True" and IsSortableField(GetFieldType(strTableName, "Meal_Plan5")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Meal_Plan5", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Glad_Rate5"))="True" and IsSortableField(GetFieldType(strTableName, "Glad_Rate5")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Glad_Rate5", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Glad_Commission5"))="True" and IsSortableField(GetFieldType(strTableName, "Glad_Commission5")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Glad_Commission5", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Room_Category6"))="True" and IsSortableField(GetFieldType(strTableName, "Room_Category6")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Room_Category6", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Rate6"))="True" and IsSortableField(GetFieldType(strTableName, "Rate6")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Rate6", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Meal_Plan6"))="True" and IsSortableField(GetFieldType(strTableName, "Meal_Plan6")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Meal_Plan6", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Glad_Rate6"))="True" and IsSortableField(GetFieldType(strTableName, "Glad_Rate6")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Glad_Rate6", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Glad_Commission6"))="True" and IsSortableField(GetFieldType(strTableName, "Glad_Commission6")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Glad_Commission6", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Room_Category7"))="True" and IsSortableField(GetFieldType(strTableName, "Room_Category7")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Room_Category7", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Rate7"))="True" and IsSortableField(GetFieldType(strTableName, "Rate7")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Rate7", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Meal_Plan7"))="True" and IsSortableField(GetFieldType(strTableName, "Meal_Plan7")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Meal_Plan7", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Glad_Rate7"))="True" and IsSortableField(GetFieldType(strTableName, "Glad_Rate7")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Glad_Rate7", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Glad_Commission7"))="True" and IsSortableField(GetFieldType(strTableName, "Glad_Commission7")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Glad_Commission7", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Room_Category8"))="True" and IsSortableField(GetFieldType(strTableName, "Room_Category8")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Room_Category8", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Rate8"))="True" and IsSortableField(GetFieldType(strTableName, "Rate8")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Rate8", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Meal_Plan8"))="True" and IsSortableField(GetFieldType(strTableName, "Meal_Plan8")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Meal_Plan8", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Glad_Rate8"))="True" and IsSortableField(GetFieldType(strTableName, "Glad_Rate8")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Glad_Rate8", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Glad_Commission8"))="True" and IsSortableField(GetFieldType(strTableName, "Glad_Commission8")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Glad_Commission8", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Room_Category9"))="True" and IsSortableField(GetFieldType(strTableName, "Room_Category9")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Room_Category9", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Rate9"))="True" and IsSortableField(GetFieldType(strTableName, "Rate9")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Rate9", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Meal_Plan9"))="True" and IsSortableField(GetFieldType(strTableName, "Meal_Plan9")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Meal_Plan9", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Glad_Rate9"))="True" and IsSortableField(GetFieldType(strTableName, "Glad_Rate9")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Glad_Rate9", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Glad_Commission9"))="True" and IsSortableField(GetFieldType(strTableName, "Glad_Commission9")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Glad_Commission9", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Room_Category10"))="True" and IsSortableField(GetFieldType(strTableName, "Room_Category10")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Room_Category10", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Rate10"))="True" and IsSortableField(GetFieldType(strTableName, "Rate10")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Rate10", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Meal_Plan10"))="True" and IsSortableField(GetFieldType(strTableName, "Meal_Plan10")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Meal_Plan10", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Glad_Rate10"))="True" and IsSortableField(GetFieldType(strTableName, "Glad_Rate10")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Glad_Rate10", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Glad_Commission10"))="True" and IsSortableField(GetFieldType(strTableName, "Glad_Commission10")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Glad_Commission10", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Room_Category11"))="True" and IsSortableField(GetFieldType(strTableName, "Room_Category11")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Room_Category11", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Rate11"))="True" and IsSortableField(GetFieldType(strTableName, "Rate11")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Rate11", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Meal_Plan11"))="True" and IsSortableField(GetFieldType(strTableName, "Meal_Plan11")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Meal_Plan11", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Glad_Rate11"))="True" and IsSortableField(GetFieldType(strTableName, "Glad_Rate11")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Glad_Rate11", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Glad_Commission11"))="True" and IsSortableField(GetFieldType(strTableName, "Glad_Commission11")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Glad_Commission11", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Room_Category12"))="True" and IsSortableField(GetFieldType(strTableName, "Room_Category12")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Room_Category12", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Rate12"))="True" and IsSortableField(GetFieldType(strTableName, "Rate12")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Rate12", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Meal_Plan12"))="True" and IsSortableField(GetFieldType(strTableName, "Meal_Plan12")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Meal_Plan12", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Glad_Rate12"))="True" and IsSortableField(GetFieldType(strTableName, "Glad_Rate12")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Glad_Rate12", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Glad_Commission12"))="True" and IsSortableField(GetFieldType(strTableName, "Glad_Commission12")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Glad_Commission12", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Room_Category13"))="True" and IsSortableField(GetFieldType(strTableName, "Room_Category13")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Room_Category13", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Rate13"))="True" and IsSortableField(GetFieldType(strTableName, "Rate13")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Rate13", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Meal_Plan13"))="True" and IsSortableField(GetFieldType(strTableName, "Meal_Plan13")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Meal_Plan13", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Glad_Rate13"))="True" and IsSortableField(GetFieldType(strTableName, "Glad_Rate13")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Glad_Rate13", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Glad_Commission13"))="True" and IsSortableField(GetFieldType(strTableName, "Glad_Commission13")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Glad_Commission13", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Room_Category14"))="True" and IsSortableField(GetFieldType(strTableName, "Room_Category14")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Room_Category14", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Rate14"))="True" and IsSortableField(GetFieldType(strTableName, "Rate14")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Rate14", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Meal_Plan14"))="True" and IsSortableField(GetFieldType(strTableName, "Meal_Plan14")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Meal_Plan14", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Glad_Rate14"))="True" and IsSortableField(GetFieldType(strTableName, "Glad_Rate14")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Glad_Rate14", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Glad_Commission14"))="True" and IsSortableField(GetFieldType(strTableName, "Glad_Commission14")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Glad_Commission14", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Room_Category15"))="True" and IsSortableField(GetFieldType(strTableName, "Room_Category15")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Room_Category15", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Rate15"))="True" and IsSortableField(GetFieldType(strTableName, "Rate15")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Rate15", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Meal_Plan15"))="True" and IsSortableField(GetFieldType(strTableName, "Meal_Plan15")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Meal_Plan15", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Glad_Rate15"))="True" and IsSortableField(GetFieldType(strTableName, "Glad_Rate15")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Glad_Rate15", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Glad_Commission15"))="True" and IsSortableField(GetFieldType(strTableName, "Glad_Commission15")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Glad_Commission15", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Room_Category16"))="True" and IsSortableField(GetFieldType(strTableName, "Room_Category16")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Room_Category16", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Rate16"))="True" and IsSortableField(GetFieldType(strTableName, "Rate16")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Rate16", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Meal_Plan16"))="True" and IsSortableField(GetFieldType(strTableName, "Meal_Plan16")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Meal_Plan16", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Glad_Rate16"))="True" and IsSortableField(GetFieldType(strTableName, "Glad_Rate16")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Glad_Rate16", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Glad_Commission16"))="True" and IsSortableField(GetFieldType(strTableName, "Glad_Commission16")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Glad_Commission16", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Room_Category17"))="True" and IsSortableField(GetFieldType(strTableName, "Room_Category17")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Room_Category17", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Rate17"))="True" and IsSortableField(GetFieldType(strTableName, "Rate17")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Rate17", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Meal_Plan17"))="True" and IsSortableField(GetFieldType(strTableName, "Meal_Plan17")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Meal_Plan17", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Glad_Rate17"))="True" and IsSortableField(GetFieldType(strTableName, "Glad_Rate17")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Glad_Rate17", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Glad_Commission17"))="True" and IsSortableField(GetFieldType(strTableName, "Glad_Commission17")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Glad_Commission17", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Room_Category18"))="True" and IsSortableField(GetFieldType(strTableName, "Room_Category18")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Room_Category18", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Rate18"))="True" and IsSortableField(GetFieldType(strTableName, "Rate18")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Rate18", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Meal_Plan18"))="True" and IsSortableField(GetFieldType(strTableName, "Meal_Plan18")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Meal_Plan18", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Glad_Rate18"))="True" and IsSortableField(GetFieldType(strTableName, "Glad_Rate18")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Glad_Rate18", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Glad_Commission18"))="True" and IsSortableField(GetFieldType(strTableName, "Glad_Commission18")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Glad_Commission18", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Room_Category19"))="True" and IsSortableField(GetFieldType(strTableName, "Room_Category19")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Room_Category19", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Rate19"))="True" and IsSortableField(GetFieldType(strTableName, "Rate19")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Rate19", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Meal_Plan19"))="True" and IsSortableField(GetFieldType(strTableName, "Meal_Plan19")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Meal_Plan19", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Glad_Rate19"))="True" and IsSortableField(GetFieldType(strTableName, "Glad_Rate19")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Glad_Rate19", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Glad_Commission19"))="True" and IsSortableField(GetFieldType(strTableName, "Glad_Commission19")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Glad_Commission19", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Room_Category20"))="True" and IsSortableField(GetFieldType(strTableName, "Room_Category20")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Room_Category20", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Rate20"))="True" and IsSortableField(GetFieldType(strTableName, "Rate20")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Rate20", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Meal_Plan20"))="True" and IsSortableField(GetFieldType(strTableName, "Meal_Plan20")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Meal_Plan20", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Glad_Rate20"))="True" and IsSortableField(GetFieldType(strTableName, "Glad_Rate20")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Glad_Rate20", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Glad_Commission20"))="True" and IsSortableField(GetFieldType(strTableName, "Glad_Commission20")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Glad_Commission20", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Description"))="True" and IsSortableField(GetFieldType(strTableName, "Description")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Description", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Facilities"))="True" and IsSortableField(GetFieldType(strTableName, "Facilities")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Facilities", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Comments1"))="True" and IsSortableField(GetFieldType(strTableName, "Comments1")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Comments1", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
if IsNumeric(strSearchFor) or ( IfNeedQuotes(GetFieldType(strTableName, "Comments2"))="True" and IsSortableField(GetFieldType(strTableName, "Comments2")) ) or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere("Comments2", strSearchFor, strSearchOption, "", "Basic")
if sRet<>"" then strAdd = strAdd & " or " & sRet
end if
end if
strSQL = AddWhere(strSQL, strAdd)
end if
' advanced search
if Request("action")="AdvancedSearch" then
sWhere=""
For i = 1 To Request("FieldName").Count
sFieldName = Request("FieldName")(i)
Session("SearchOption_" & strTableName & "_" & Request("FieldName")(i)) = Request("SearchOption")(i)
strSearchOption=Trim(Request("SearchOption")(i))
' listbox with multiple selection
if Request(sFieldName).Count>1 then
Session("SearchFor1_" & strTableName & "_" & Request("FieldName")(i)) = ""
sAdd=" ("
sSaved = ""
for k=1 to Request(sFieldName).Count
strSearchFor=Trim(Request(sFieldName)(k))
if sSaved <> "" then sSaved = sSaved & ","
sSaved = sSaved & strSearchFor
if IsNumeric(strSearchFor) or IfNeedQuotes(GetFieldType(strTableName, Request("FieldName")(i)))="True" or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere(Request("FieldName")(i), strSearchFor, strSearchOption, strSearchFor2, "Advanced")
if sRet<>"" then
sAdd = sAdd & sRet
if k"" or Request("SearchOption")(i)="IsNull" then
if sWhere="" then sWhere="1=1"
strSearchOption=Trim(Request("SearchOption")(i))
if (IsNumeric(strSearchFor) and (strSearchFor2="" or IsNumeric(strSearchFor2))) or IfNeedQuotes(GetFieldType(strTableName, Request("FieldName")(i)))="True" or _
strSearchOption="Contains" or strSearchOption="Starts with ..." then
sRet = StrWhere(Request("FieldName")(i), strSearchFor, strSearchOption, strSearchFor2, "Advanced")
if sRet<>"" then sWhere = sWhere & " and " & sRet
end if
end if
end if
next
strSQL = AddWhere(strSQL, sWhere)
end if
end if
' order by
if Request("action")<>"Search" and Request("action")<>"AdvancedSearch" and Len(Session(strTableName & "SQL"))>3 then
if strOrderBy<>"" then
if InStr(1, LCase(strSQL), "order by")>0 then
strSQL = Left(strSQL, InStr(1, LCase(strSQL), "order by")-1) & strOrderByClause
else
strSQL = strSQL & strOrderByClause
end if
end if
else
strSQL = strSQL & strOrderByClause
end if
Session(strTableName & "SQL") = strSQL
Response.Write("")
Response.Write("")
Response.Write("Hotel")
Response.Write("")
Response.Write(""" or Request.QueryString<>"" then Response.Write(" onLoad=""if (document.frmAdmin.SearchFor != null) document.frmAdmin.SearchFor.focus();""")
Response.Write(">")
%>
<%
' Pagination: Control Variables
dim iNumberOfRows
dim maxRecords
dim maxpages
dim mypage
iNumberOfRows =0
maxRecords = 0
maxpages = 0
mypage = TargetPageNumber
if mypage = "" then mypage =1
if CDBL(mypage)<=0 then mypage =1
%>
Please wait ...
<%' Control Functions %>
|
