<%= title %>

We've gathered for you the best things happening around Lake Michigan. Browse through the categories, or, if you are looking for something in particular, use our search engine

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

Browse Listings

Categories
<% mySQL="SELECT DISTINCT ListingCategoryTB.Category FROM ListingCategoryTB INNER JOIN ListingTB ON ListingCategoryTB.ListingID=ListingTB.ListingID ORDER BY ListingCategoryTB.Category ASC" 'Response.Write mySQL Set catquery=Server.CreateObject("ADODB.Recordset") catquery.Open mySQL, Connect, adOpenStatic, adLockOptimistic if catquery.RecordCount>1 then %>
<% do until catquery.EOF %> #browse><%= catquery("Category") %>
<% if catquery("Category")=Request.QueryString("cat") then mySQL="SELECT DISTINCT ListingCategoryTB.SubCategory FROM ListingCategoryTB INNER JOIN ListingTB ON ListingCategoryTB.ListingID=ListingTB.ListingID AND (ListingCategoryTB.Category='" & Request.QueryString("cat") & "') AND (ListingCategoryTB.SubCategory<>'')ORDER BY ListingCategoryTB.SubCategory ASC" 'Response.Write mySQL Set subcatquery=Server.CreateObject("ADODB.Recordset") subcatquery.Open mySQL, Connect, adOpenStatic, adLockOptimistic if subcatquery.RecordCount>1 then %>
<% do until subcatquery.EOF If subcatquery("SubCategory") = Replace(Request.Querystring("subcat"),"#browse","") THEN style=" style='font-weight:bold;'" ELSE style="" END IF %> &subcat=<%=Server.URLEncode(subcatquery("SubCategory"))%>#browse <%=style%>><%= subcatquery("SubCategory") %>
<% subcatquery.MoveNext Loop %> <% end if if catquery("Category")="Real Estate" Then %> >Luxury Homes
<% End If %>
<% end if catquery.MoveNext Loop %>
<% end if %>
Regional
<% 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 %> &cat=<%=Server.URLEncode(request("cat"))%>&subcat=<%=Server.URLEncode(request("subcat"))%>#browse><%= varStateName %>
<% if varState(x)=Request.QueryString("state") then mySQL="SELECT DISTINCT ListingCategoryTB.Category FROM ListingCategoryTB INNER JOIN ListingTB ON ListingCategoryTB.ListingID=ListingTB.ListingID" if varState(x)<>"ALL" then mySQL=mySQL & " WHERE ListingTB.State LIKE '%" & varState(x) & "%'" end if mySQL=mySQL & " ORDER BY ListingCategoryTB.Category ASC" 'Response.Write mySQL Set catquery=Server.CreateObject("ADODB.Recordset") catquery.Open mySQL, Connect, adOpenStatic, adLockOptimistic if catquery.RecordCount>1 then %> <% end if end if x=x+1 Loop %>
<% mySQL="SELECT DISTINCT ListingTB.Name FROM ListingTB INNER JOIN ListingCategoryTB ON ListingTB.ListingID=ListingCategoryTB.ListingID" if Request.QueryString("state")<>"" AND Request.QueryString("state")<>"ALL" then mySQL=mySQL + " AND (ListingTB.State LIKE '%" & Request.QueryString("state") & "%')" end if if Request.QueryString("cat")<>"" then mySQL=mySQL + " AND (ListingCategoryTB.Category='" & Request.QueryString("cat") & "')" end if if Request.QueryString("subcat")<>"" then mySQL=mySQL + " AND (ListingCategoryTB.SubCategory='" & Request.QueryString("subcat") & "')" end if mySQL=mySQL + " AND (ListingTB.Status='Publish' OR ListingTB.Status='Featured' OR ListingTB.Status='Online Only') ORDER BY ListingTB.Name ASC" 'Response.Write mySQL Set query=Server.CreateObject("ADODB.Recordset") query.Open mySQL, Connect, adOpenStatic, adLockOptimistic if NOT query.EOF then z=Request.QueryString("z") query.Move z end if endnum=10 if (z+endnum)>=query.RecordCount then endz=query.RecordCount else endz=z+endnum end if if z=0 then z=1 else z=z+1 end if %> Viewing <%IF Request.QueryString("state")<>"" then%><%=request.querystring("state")%> | <%END IF%><% if Request.QueryString("cat")<>"" then %> <%= Request.QueryString("cat") %><% if Request.QueryString("subcat")<>"" then %> : <%= Request.QueryString("subcat") %><% end if %><% else %>all<% end if %>
<%= query.RecordCount %> listings found
Showing listings <%= z %> to <%= endz %> <% if query.EOF then %>
No entries found. Please check back soon! <% end if y= 0 do until query.EOF or y=10 varName=REPLACE(query("Name"),"'","''") mySQL="SELECT * FROM ListingTB WHERE (Name='" & varName & "')" 'Response.Write mySQL Set mainquery=Server.CreateObject("ADODB.Recordset") mainquery.Open mySQL, Connect, adOpenStatic, adLockOptimistic varStateReplace=mainquery("State") %> <% query.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> Previous <% end if if NOT query.EOF then z=Request.QueryString("z") z=z+y %> &cat=<%= Server.URLEncode(Request.QueryString("cat")) %>&subcat=<%= Server.URLEncode(Request.QueryString("subcat")) %>&z=<%= z %>#browse> Next <% end if %>

