|
Kanyakumari
The southern most tip of India, Kanyakumari is the point where the three mighty water bodies, the Arabian Sea, the Bay of Bengal and the Indian Ocean converge. The famous Vivekananda Rock memorial amidst the turbulent sea is a major attraction. Kanyakumari is famous for its spectacular sunrise and sunset views and the Devi Temple.
Surrounded by Majestic Hills and the plains bordered by colourful sea-shores, fringed with coconut trees and paddy fields, here and there are few elevated patches of red cliffs with undulating valleys and plains between the mountainous terrain and the sea - coast, so closely interwoven with Temples and Churches and other edifices lies the district, 'Kanyakumari'. ( The district name is spelled as ' Kanniyakumari ' in official records which is in tune with the spoken name of the district in Tamil language) . With an area of 1672 sq.km. it occupies 1.29% of the total extent of Tamil Nadu. It ranks first in literacy among other districts in Tamil Nadu.
Hotels In Kanyakumari
<% 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= 'Kanyakumari'"
'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 %>
|
