|
Munnar
One of the most popular hill stations in India, Munnar is situated at the confluence of three mountain streams - Mudrapuzha, Nallathanni and Kundala. Located at 1600 Mts above sea level, this was once the summer resort of the erstwhile British Government in South India.
Sprawling tea plantations, picture book towns, winding lanes, trekking and holiday facilities make Munnar a unique experience. Munnar is essentially a tea town. The tea plantations have now been taken over by the Tata Tea Company. The visitor is greeted with miles and miles of unending tea plantations on entry into Munnar. Among the exotic flora found in the forests and grasslands here is the Neelakurinji a flower which bathes the hills in blue colour once in twelve years. The Neelakurinji, will bloom next in 2006 AD. Munnar also has the highest peak in South India - Anamudi - which towers over 2695 Mts and is an ideal spot for campers who like to do some trekking.
The Duke of Wellington is reputed to have been the first European visitor to Munnar, in 1790, but this is unlikely. In the early 19th century, the headman of the villages of Anchanad, just to the North of the high ranges was named Kanan Thevar. It is said that travelers from Madurai to the West coast passed through these villages and named these hills after him.
An entry in the diary of Madras army Lieutenant made in 1817 describes a bullock-road heading across the Kanan Devan hills into Coimbatore.
In 1877-79, the Poonjar Chief, a subordinate prince to the Maharaja of Travancore, leased a large tract of land comprising 588 sq. km. to a lawyer in the employee of the Travancore Government named J. D. Munro. This tract, henceforth called the Kanan Devan Concession Land, was completely undeveloped, largely unexplored, and covered with thick jungle full of wild elephants and tigers.
In Conjunction with Munro and H. G. Turner of the Madras Civil Service was founded the North Travancore Land Planting and Agricultural Society, whose members developed their own estates in various parts of the High Ranges. This first cultivation was undertaken by A. W. Turner near Devikulam lake in 1877. The pioneers tried many crops such as coffee, cinchona, sisal and cardamom before discovering tea, the product best suited to the area.The first tea plant was planted by A. H. Sharp at Parvathi, now in Sevenmullay estate, but then a 20 hectares (50 acres) clearing in an immense jungle. In 1893-95, the concession area was purchased by Muir and Co. which later became James Finlay & Co. Ltd.
The original route to the Anamellen's was cut out of the jungle in 1858 by Congreve and Macpherson, and it led to what are now Veloine & Valparai Estates. The first plantation was 20 hectares (50 acres) of coffee put out in 1897 by "Carver" Mersh. E. J. Martin introduced tea a few years later and cardamom, cinchona and rubber were also added. The latter has now been mostly abandoned.
The Kanan Devan Hills Produce Company was formed in 1897, and together with other subsidiaries of the Glasgow, UK - based Finlays Group, namely, the Anglo-American Direct Tea Trading Company and the Amalgamated Tea Estates Company it opened or came to purchase 33 estates in the high range and 9 in the the Anamallais.
In 1964 a collaborative venture between Finlays and Tatas was established to develop value-added tea, and in 1976 Tata-Finlays Ltd purchased the black tea producing/marketing operation and other interests. The name of the company was changed to Tata Tea Ltd. in 1983 when Finlays sold their remaining share holdings including the considerable landholdings and manufacturing facilities in Northeastern India. Tata Tea Ltd. justifiably claims to be the largest integrated tea company in the world, with activities spanning the entire spectrum of the industry.
Hotels In Munnar
<% 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= 'Munnar'"
'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 %>
|
