|
Varkala
Varkala, a new destination in Kerala, is for those who prefer to do absolutely nothing while holidaying. Due to a spillover resulting from the over saturation of Kovalam, foreigners started coming to the town about six years ago. The trend that started as a trickle became a steady flow within two years. Today, there is a constant stream of visitors. However, because of the area’s comparative inaccessibility, a large influx of ‘outsiders’ has not happened here. At the Varkala platform, there is no indication that this town is on many a tourist itinerary.
Separated out from the former districts of Kottayam and Quilon, Alappuzha consists of seven taluks spread over an area of 1414 sq km. It is bounded by Kochi and Kanayannur taluks on its north; Vaikom, Kottayam, Changanassery Thiruvalla, Kozhencherry and Adoor taluks on its east; Kannathur and Karunagappally taluks on its south and the exotic Lakshadweep of the Arabian Sea on its west.
What makes the coastline of Varkala exceptional is its landscape. Towering cliffs that stand like silent sentinels, guarding the sparkling waters, back the beach. Highly unusual land formations, the sheerness of the cliffs, and the view from atop, simply astound the visitors. Shining white sands, cloudless skies touching the blue water and the red soil of the hilltop, coupled with yellow-green paddy fields, and green coconut trees, make a composite picture of the beauty and awesomeness of nature. Nature in its pristine glory remains so untouched that to get to the secluded part of the beach, one has to either scramble over rocks during high tide or climb down the cliff. With constant use, a path of sorts has been worn into the hill face. However, the state government does have development plans for its inland waterways that will, in time, have an effect on the growth of Varkala.
Hotels In Varkala
<% 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= 'Varkala'"
'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 %>
|
