<% mySQL="SELECT DISTINCT(CalendarDateTB.EventID),MIN(CalendarDateTB.StartDate) AS sorter FROM CalendarDateTB INNER JOIN CalendarTB ON CalendarTB.EventID=CalendarDateTB.EventID WHERE (((CalendarDateTB.StartDate>='" & date &"') OR (CalendarDateTB.StartDate<='" & date &"' AND CalendarDateTB.EndDate>='" & date &"')) AND (CalendarTB.Status='Featured')) GROUP BY CalendarDateTB.EventID ORDER BY sorter" Set query=Server.CreateObject("ADODB.Recordset") query.Open mySQL, Connect, adOpenStatic, adLockOptimistic %> <% if NOT query.EOF then ' CREATE RANDOM NUMBER Randomize Timer / RND intRangeSize=query.RecordCount sngRandomValue = intRangeSize * RND() varRandomNumber=Int(sngRandomValue) + 1 query.Move varRandomNumber-1 mySQL="SELECT * FROM CalendarTB WHERE (EventID='" & query("EventID") &"')" Set query=Server.CreateObject("ADODB.Recordset") query.Open mySQL, Connect, adOpenStatic, adLockOptimistic varStateReplace=query("State") %>

"><%= query("Name") %>

<%= query("City") %><% if query("State")<>"" then %>, <%= query("State") %><% end if %> ">(details)