<% else %>

Search Results

Your search results are displayed on the right. If you want to expand your search, try searching again or browsing the categories below.

<% mySQL="SELECT DISTINCT ListingCategoryTB.Category FROM ListingCategoryTB INNER JOIN ListingTB ON ListingCategoryTB.ListingID=ListingTB.ListingID ORDER BY ListingCategoryTB.Category ASC" Set catquery=Server.CreateObject("ADODB.Recordset") catquery.Open mySQL, Connect, adOpenStatic, adLockOptimistic if catquery.RecordCount>1 then %>
<% do until catquery.EOF %> #browse><%= catquery("Category") %>
<% if catquery("Category")=Request.QueryString("cat") then mySQL="SELECT DISTINCT ListingCategoryTB.SubCategory FROM ListingCategoryTB INNER JOIN ListingTB ON ListingCategoryTB.ListingID=ListingTB.ListingID AND (ListingCategoryTB.Category='" & Request.QueryString("cat") & "') ORDER BY ListingCategoryTB.SubCategory ASC" Set subcatquery=Server.CreateObject("ADODB.Recordset") subcatquery.Open mySQL, Connect, adOpenStatic, adLockOptimistic if subcatquery.RecordCount>1 then %>
<% do until subcatquery.EOF If subcatquery("SubCategory") = Replace(Request.Querystring("subcat"),"#browse","") THEN style=" style='font-weight:bold;'" ELSE style="" END IF %> &subcat=<%= Server.URLEncode(subcatquery("SubCategory")) %>#browse <%=style%>><%= subcatquery("SubCategory") %>
<% subcatquery.MoveNext Loop %>
<% end if end if catquery.MoveNext Loop %>
<% end if %>
<% mySQL="SELECT DISTINCT ListingTB.Name FROM ListingTB INNER JOIN ListingCategoryTB ON ListingTB.ListingID=ListingCategoryTB.ListingID WHERE (Name<>'')" if Request.Form("Keyword")<>"" then keywords=Request.Form("Keyword") mySQL=mySQL & " AND (ListingTB.Name LIKE '" & keywords & "' OR ListingTB.Name LIKE '%" & chr(32) & keywords & chr(32) & "%' OR ListingTB.Name LIKE '%" & chr(32) & keywords & "' OR ListingTB.Name LIKE '" & keywords & chr(32) & "%' OR ListingTB.Description LIKE '%" & chr(32) & keywords & chr(32) & "%' OR ListingTB.Description LIKE '%" & chr(32) & keywords & "' OR ListingTB.Description LIKE '" & keywords & chr(32) & "%' OR ListingTB.Keywords LIKE '%" & chr(32) & keywords & chr(32) & "%' OR ListingTB.Keywords LIKE '%" & chr(32) & keywords & "' OR ListingTB.Keywords LIKE '" & keywords & chr(32) & "%')" end if if Request.Form("Category")<>"" then mySQL=mySQL & " AND (ListingCategoryTB.Category='" & Request.Form("Category") & "')" end if if Request.Form("State")<>"" then mySQL=mySQL & " AND (ListingTB.State LIKE '%" & Request.Form("State") & "%')" end if if Request.Form("City")<>"" AND Request.Form("City")<>"0" then mySQL=mySQL & " AND (ListingTB.City='" & Request.Form("City") & "')" end if mySQL=mySQL & " ORDER BY ListingTB.Name ASC" 'Response.Write mySQL Set query=Server.CreateObject("ADODB.Recordset") query.Open mySQL, Connect, adOpenStatic, adLockOptimistic if NOT query.EOF then z=Request.QueryString("z") query.Move z end if endnum=10 if (z+endnum)>=query.RecordCount then endz=query.RecordCount else endz=z+endnum end if if z=0 then z=1 else z=z+1 end if %> Searching <%IF Request.Form("state")<>"" then%><%IF Request.Form("city")<>"" then%><%=request.Form("city")%>, <%END IF%><%=request.Form("state")%> | <%END IF%><% if Request.Form("category")<>"" then %> <%= Request.Form("category") %><% if Request.Form("keyword")<>"" then %> : <%= Request.Form("keyword") %><% end if %><% end if %>
<%= query.RecordCount %> listings found
Showing listings <%= z %> to <%= endz %> <% if query.EOF then %>
We're sorry, but no listings were found with your search criteria. Please check back soon! <% end if y= 0 do until query.EOF or y=10 varName=REPLACE(query("Name"),"'","''") mySQL="SELECT * FROM ListingTB WHERE (Name='" & varName & "')" Set mainquery=Server.CreateObject("ADODB.Recordset") mainquery.Open mySQL, Connect, adOpenStatic, adLockOptimistic varStateReplace=mainquery("State") %> <% query.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 %> &subcat=<%= Server.URLEncode(Request.QueryString("subcat")) %>&z=<%= z %>#browse> Previous <% end if if NOT query.EOF then z=Request.QueryString("z") z=z+y %> &subcat=<%= Server.URLEncode(Request.QueryString("subcat")) %>&z=<%= z %>#browse> Next <% end if %>

<% end if %>

Find lake listings with our search tool! Use the form below to see area businesses.

Keyword