<%@Language=VBScript%> <% Option Explicit Response.Buffer = True Dim MyConn ' Database connection object Dim RS ' Recordset object Dim Fld ' Field object Dim Connect_String ' ADO Connection String Dim SQL ' SQL Statement Dim SQL_Ext ' SQL Extension Statement Dim Page_Size ' Number of records per page Dim StartPage ' The page that we are starting on Dim Current_Page ' The current page that we are on Dim Page_Count ' Total pages Dim CssClass ' Style Sheet file Dim CellValue ' data value Dim intRowCount ' Total rows Dim iRecCount Dim i Dim j Dim sPos Dim iData Dim iRealData Dim iStrData Dim iOpt Dim Qry_String Dim NavQry_String Dim Filter_String Dim Err_String Dim SearchArray Dim SearchIndex Dim MultiSearch Dim QuoteChar Dim QuoteDate Dim Fields Dim StdSearchOpt Dim SearchEndKey Dim PageSecureLevel Dim ItemValue Dim CurrentRow_String Dim StartStrData Dim EndStrData Dim StrKeyWord Dim SearchMode Dim SearchStartKey Dim NextSortASC Dim NextSortDESC Dim SortString Dim PaypalCode Dim PaypalDesc Dim PaypalPrice Dim ConditionStr %> <% Err_String = "" Set MyConn=Server.CreateObject("ADODB.Connection") Set RS=Server.CreateObject("ADODB.RecordSet") MyConn.Open Connect_String if err <> 0 then Err_String = Err_String& "Error while opening recordset.
" Err_String = Err_String& "Description: " & err.description & "
" err = 0 end if RS.CursorLocation = 3 QuoteChar = "`" QuoteDate = "#" SQL = "" SQL_Ext = "" ReDim Fields(17) Fields(0) = "HotelsMotels.`Hotel Name`" Fields(1) = "HotelsMotels.`Street Address`" Fields(2) = "HotelsMotels.`Address 2`" Fields(3) = "HotelsMotels.`Phone Number`" Fields(4) = "HotelsMotels.Description" Fields(5) = "HotelsMotels.Amenities" Fields(6) = "HotelsMotels.Email" Fields(7) = "HotelsMotels.`Web Address`" Fields(8) = "HotelsMotels.Logo" Fields(9) = "HotelsMotels.`Pic 1`" Fields(10) = "HotelsMotels.`Pic1 Thumb`" Fields(11) = "HotelsMotels.`Pic 2`" Fields(12) = "HotelsMotels.`Pic2 Thumb`" Fields(13) = "HotelsMotels.`Pic 3`" Fields(14) = "HotelsMotels.`Pic3 Thumb`" Fields(15) = "HotelsMotels.`Pic 4`" Fields(16) = "HotelsMotels.`Pic4 Thumb`" SQL = SQL & " Select" SQL = SQL & " HotelsMotels.`Hotel Name`," SQL = SQL & " HotelsMotels.`Street Address`," SQL = SQL & " HotelsMotels.`Address 2`," SQL = SQL & " HotelsMotels.`Phone Number`," SQL = SQL & " HotelsMotels.Description," SQL = SQL & " HotelsMotels.Amenities," SQL = SQL & " HotelsMotels.Email," SQL = SQL & " HotelsMotels.`Web Address`," SQL = SQL & " HotelsMotels.Logo," SQL = SQL & " HotelsMotels.`Pic 1`," SQL = SQL & " HotelsMotels.`Pic1 Thumb`," SQL = SQL & " HotelsMotels.`Pic 2`," SQL = SQL & " HotelsMotels.`Pic2 Thumb`," SQL = SQL & " HotelsMotels.`Pic 3`," SQL = SQL & " HotelsMotels.`Pic3 Thumb`," SQL = SQL & " HotelsMotels.`Pic 4`," SQL = SQL & " HotelsMotels.`Pic4 Thumb`" SQL = SQL & " From" SQL = SQL & " HotelsMotels HotelsMotels" ReDim SearchMode(17) ReDim StdSearchOpt(17) SearchMode(0) = 1 SearchMode(1) = 1 SearchMode(2) = 1 SearchMode(3) = 1 SearchMode(4) = 1 SearchMode(5) = 1 SearchMode(6) = 1 SearchMode(7) = 1 SearchMode(8) = 1 SearchMode(9) = 1 SearchMode(10) = 1 SearchMode(11) = 1 SearchMode(12) = 1 SearchMode(13) = 1 SearchMode(14) = 1 SearchMode(15) = 1 SearchMode(16) = 1 StdSearchOpt(0) = 0 StdSearchOpt(1) = 0 StdSearchOpt(2) = 0 StdSearchOpt(3) = 0 StdSearchOpt(4) = 0 StdSearchOpt(5) = 0 StdSearchOpt(6) = 0 StdSearchOpt(7) = 0 StdSearchOpt(8) = 0 StdSearchOpt(9) = 0 StdSearchOpt(10) = 0 StdSearchOpt(11) = 0 StdSearchOpt(12) = 0 StdSearchOpt(13) = 0 StdSearchOpt(14) = 0 StdSearchOpt(15) = 0 StdSearchOpt(16) = 0 RS.Open SQL & " " & SQL_Ext, MyConn, 3, 1, 1 Filter_String = "" Qry_String = "" i = 0 for each Fld in RS.Fields if (SearchMode(i)=0) then ' 0 = Std, 1 = Advance if ((StdSearchOpt(i))=0) then ' 0=Contain , 1 = Equal : for standard mode SearchStartKey = "%" SearchEndKey = "%" else SearchStartKey = "" SearchEndKey = "" end if else SearchStartKey = "" SearchEndKey = "" end if if (request("search_fd"&i) <> "") and (request("search_fd"&i) <> "*") then iData = request("search_fd"&i) iStrData = Replace(iData,"*","%",1,1,1) iRealData = iData iOpt = Left(iData,2) if (iOpt = "<=") or (iOpt = "=<") then iOpt = "<=" iRealData = Right(iData,Len(iData) - 2) elseif (iOpt = ">=") or (iOpt = "=>") then iOpt = ">=" iRealData = Right(iData,Len(iData) - 2) elseif iOpt = "==" then iOpt = "=" iRealData = Right(iData,Len(iData) - 2) elseif iOpt = "<>" then iRealData = Right(iData,Len(iData) - 2) else iOpt = Left(iData,1) if (iOpt = "<") or (iOpt = ">") or (iOpt = "=") then iRealData = Right(iData,Len(iData) - 1) else iOpt = "=" end if end if if Lcase(iData) = "{current date and time}" then iData = Now elseif Lcase(iData) = "{current date}" then iData = Date elseif Lcase(iData) = "{current time}" then iData = Time end if select case Fld.Type case adBoolean if (request("multisearch_fd"&i) <> "") Then MultiSearch = request("multisearch_fd"&i) SearchArray = Split(MultiSearch,",",-1,1) if Qry_String = "" Then Qry_String = "search_fd"&i&" " & "=" & iData Qry_String = Qry_String & "&multisearch_fd"&i& "=" & request("multisearch_fd"&i) Filter_String = "(" & Fields(i) & " " & iOpt & " " & iRealData & " " for j = 0 To UBound(SearchArray) SearchIndex = Cint(SearchArray(j)) Filter_String = Filter_String & " OR " & Fields(SearchIndex) & " " & iOpt & " " & iRealData & " " next Filter_String = Filter_String & ")" else Qry_String = Qry_String & "&search_fd"&i& "=" & iData Qry_String = Qry_String & "&multisearch_fd"&i&"=" & request("multisearch_fd"&i) Filter_String = Filter_String & " AND " & "(" & Fields(i) & " " & iOpt & " " & iRealData & " " for j = 0 To UBound(SearchArray) SearchIndex = Cint(SearchArray(j)) Filter_String = Filter_String & " OR " & Fields(SearchIndex) & " " & iOpt & " " & iRealData & " " next Filter_String = Filter_String & ")" end if else if Qry_String = "" Then Qry_String = "search_fd"&i& "=" & iData Filter_String = Fields(i) & " " & iOpt & " " & iRealData & " " else Qry_String = Qry_String & "&search_fd"&i& "=" & iRealData Filter_String = Filter_String & " AND " & Fields(i) & " " & iOpt & " " & iRealData & " " end if end if case adLongVarBinary 'noop case adDBDate, adDBTime, adDate, adDBTimeStamp, adFileTime if (Right(iStrData,1) = "*") then iStrData = Replace(iStrData,"*","%",1,-1,1) SearchEndKey = "" else istrdata = iRealData iStrData = Replace(iStrData,"*","%",1,-1,1) end if if ((iOpt = "=")) then ConditionStr = " = " iStrData = Replace(iStrData,"=","",1,1,1) else ConditionStr = iOpt iStrData = iRealData end if if (request("multisearch_fd"&i) <> "") Then MultiSearch = request("multisearch_fd"&i) SearchArray = Split(MultiSearch,",",-1,1) if Qry_String = "" Then Qry_String = "search_fd"&i&"=" & QSURLencode(iData) Qry_String = Qry_String & "&multisearch_fd"&i&"=" & request("multisearch_fd"&i) Filter_String = "(" & Fields(i) & ConditionStr & " " & QuoteDate & SearchStartKey &QSReplaceSingleQuote(iStrData) & SearchEndKey & QuoteDate for j = 0 To UBound(SearchArray) SearchIndex = Cint(SearchArray(j)) Filter_String = Filter_String & " OR " & Fields(SearchIndex) & ConditionStr & " " & QuoteDate & SearchStartKey &QSReplaceSingleQuote(iStrData) &SearchEndKey & QuoteDate next Filter_String = Filter_String & ")" else Qry_String = Qry_String & "&search_fd"&i&"=" & QSURLencode(iData) Qry_String = Qry_String & "&multisearch_fd"&i&"=" & request("multisearch_fd"&i) Filter_String = Filter_String & " AND " & "(" & Fields(i) & ConditionStr & " " & QuoteDate & SearchStartKey &QSReplaceSingleQuote(iStrData) & SearchEndKey & QuoteDate for j = 0 To UBound(SearchArray) SearchIndex = Cint(SearchArray(j)) Filter_String = Filter_String & " OR " & Fields(SearchIndex) & ConditionStr & " " & QuoteDate & SearchStartKey &QSReplaceSingleQuote(iStrData) & SearchEndKey & QuoteDate next Filter_String = Filter_String & ")" end if else if Qry_String = "" Then Qry_String = "search_fd"&i&"=" & QSURLencode(iData) Filter_String = Fields(i) & ConditionStr & " " & QuoteDate & SearchStartKey &QSReplaceSingleQuote(iStrData) & SearchEndKey & QuoteDate else Qry_String = Qry_String & "&search_fd"&i&"=" & QSURLencode(iData) Filter_String = Filter_String & " AND " & Fields(i) & ConditionStr & " " & QuoteDate & SearchStartKey &QSReplaceSingleQuote(iStrData) & SearchEndKey & QuoteDate end if end if case adBigInt, adUnsignedBigInt, adTinyInt, adSmallInt, adError, adInteger, adUnsignedInt, adUnsignedTinyInt, adUnsignedSmallInt, adDecimal, adNumeric, adVarNumeric if isNumeric(iRealData) then if (request("multisearch_fd"&i) <> "") Then MultiSearch = request("multisearch_fd"&i) SearchArray = Split(MultiSearch,",",-1,1) if Qry_String = "" Then Qry_String = "search_fd"&i&"=" & iData Qry_String = Qry_String & "&multisearch_fd"&i& "=" & request("multisearch_fd"&i) Filter_String = "(" & Fields(i) & " " & iOpt & " " & iRealData for j = 0 To UBound(SearchArray) SearchIndex = Cint(SearchArray(j)) Filter_String = Filter_String & " OR " & Fields(SearchIndex) & " " & iOpt & " " & iRealData next Filter_String = Filter_String & ")" else Qry_String = Qry_String & "&search_fd"&i&"=" & iData Qry_String = Qry_String & "&multisearch_fd"&i& "=" & request("multisearch_fd"&i) Filter_String = Filter_String & " AND " & "(" & Fields(i) & " " & iOpt & " " & iRealData for j = 0 To UBound(SearchArray) SearchIndex = Cint(SearchArray(j)) Filter_String = Filter_String & " OR " & Fields(SearchIndex) & " " & iOpt & " " & iRealData next Filter_String = Filter_String & ")" end if else if Qry_String = "" Then Qry_String = "search_fd"&i&"=" & iData Filter_String = Fields(i) & " " & iOpt & " " & iRealData else Qry_String = Qry_String & "&search_fd"&i& "=" & iData Filter_String = Filter_String & " AND " & Fields(i) & " " & iOpt & " " & iRealData end if end if else Err_String = Err_String& "Error while searching " & Fld.name & ".
" Err_String = Err_String& "Description: Type mismatch.
" end if case adSingle, adDouble, adCurrency if isNumeric(iRealData) then if (request("multisearch_fd"&i) <> "") Then MultiSearch = request("multisearch_fd"&i) SearchArray = Split(MultiSearch,",",-1,1) if Qry_String = "" Then Qry_String = "search_fd"&i&"=" & iData Qry_String = Qry_String & "&multisearch_fd"&i& "=" & request("multisearch_fd"&i) Filter_String = "(" & Fields(i) & " " & iOpt & " " & iRealData for j = 0 To UBound(SearchArray) SearchIndex = Cint(SearchArray(j)) Filter_String = Filter_String & " OR " & Fields(SearchIndex) & " " & iOpt & " " & iRealData next Filter_String = Filter_String & ")" else Qry_String = Qry_String & "&search_fd"&i& "=" & iData Qry_String = Qry_String & "&multisearch_fd"&i& "=" & request("multisearch_fd"&i) Filter_String = Filter_String & " AND " & "(" & Fields(i) & " " & iOpt & " " & iRealData for j = 0 To UBound(SearchArray) SearchIndex = Cint(SearchArray(j)) Filter_String = Filter_String & " OR " & Fields(SearchIndex) & " " & iOpt & " " & iRealData next Filter_String = Filter_String & ")" end if else if Qry_String = "" Then Qry_String = "search_fd"&i&"=" & iData Filter_String = Fields(i) & " " & iOpt & " " & iRealData else Qry_String = Qry_String & "&search_fd"&i& "=" & iData Filter_String = Filter_String & " AND " & Fields(i) & " " & iOpt & " " & iRealData end if end if else Err_String = Err_String& "Error while searching " & Fld.name & ".
" Err_String = Err_String& "Description: Type mismatch.
" end if case adChar, adVarChar, adLongVarChar, adWChar, adVarWChar, adLongVarWChar if (Right(iStrData,1) = "*") then iStrData = Replace(iStrData,"*","%",1,-1,1) SearchEndKey = "" else istrdata = iRealData iStrData = Replace(iStrData,"*","%",1,-1,1) end if if ((iOpt = "=")) then ConditionStr = " Like " iStrData = Replace(iStrData,"=","",1,1,1) else ConditionStr = iOpt iStrData = iRealData end if if (request("multisearch_fd"&i) <> "") Then MultiSearch = request("multisearch_fd"&i) SearchArray = Split(MultiSearch,",",-1,1) if Qry_String = "" Then Qry_String = "search_fd"&i&"=" & QSURLencode(iData) Qry_String = Qry_String & "&multisearch_fd"&i&"=" & request("multisearch_fd"&i) Filter_String = "(" & Fields(i) & ConditionStr & " '" & SearchStartKey &QSReplaceSingleQuote(iStrData) & SearchEndKey & "'" for j = 0 To UBound(SearchArray) SearchIndex = Cint(SearchArray(j)) Filter_String = Filter_String & " OR " & Fields(SearchIndex) & ConditionStr & " '" & SearchStartKey &QSReplaceSingleQuote(iStrData) &SearchEndKey & "'" next Filter_String = Filter_String & ")" else Qry_String = Qry_String & "&search_fd"&i&"=" & QSURLencode(iData) Qry_String = Qry_String & "&multisearch_fd"&i&"=" & request("multisearch_fd"&i) Filter_String = Filter_String & " AND " & "(" & Fields(i) & ConditionStr & " '" & SearchStartKey &QSReplaceSingleQuote(iStrData) & SearchEndKey & "'" for j = 0 To UBound(SearchArray) SearchIndex = Cint(SearchArray(j)) Filter_String = Filter_String & " OR " & Fields(SearchIndex) & ConditionStr & " '" & SearchStartKey &QSReplaceSingleQuote(iStrData) & SearchEndKey & "'" next Filter_String = Filter_String & ")" end if else if Qry_String = "" Then Qry_String = "search_fd"&i&"=" & QSURLencode(iData) Filter_String = Fields(i) & ConditionStr & " '" & SearchStartKey &QSReplaceSingleQuote(iStrData) & SearchEndKey & "'" else Qry_String = Qry_String & "&search_fd"&i&"=" & QSURLencode(iData) Filter_String = Filter_String & " AND " & Fields(i) & ConditionStr & " '" & SearchStartKey &QSReplaceSingleQuote(iStrData) & SearchEndKey & "'" end if end if case else if (request("multisearch_fd"&i) <> "") Then MultiSearch = request("multisearch_fd"&i) SearchArray = Split(MultiSearch,",",-1,1) if Qry_String = "" Then Qry_String = "search_fd"&i&"=" & QSURLencode(iData) Qry_String = Qry_String & "&multisearch_fd"&i& "=" & request("multisearch_fd"&i) Filter_String = "(" & Fields(i) & " = '" & iRealData & "'" for j = 0 To UBound(SearchArray) SearchIndex = Cint(SearchArray(j)) Filter_String = Filter_String & " OR " & Fields(SearchIndex) & " = '" & iRealData & "'" next Filter_String = Filter_String & ")" else Qry_String = Qry_String & "&search_fd"&i& "=" & QSURLencode(iData) Qry_String = Qry_String & "&multisearch_fd"&i& "=" & request("multisearch_fd"&i) Filter_String = Filter_String & " AND " & "(" & Fields(i) & iOpt & "'" & iRealData & "'" for j = 0 To UBound(SearchArray) SearchIndex = Cint(SearchArray(j)) + 1 Filter_String = Filter_String & " OR " & Fields(SearchIndex) & iOpt & "'" & iRealData & "'" next Filter_String = Filter_String & ")" end if else if Qry_String = "" Then Qry_String = "search_fd"&i& "=" & QSURLencode(iData) Filter_String = Fields(i) & " = '" & QSReplaceSingleQuote(iRealData) & "'" else Qry_String = Qry_String & "&search_fd"&i& "=" & QSURLencode(iData) Filter_String = Filter_String & " AND " & Fields(i) & iOpt & "'" & QSReplaceSingleQuote(iRealData) & "'" end if end if end select end if i = i + 1 next RS.Close if (Filter_String <> "") then SQL = SQL & " Where " & Filter_String end if SortString = "" if (request("SortField") <> "") then SQL = SQL & " Order By " & request("SortField") & " " & request("SortBy") SortString = "SortField=" & request("SortField") & "&SortBy=" & request("SortBy") else SQL = SQL & " " & SQL_Ext end if RS.Open SQL, MyConn, 3, 1, 1 Current_Page = 1 Page_Count = 1 %> Cochrane Ontario Hotels And Motels, Lodgings - Over Night ICE Fishing Vacations, On Lake Abitibi

<% if (Filter_String <> "") then Response.Write("Found "& RS.RecordCount & " record(s)") end if if (RS.RecordCount > 0) then %> <% intRowCount = 0 Do While Not RS.EOF if intRowCount mod 2 = 0 then CssClass = """TrOdd""" else CssClass = """TrRows""" end if Response.Write "" intRowCount = intRowCount + 1 Rs.MoveNext Loop %>
" %>

<% CellValue = ""&Rs(1)&"" if CellValue = "" then CellValue = " " end if Response.Write CellValue %>   <% CellValue = ""&Rs(0)&"" if CellValue = "" then CellValue = " " end if Response.Write CellValue %>  

<% CellValue = ""&Rs(2)&"" if CellValue = "" then CellValue = " " end if Response.Write CellValue %>
<% CellValue = ""&Rs(3)&"" if CellValue = "" then CellValue = " " end if Response.Write CellValue %> <% CellValue = ""&Rs(4)&"" if CellValue = "" then CellValue = " " end if Response.Write CellValue %>
<% CellValue = "" if CellValue = "" then CellValue = " " end if Response.Write CellValue %>

<% CellValue = "" if CellValue = "" then CellValue = " " end if Response.Write CellValue %>

<% CellValue = "" if CellValue = "" then CellValue = " " end if Response.Write CellValue %>		 <% CellValue = ""&Rs(5)&"" if CellValue = "" then CellValue = " " end if Response.Write CellValue %>

 

<% CellValue = "" if CellValue = "" then CellValue = " " end if Response.Write "" &CellValue& "" %>

<% CellValue = "" if CellValue = "" then CellValue = " " end if Response.Write "" &CellValue& "" %> <% CellValue = "" if CellValue = "" then CellValue = " " end if Response.Write "" &CellValue& "" %>
<% CellValue = "" if CellValue = "" then CellValue = " " end if Response.Write "" &CellValue& "" %> <% CellValue = "" if CellValue = "" then CellValue = " " end if Response.Write "" &CellValue& "" %> <% CellValue = "" if CellValue = "" then CellValue = " " end if Response.Write "" &CellValue& "" %> <% CellValue = "" if CellValue = "" then CellValue = " " end if Response.Write "" &CellValue& "" %>

 

<% Response.Write "

<% else if (Filter_String <> "") then %>
No records matched your search criteria.

<% else %>
No record found.

<% end if end if %>

<% %> <% RS.Close Set RS = Nothing MyConn.Close Set MyConn = Nothing %>

 
Cool Sites • Our Bungalows • Pricing • The Spot • Hotels & Motels • Sign Our Guest Book • Contest-Derby • Trophy Room
This web master likes big fat content-rich web sites. If you don't.... It's because you need faster internet!