<% varSummary= replace(query("Summary"), chr(13), "
") %> <%= varSummary %>

<%= query("Location") %>
<% if query("Address")<>"" then %><%= query("Address") %>
<% end if %> <%= query("City") %><% if varStateReplace<>"" then %>, <%= varStateReplace %><% end if %> <% if query("Address")<>"" AND query("City")<>"" AND varStateReplace<>"" then %>
target=new>view map and get directions<% end if %>

<% if query("Telephone")<>"" then %><%= query("Telephone") %> (phone)
<% end if %> <% if query("Website")<>"" then %> target=new><%= query("Website") %><% end if %>

<% if Request.QueryString("type")<>"search" then %>

<% dim varState(10) varState(1)="IL" varState(2)="IN" varState(3)="MI" varState(4)="WI" varState(5)="ALL" x=1 endnum=5 %> <% do until x>endnum %> <% if varState(x)="IL" then varStateName="Illinois" end if if varState(x)="IN" then varStateName="Indiana" end if if varState(x)="MI" then varStateName="Michigan" end if if varState(x)="WI" then varStateName="Wisconsin" end if if varState(x)="ALL" then varStateName="All Regions" end if %> #browse> <%= UCASE(varStateName) %> <% if varState(x)=Request.QueryString("state") then %> <% Set filesys=CreateObject("Scripting.FileSystemObject") Set txtfile=filesys.OpenTextFile(Server.MapPath("\inc_var_category_events.txt"),1,0) Do Until txtfile.AtEndOfStream category=txtfile.Readline %> &cat=<%= Server.URLEncode(category) %>#browse><%= category %> <% Loop txtfile.Close %> <% end if %> <% x=x+1 Loop %>		<% mySQL="SELECT DISTINCT(CalendarDateTB.EventID),MIN(CalendarDateTB.StartDate) AS sorter FROM CalendarDateTB INNER JOIN CalendarTB ON CalendarTB.EventID=CalendarDateTB.EventID WHERE (((CalendarDateTB.StartDate>='" & date &"') OR (CalendarDateTB.StartDate<='" & date &"' AND CalendarDateTB.EndDate>='" & date &"')) AND (CalendarTB.Status='Publish' OR CalendarTB.Status='Featured')" if Request.QueryString("cat")<>"" then mySQL=mySQL & " AND (CalendarTB.Category='" & Request.QueryString("cat") & "')" end if if Request.QueryString("state")<>"" AND Request.QueryString("state")<>"NA" AND Request.QueryString("state")<>"ALL" then mySQL=mySQL & " AND (CalendarTB.State LIKE '%" & Request.QueryString("state") & "%')" end if if Request.QueryString("state")="NA" then mySQL=mySQL & " AND (CalendarTB.State NOT LIKE '%IN%' AND CalendarTB.State NOT LIKE '%IL%' AND CalendarTB.State NOT LIKE '%MI%')" end if mySQL=mySQL & ") GROUP BY CalendarDateTB.EventID ORDER BY sorter" Set mainquery=Server.CreateObject("ADODB.Recordset") mainquery.Open mySQL, Connect, adOpenStatic, adLockOptimistic if NOT mainquery.EOF then z=Request.QueryString("z") mainquery.Move z end if endnum=10 if (z+endnum)>=mainquery.RecordCount then endz=mainquery.RecordCount else endz=z+endnum end if if z=0 then z=1 else z=z+1 end if %> <%= mainquery.RecordCount %> listings found Showing listings <%= z %> to <%= endz %> <% if mainquery.EOF then %> We're sorry, but we currently don't have any events entered for <%= Request.QueryString("cat") %>. Please check back soon! <% end if %> <% y= 0 %> <% do until mainquery.EOF or y=10 %> <% mySQL="SELECT * FROM CalendarTB WHERE (EventID='" & mainquery("EventID") &"')" Set query=Server.CreateObject("ADODB.Recordset") query.Open mySQL, Connect, adOpenStatic, adLockOptimistic if NOT query.EOF then varStateReplace=query("State") %> <% end if %> <% mainquery.MoveNext y=y+1 if x=0 then x=1 else x=0 end if %> <% loop %> <% if z=>endnum then %> <% z=z-endnum-1 if z<=0 then z=0 end if %> &cat=<%= Server.URLEncode(Request.QueryString("cat")) %>&subcat=<%= Server.URLEncode(Request.QueryString("subcat")) %>&z=<%= z %>#browse> <% end if %> <% if NOT mainquery.EOF then %> <% z=Request.QueryString("z") z=z+y %> &cat=<%= Server.URLEncode(Request.QueryString("cat")) %>&subcat=<%= Server.URLEncode(Request.QueryString("subcat")) %>&z=<%= z %>#browse> <% end if %>

<% else %>

Your search results are displayed on the right. If you want to expand your search, try searching again or browsing the categories below. <% redim varState(10) varState(1)="IL" varState(2)="IN" varState(3)="MI" varState(4)="WI" varState(5)="ALL" x=1 endnum=5 %> <% do until x>endnum %> <% if varState(x)="IL" then varStateName="Illinois" end if if varState(x)="IN" then varStateName="Indiana" end if if varState(x)="MI" then varStateName="Michigan" end if if varState(x)="WI" then varStateName="Wisconsin" end if if varState(x)="ALL" then varStateName="All Regions" end if %> #browse> <%= UCASE(varStateName) %> <% if varState(x)=Request.QueryString("state") then %> <% Set filesys=CreateObject("Scripting.FileSystemObject") Set txtfile=filesys.OpenTextFile(Server.MapPath("\inc_var_category_events.txt"),1,0) Do Until txtfile.AtEndOfStream category=txtfile.Readline %> &cat=<%= Server.URLEncode(category) %>#browse><%= category %> <% Loop txtfile.Close %> <% end if %> <% x=x+1 Loop %>		<% if Request.QueryString("sql")="ny" then mySQL="SELECT DISTINCT(CalendarDateTB.EventID),MIN(CalendarDateTB.StartDate) AS sorter FROM CalendarDateTB INNER JOIN CalendarTB ON CalendarTB.EventID=CalendarDateTB.EventID WHERE (((CalendarDateTB.StartDate>='" & Request.Form("StartDate") &"' AND CalendarDateTB.EndDate<='" & Request.Form("StartDate") &"') OR (CalendarDateTB.StartDate>='" & Request.Form("StartDate") &"' AND CalendarDateTB.EndDate<='" & Request.Form("EndDate") &"') OR (CalendarDateTB.EndDate>='" & Request.Form("StartDate") &"' AND CalendarDateTB.EndDate<='" & Request.Form("EndDate") &"') OR (CalendarDateTB.StartDate<='" & Request.Form("EndDate") &"' AND CalendarDateTB.StartDate>='" & Request.Form("StartDate") &"')) AND (CalendarTB.Status='Publish' OR CalendarTB.Status='Featured')" if Request.Form("Category")<>"" then mySQL=mySQL & " AND (CalendarTB.Category='" & Request.Form("Category") & "')" end if if Request.Form("State")<>"" then mySQL=mySQL & " AND (CalendarTB.State='" & Request.Form("State") & "')" end if mySQL=mySQL & ") GROUP BY CalendarDateTB.EventID ORDER BY sorter" Response.Cookies("SQLEventSearch")=mySQL else mySQL=Request.Cookies("SQLEventSearch") end if Set mainquery=Server.CreateObject("ADODB.Recordset") mainquery.Open mySQL, Connect, adOpenStatic, adLockOptimistic if NOT mainquery.EOF then z=Request.QueryString("z") mainquery.Move z end if endnum=10 if (z+endnum)>=mainquery.RecordCount then endz=mainquery.RecordCount else endz=z+endnum end if if z=0 then z=1 else z=z+1 end if %> <%= mainquery.RecordCount %> listings found Showing listings <%= z %> to <%= endz %> <% if mainquery.EOF then %> We're sorry, but we currently don't have any events entered for <%= Request.QueryString("cat") %>. Please check back soon! <% end if %> <% y= 0 %> <% do until mainquery.EOF or y=10 %> <% mySQL="SELECT * FROM CalendarTB WHERE (EventID='" & mainquery("EventID") &"')" Set query=Server.CreateObject("ADODB.Recordset") query.Open mySQL, Connect, adOpenStatic, adLockOptimistic if NOT query.EOF then varStateReplace=query("State") %> <% end if %> <% mainquery.MoveNext y=y+1 if x=0 then x=1 else x=0 end if %> <% loop %> <% if z=>endnum then %> <% z=z-endnum-1 if z<=0 then z=0 end if %> #searchresults> <% end if %> <% if NOT mainquery.EOF then %> <% z=Request.QueryString("z") z=z+y %> #searchresults> <% end if %>

<% end if %>

Find something to do with our search tool! Use the form below to see what is coming up. Category   selected<% end if %>> All <% Set filesys=CreateObject("Scripting.FileSystemObject") Set txtfile=filesys.OpenTextFile(Server.MapPath("\inc_var_category_events.txt"),1,0) Do Until txtfile.AtEndOfStream category=txtfile.Readline %> <%= category %> <% Loop txtfile.Close %> State   All Michigan Indiana Illinois Dates   to