<%@Language=VBScript%> <% 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 SQLMaster ' SQL Statement dim SQL_ExtMaster ' 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 iData dim iRealData dim iStrData dim iOpt dim iCon dim iOldCon dim Qry_String dim NavQry_String dim Filter_String dim Filter_StringMaster dim iConMaster 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 %> <% 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 if request("clearsession") = "1" then session.contents.remove("summer_camp_listing_view_summer_camp_listing_view") end if RS.CursorLocation = 3 ParamPage = split(Session("summer_camp_listing_view_summer_camp_listing_view"), "||") n = ubound(ParamPage) Current_Page = 1 Page_Size = 20 if (n > 0) then if (ParamPage(0) <> "") then Current_Page = cint(ParamPage(0)) end if if (ParamPage(1) <> "") then Page_Size = cint(ParamPage(1)) end if end if if (request("Page") <> "") then Current_Page = cint(request("Page")) end if if (request("Page_Size") <> "") then if (request("Page_Size") <> Page_Size) then Current_Page = 1 end if Page_Size = cint(request("Page_Size")) end if if request("SortField") <> "" then Session("summer_camp_listing_view_SortField") = request("SortField") end if if request("SortBy") <> "" then Session("summer_camp_listing_view_SortBy") = request("SortBy") end if Session("summer_camp_listing_view_summer_camp_listing_view") = Current_Page&"||"&Page_Size RS.PageSize = 20 QuoteChar = "`" QuoteDate = "#" SQL = "" SQL_Ext = "" Redim Fields(18) Redim ParamMaster(18) Fields(0) = "`Camp Listing`.`Control`" Fields(1) = "`Camp Listing`.`User_Name`" Fields(2) = "`Camp Listing`.`User_Password`" Fields(3) = "`Camp Listing`.`User_Level`" Fields(4) = "`Camp Listing`.`Camp_Name`" Fields(5) = "`Camp Listing`.`Address`" Fields(6) = "`Camp Listing`.`City`" Fields(7) = "`Camp Listing`.`State`" Fields(8) = "`Camp Listing`.`Zip`" Fields(9) = "`Camp Listing`.`Camp_Type`" Fields(10) = "`Camp Listing`.`Camp_description`" Fields(11) = "`Camp Listing`.`Camp_Website`" Fields(12) = "`Camp Listing`.`Camp_Email`" Fields(13) = "`Camp Listing`.`Camp_Phone`" Fields(14) = "`Camp Listing`.`Camp-Directions`" Fields(15) = "`Camp Listing`.`LogoID`" Fields(16) = "`Camp Listing`.`PicFileName`" Fields(17) = "`Camp Listing`.`WebActive`" SQL = SQL & " Select" & vbCrLf SQL = SQL & " `Camp Listing`.`Control`," & vbCrLf SQL = SQL & " `Camp Listing`.`User_Name`," & vbCrLf SQL = SQL & " `Camp Listing`.`User_Password`," & vbCrLf SQL = SQL & " `Camp Listing`.`User_Level`," & vbCrLf SQL = SQL & " `Camp Listing`.`Camp_Name`," & vbCrLf SQL = SQL & " `Camp Listing`.`Address`," & vbCrLf SQL = SQL & " `Camp Listing`.`City`," & vbCrLf SQL = SQL & " `Camp Listing`.`State`," & vbCrLf SQL = SQL & " `Camp Listing`.`Zip`," & vbCrLf SQL = SQL & " `Camp Listing`.`Camp_Type`," & vbCrLf SQL = SQL & " `Camp Listing`.`Camp_description`," & vbCrLf SQL = SQL & " `Camp Listing`.`Camp_Website`," & vbCrLf SQL = SQL & " `Camp Listing`.`Camp_Email`," & vbCrLf SQL = SQL & " `Camp Listing`.`Camp_Phone`," & vbCrLf SQL = SQL & " `Camp Listing`.`Camp-Directions`," & vbCrLf SQL = SQL & " `Camp Listing`.`LogoID`," & vbCrLf SQL = SQL & " `Camp Listing`.`PicFileName`," & vbCrLf SQL = SQL & " `Camp Listing`.`WebActive`" & vbCrLf SQL = SQL & " From" & vbCrLf SQL = SQL & " `Camp Listing` `Camp Listing`" & vbCrLf Redim SearchMode(18) Redim StdSearchOpt(18) SearchMode(0) = 0 SearchMode(1) = 0 SearchMode(2) = 0 SearchMode(3) = 0 SearchMode(4) = 1 SearchMode(5) = 0 SearchMode(6) = 0 SearchMode(7) = 0 SearchMode(8) = 0 SearchMode(9) = 0 SearchMode(10) = 0 SearchMode(11) = 1 SearchMode(12) = 0 SearchMode(13) = 0 SearchMode(14) = 0 SearchMode(15) = 0 SearchMode(16) = 0 SearchMode(17) = 0 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 StdSearchOpt(17) = 0 RS.Open SQL & " " & SQL_Ext, MyConn, 3, 1, 1 Filter_StringMaster = "" iConMaster = "" Filter_String = "" Qry_String = "" i = 0 for each Fld in RS.Fields if request("clearsession") = "1" then session.contents.remove("summer_camp_listing_view_search_fd"&i) session.contents.remove("summer_camp_listing_view_multisearch_fd"&i) session.contents.remove("summer_camp_listing_view_search_fd_"&i) end if if request("search_fd"&i) <> "" then session("summer_camp_listing_view_search_fd"&i) = request("search_fd"&i) end if if request("multisearch_fd"&i) <> "" then session("summer_camp_listing_view_multisearch_fd"&i) = request("multisearch_fd"&i) end if if request("search_fd_"&i) <> "" then session("summer_camp_listing_view_search_fd_"&i) = request("search_fd_"&i) end if if (SearchMode(i)=0) then ' 0 = Std, 1 = Advance if ((StdSearchOpt(i))=0) then ' 0=Contain , 1 = Equal, 2 = Between : for standard mode SearchStartKey = "%" SearchEndKey = "%" else SearchStartKey = "" SearchEndKey = "" end if else SearchStartKey = "" SearchEndKey = "" end if if (session("summer_camp_listing_view_search_fd"&i) <> "") and (session("summer_camp_listing_view_search_fd"&i) <> "*") then iData = session("summer_camp_listing_view_search_fd"&i) if Filter_StringMaster <> "" then iConMaster = " AND " end if iCon = " AND " iOldCon = "" if Left(iData,2) = "||" then iCon = " Or " iOpt = Mid(iData,3,2) iData = Right(iData,Len(iData) - 2) iOldCon = "||" else iOpt = Left(iData,2) end if iRealData = iData iStrData = Replace(iData,"*","%",1,1,1) 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 (session("summer_camp_listing_view_multisearch_fd"&i) <> "") Then MultiSearch = session("summer_camp_listing_view_multisearch_fd"&i) SearchArray = Split(MultiSearch,",",-1,1) if Qry_String = "" Then Qry_String = "search_fd"&i&" " & "=" & iOldCon & iData Qry_String = Qry_String & "&multisearch_fd"&i& "=" & session("summer_camp_listing_view_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& "=" & iOldCon & iData Qry_String = Qry_String & "&multisearch_fd"&i&"=" & session("summer_camp_listing_view_multisearch_fd"&i) Filter_String = Filter_String & iCon & "(" & 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& "=" & iOldCon & iData Filter_String = Fields(i) & " " & iOpt & " " & iRealData & " " if ParamMaster(i) <> "" then Filter_StringMaster = Filter_StringMaster & ParamMaster(i) & " " & iOpt & " " & iRealData & " " end if else Qry_String = Qry_String & "&search_fd"&i& "=" & iOldCon & iRealData Filter_String = Filter_String & iCon & Fields(i) & " " & iOpt & " " & iRealData & " " if ParamMaster(i) <> "" then Filter_StringMaster = Filter_StringMaster & iConMaster & ParamMaster(i) & " " & iOpt & " " & iRealData & " " end if 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 (session("summer_camp_listing_view_multisearch_fd"&i) <> "") Then MultiSearch = session("summer_camp_listing_view_multisearch_fd"&i) SearchArray = Split(MultiSearch,",",-1,1) if Qry_String = "" Then Qry_String = "search_fd"&i&"=" & iOldCon & QSURLencode(iData) Qry_String = Qry_String & "&multisearch_fd"&i&"=" & session("summer_camp_listing_view_multisearch_fd"&i) Filter_String = "(" & Fields(i) & ConditionStr & " " & QuoteDate & QSReplaceSingleQuote(iStrData) & QuoteDate for j = 0 To UBound(SearchArray) SearchIndex = Cint(SearchArray(j)) Filter_String = Filter_String & " OR " & Fields(SearchIndex) & ConditionStr & " " & QuoteDate & QSReplaceSingleQuote(iStrData) & QuoteDate next Filter_String = Filter_String & ")" else Qry_String = Qry_String & "&search_fd"&i&"=" & iOldCon & QSURLencode(iData) Qry_String = Qry_String & "&multisearch_fd"&i&"=" & session("summer_camp_listing_view_multisearch_fd"&i) Filter_String = Filter_String & iCon & "(" & Fields(i) & ConditionStr & " " & QuoteDate & QSReplaceSingleQuote(iStrData) & QuoteDate for j = 0 To UBound(SearchArray) SearchIndex = Cint(SearchArray(j)) Filter_String = Filter_String & " OR " & Fields(SearchIndex) & ConditionStr & " " & QuoteDate & QSReplaceSingleQuote(iStrData) & QuoteDate next Filter_String = Filter_String & ")" end if else if Qry_String = "" Then Qry_String = "search_fd"&i&"=" & iOldCon & QSURLencode(iData) Filter_String = Fields(i) & ConditionStr & " " & QuoteDate & QSReplaceSingleQuote(iStrData) & QuoteDate if ParamMaster(i) <> "" then Filter_StringMaster = Filter_StringMaster & ParamMaster(i) & ConditionStr & " " & QuoteDate & QSReplaceSingleQuote(iStrData) & QuoteDate end if else Qry_String = Qry_String & "&search_fd"&i&"=" & iOldCon & QSURLencode(iData) Filter_String = Filter_String & iCon & Fields(i) & ConditionStr & " " & QuoteDate & QSReplaceSingleQuote(iStrData) & QuoteDate if ParamMaster(i) <> "" then Filter_StringMaster = Filter_StringMaster & iConMaster & ParamMaster(i) & ConditionStr & " " & QuoteDate & QSReplaceSingleQuote(iStrData) & QuoteDate end if end if end if case adBigInt, adUnsignedBigInt, adTinyInt, adSmallInt, adError, adInteger, adUnsignedInt, adUnsignedTinyInt, adUnsignedSmallInt, adDecimal, adNumeric, adVarNumeric if isNumeric(iRealData) then if (session("summer_camp_listing_view_multisearch_fd"&i) <> "") Then MultiSearch = session("summer_camp_listing_view_multisearch_fd"&i) SearchArray = Split(MultiSearch,",",-1,1) if Qry_String = "" Then Qry_String = "search_fd"&i&"=" & iOldCon & iData Qry_String = Qry_String & "&multisearch_fd"&i& "=" & session("summer_camp_listing_view_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&"=" & iOldCon & iData Qry_String = Qry_String & "&multisearch_fd"&i& "=" & session("summer_camp_listing_view_multisearch_fd"&i) Filter_String = Filter_String & iCon & "(" & 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&"=" & iOldCon & iData Filter_String = Fields(i) & " " & iOpt & " " & iRealData if ParamMaster(i) <> "" then Filter_StringMaster = Filter_StringMaster & ParamMaster(i) & " " & iOpt & " " & iRealData end if else Qry_String = Qry_String & "&search_fd"&i& "=" & iOldCon & iData Filter_String = Filter_String & iCon & Fields(i) & " " & iOpt & " " & iRealData if ParamMaster(i) <> "" then Filter_StringMaster = Filter_StringMaster & iConMaster & ParamMaster(i) & " " & iOpt & " " & iRealData end if 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 (session("summer_camp_listing_view_multisearch_fd"&i) <> "") Then MultiSearch = session("summer_camp_listing_view_multisearch_fd"&i) SearchArray = Split(MultiSearch,",",-1,1) if Qry_String = "" Then Qry_String = "search_fd"&i&"=" & iOldCon & iData Qry_String = Qry_String & "&multisearch_fd"&i& "=" & session("summer_camp_listing_view_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& "=" & iOldCon & iData Qry_String = Qry_String & "&multisearch_fd"&i& "=" & session("summer_camp_listing_view_multisearch_fd"&i) Filter_String = Filter_String & iCon & "(" & 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&"=" & iOldCon & iData Filter_String = Fields(i) & " " & iOpt & " " & iRealData if ParamMaster(i) <> "" then Filter_StringMaster = Filter_StringMaster & ParamMaster(i) & " " & iOpt & " " & iRealData end if else Qry_String = Qry_String & "&search_fd"&i& "=" & iOldCon & iData Filter_String = Filter_String & iCon & Fields(i) & " " & iOpt & " " & iRealData if ParamMaster(i) <> "" then Filter_StringMaster = Filter_StringMaster & iConMaster & ParamMaster(i) & " " & iOpt & " " & iRealData end if 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 (session("summer_camp_listing_view_multisearch_fd"&i) <> "") Then MultiSearch = session("summer_camp_listing_view_multisearch_fd"&i) SearchArray = Split(MultiSearch,",",-1,1) if Qry_String = "" Then Qry_String = "search_fd"&i&"=" & iOldCon & QSURLencode(iData) Qry_String = Qry_String & "&multisearch_fd"&i&"=" & session("summer_camp_listing_view_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&"=" & iOldCon & QSURLencode(iData) Qry_String = Qry_String & "&multisearch_fd"&i&"=" & session("summer_camp_listing_view_multisearch_fd"&i) Filter_String = Filter_String & iCon & "(" & 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&"=" & iOldCon & QSURLencode(iData) Filter_String = Fields(i) & ConditionStr & " '" & SearchStartKey &QSReplaceSingleQuote(iStrData) & SearchEndKey & "'" if ParamMaster(i) <> "" then Filter_StringMaster = ParamMaster(i) & ConditionStr & " '" & SearchStartKey &QSReplaceSingleQuote(iStrData) & SearchEndKey & "'" end if else Qry_String = Qry_String & "&search_fd"&i&"=" & iOldCon & QSURLencode(iData) Filter_String = Filter_String & iCon & Fields(i) & ConditionStr & " '" & SearchStartKey &QSReplaceSingleQuote(iStrData) & SearchEndKey & "'" if ParamMaster(i) <> "" then Filter_StringMaster = Filter_StringMaster & iConMaster & ParamMaster(i) & ConditionStr & " '" & SearchStartKey &QSReplaceSingleQuote(iStrData) & SearchEndKey & "'" end if end if end if case else if (session("summer_camp_listing_view_multisearch_fd"&i) <> "") Then MultiSearch = session("summer_camp_listing_view_multisearch_fd"&i) SearchArray = Split(MultiSearch,",",-1,1) if Qry_String = "" Then Qry_String = "search_fd"&i&"=" & iOldCon & QSURLencode(iData) Qry_String = Qry_String & "&multisearch_fd"&i& "=" & session("summer_camp_listing_view_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& "=" & iOldCon & QSURLencode(iData) Qry_String = Qry_String & "&multisearch_fd"&i& "=" & session("summer_camp_listing_view_multisearch_fd"&i) Filter_String = Filter_String & iCon & "(" & 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& "=" & iOldCon & QSURLencode(iData) Filter_String = Fields(i) & " = '" & QSReplaceSingleQuote(iRealData) & "'" if ParamMaster(i) <> "" then Filter_StringMaster = Filter_StringMaster & ParamMaster(i) & " = '" & QSReplaceSingleQuote(iRealData) & "'" end if else Qry_String = Qry_String & "&search_fd"&i& "=" & iOldCon & QSURLencode(iData) Filter_String = Filter_String & iCon & Fields(i) & iOpt & "'" & QSReplaceSingleQuote(iRealData) & "'" if ParamMaster(i) <> "" then Filter_StringMaster = Filter_StringMaster & iConMaster & ParamMaster(i) & iOpt & "'" & QSReplaceSingleQuote(iRealData) & "'" end if end if end if end select end if if (session("summer_camp_listing_view_search_fd_"&i) <> "") then iData = session("summer_camp_listing_view_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 select case Fld.Type 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 Qry_String = "" Then Qry_string = "search_fd_"&i& "=" & iOpt & Qsurlencode(iStrData) Filter_String = Filter_String & Fields(i) & ConditionStr & " " & QuoteDate & SearchStartKey &QSReplaceSingleQuote(iStrData) & SearchEndKey & QuoteDate Else Qry_string = Qry_string & "&search_fd_"&i& "=" & iOpt & Qsurlencode(iStrData) Filter_String =Filter_String & " AND " & Fields(i) & ConditionStr & " " & QuoteDate & SearchStartKey &QSReplaceSingleQuote(iStrData) & SearchEndKey & QuoteDate End If case adBigInt, adUnsignedBigInt, adTinyInt, adSmallInt, adError, adInteger, adUnsignedInt, adUnsignedTinyInt, adUnsignedSmallInt, adDecimal, adNumeric, adVarNumeric,adSingle, adDouble, adCurrency if isNumeric(iRealData) then if Qry_String = "" Then Qry_String = "search_fd_"&i&"=" & iOpt & iRealData Filter_String = Fields(i) & " " & iOpt & " " & iRealData else Qry_String = Qry_String & "&search_fd_"&i& "=" & iOpt & iRealData Filter_String = Filter_String & " AND " & Fields(i) & " " & iOpt & " " & iRealData end if else Err_String = Err_String& "Error:while searching." & Fld.name & ".
" Err_String = Err_String& "Description: Type mismatch.
" end if end select end if i = i + 1 next RS.Close if (Filter_String <> "") then Filter_String = "(" & Filter_String & ")" if InStr(UCase(SQL), "WHERE") > 0 then SQL = SQL & " And " & Filter_String else SQL = SQL & " Where " & Filter_String end if end if SortString = "" if (Session("summer_camp_listing_view_SortField") <> "") then SQL = SQL & " Order By " & Session("summer_camp_listing_view_SortField") & " " & Session("summer_camp_listing_view_SortBy") SortString = "&SortField=" & Session("summer_camp_listing_view_SortField") & "&SortBy=" & Session("summer_camp_listing_view_SortBy") else SQL = SQL & " " & SQL_Ext end if %> Camps
 

 Submit/Modity A Summer Camp Listing-Free

Summer Camp Listings
Are you a camper and wish to suggest a camp listing

The KenMat Foundation does not endorse all camps listed below.  This camp listing is provided as a service to the community for available summer youth activities.  The KenMat Foundation reserves the right to remove any listing which is deemed inappropriate for this site.

 

"> "> <%CssClass = """TrOdd"""%> <% if Err_String <> "" then Response.Write "" Response.Write "" Response.Write "" Response.Write "" end if %> <% if isEmpty(session("summer_camp_listing_view_search_fd9")) or (session("summer_camp_listing_view_search_fd9") = "*") then ItemValue = "*" else ItemValue = session("summer_camp_listing_view_search_fd9") iOpt = Left(ItemValue,2) if (iOpt = "==") then ItemValue = Right(ItemValue,Len(ItemValue) - 2) end if end if CellValue = "" CellValue = CellValue & "" if CellValue = "" then CellValue = "  + sCrLf;" end if %>
Error:" &Err_String& "
Category : <%=CellValue%>

<% RS.Open SQL, MyConn, 3, 1, 1 if (Filter_String <> "") then Response.Write("Found "& RS.RecordCount & " record(s)") Response.Write("
") end if Page_Count = RS.PageCount if Current_Page > Page_Count Then Current_Page = 1 if Current_Page < 1 Then Current_Page = 1 if Page_Count > 0 then RS.AbsolutePage = Current_Page if Page_Count < 1 then Page_Count = 1 %> <% if Qry_String <> "" then NavQry_String = "&" & Qry_String else NavQry_String = "" end if Response.Write "Show All | " Response.Write "Search | " if (Current_Page mod 20) = 0 then StartPage = Current_Page - 19 else StartPage = Current_Page - (Current_Page mod 20) + 1 end if if (StartPage <> 1) then Response.Write(" ... | ") end if if Current_Page = 1 then Response.Write "Previous | " else Response.Write "Previous | " end if for i = 0 to 19 if (StartPage + i) <= Page_Count then if (StartPage + i) = Current_Page then Response.Write "" &(StartPage + i)& " | " else Response.Write"" &(StartPage + i)& " | " end if end if next if Current_Page = Page_Count then Response.Write "Next" else Response.Write "Next" end if if ((StartPage + 19)< Page_Count) then Response.Write(" | ... ") end if Response.Write "

" %> <% if (RS.RecordCount > 0) then %> <% NextSortASC = qssortasc(Session("summer_camp_listing_view_SortField"), Fields(4), Session("summer_camp_listing_view_SortBy"), "Sort Ascending") NextSortDESC = qssortdesc(Session("summer_camp_listing_view_SortField"), Fields(4), Session("summer_camp_listing_view_SortBy"), "Sort Ascending") %> <% NextSortASC = qssortasc(Session("summer_camp_listing_view_SortField"), Fields(9), Session("summer_camp_listing_view_SortBy"), "Sort Ascending") NextSortDESC = qssortdesc(Session("summer_camp_listing_view_SortField"), Fields(9), Session("summer_camp_listing_view_SortBy"), "Sort Ascending") %> <% NextSortASC = qssortasc(Session("summer_camp_listing_view_SortField"), Fields(6), Session("summer_camp_listing_view_SortBy"), "Sort Ascending") NextSortDESC = qssortdesc(Session("summer_camp_listing_view_SortField"), Fields(6), Session("summer_camp_listing_view_SortBy"), "Sort Ascending") %> <% NextSortASC = qssortasc(Session("summer_camp_listing_view_SortField"), Fields(8), Session("summer_camp_listing_view_SortBy"), "Sort Ascending") NextSortDESC = qssortdesc(Session("summer_camp_listing_view_SortField"), Fields(8), Session("summer_camp_listing_view_SortBy"), "Sort Ascending") %> <% intRowCount = 0 Do While RS.AbsolutePage = Current_Page And Not RS.EOF if (intRowCount mod 2) = 0 then CssClass = "TrOdd" else CssClass = "TrRows" end if Response.write "" CellValue = "" & Rs(4) & "" if CellValue <> "" then CellValue = replace(Cellvalue,vbCrLf,"
") else Cellvalue = " " end if Response.Write "" CellValue = "" & Rs(9) & "" if CellValue <> "" then CellValue = replace(Cellvalue,vbCrLf,"
") else Cellvalue = " " end if Response.Write "" CellValue = "" & Rs(6) & "" if CellValue <> "" then CellValue = replace(Cellvalue,vbCrLf,"
") else Cellvalue = " " end if Response.Write "" CellValue = "" & QSFormatNumber(Rs(8),0,0,0,0) & "" if CellValue = "" then CellValue = " " end if Response.Write "" CellValue = "" & Rs(11) & "" if CellValue <> "" then CellValue = replace(Cellvalue,vbCrLf,"
") else Cellvalue = " " end if Response.Write "" CellValue = "" if CellValue <> "" then CellValue = replace(Cellvalue,vbCrLf,"
") else Cellvalue = " " end if Response.Write "" CellValue = "" if CellValue <> "" then CellValue = replace(Cellvalue,vbCrLf,"
") else Cellvalue = " " end if Response.Write "" Response.Write "" intRowCount = intRowCount + 1 Rs.MoveNext Loop %>
<%=NextSortASC%>  Camp Name  <%=NextSortDESC %><%=NextSortASC%>  Camp Type  <%=NextSortDESC %><%=NextSortASC%>  Location  <%=NextSortDESC %><%=NextSortASC%>  Zip  <%=NextSortDESC %> Camp Website Details E-mail Us
" &CellValue& "" &CellValue& "" &CellValue& "" &CellValue& "" &CellValue& "" &CellValue& "" &CellValue& "

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

<% else %>
No record found.

<% end if end if %> <% if Qry_String <> "" then NavQry_String = "&" & Qry_String else NavQry_String = "" end if Response.Write "Show All | " Response.Write "Search | " if (Current_Page mod 20) = 0 then StartPage = Current_Page - 19 else StartPage = Current_Page - (Current_Page mod 20) + 1 end if if (StartPage <> 1) then Response.Write(" ... | ") end if if Current_Page = 1 then Response.Write "Previous | " else Response.Write "Previous | " end if for i = 0 to 19 if (StartPage + i) <= Page_Count then if (StartPage + i) = Current_Page then Response.Write "" &(StartPage + i)& " | " else Response.Write"" &(StartPage + i)& " | " end if end if next if Current_Page = Page_Count then Response.Write "Next" else Response.Write "Next" end if if ((StartPage + 19)< Page_Count) then Response.Write(" | ... ") end if Response.Write "

" %> <% RS.Close set RS = Nothing MyConn.Close set MyConn = Nothing %>
 

Copyright © 2004 The KenMat Foundation, Inc.

Home