|
Kumarakom
When nature is all you need to recuperate, Kumarakom is undoubtedly the most invigorating, fascinating paradise in Kerala, God's own country. The slender coconut palms standing here, there and everywhere, its never ending paddy fields, meandering lagoons and backwaters, mangroves nesting birds of a hundred varieties can peacefully calm and invigorate your mind with renewed inspiration for your vocation and life. That is the pristine beauty of Kumarakom.
Kumarakom the charming emerald peninsula jutting into the ever-effervescent Vembanad Lake takes you into the heart of the scenic lake where you'll come across plenty of traditional country crafts, boats and canoes. The fresh water of the lake runs into the mainland making a labyrinth of lagoons, brooks, canals and waterways. The backwater houses a variety of species of both fauna and flora. They are rich with marine life namely the exclusive 'Kumarakom Karimeen' (pearl spotted fish), Konju (tiger prawns), Njandu (crabs), Chemeen (prawns) and many more.
As the monsoon winds bring rain to the shores of Vembanad Lake, the Kumarakom is transformed into a rich fertile land. The streams, lagoons, brooks break their banks and provide nourishment to springs and shrubs that sprout from every available space.
Water birds, migratory birds, mangrove shores and the renowned bird sanctuary form their niche. The resorts nearby offer comfortable accommodation and exclusive leisure options like an Ayurvedic massage, yoga, meditation, boating, fishing and swimming. The adventurous could indulge in water sports such as windsailing and waterskiing. You could even take a canoe out into the quite lakes and armed with a fishing rod, catch your own supper. Make sure you do not miss out on Karimeen and fresh toddy, the favourite fresh water food and the local wine.
The local spring season emerges from August and coincides with the harvest festival of Onam, blooms the tourist and the local people
Hotels In Kumarakom
<% 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= 'Kumarakom'"
'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 %>
|
