<%= query("Name") %>
<% if query("Address1")<>"" then %><%= query("Address1") %><% end if %> <%= query("City") %><% if varStateReplace<>"" AND query("City")<>"" then %>, <%= varStateReplace %><% end if %> <% varDescription= replace(query("Description"), chr(13), "
") %> <% if query("MenuBreakfast")<>"" OR query("MenuLunch")<>"" OR query("MenuDinner")<>"" then %>
Menus
<% if query("MenuBreakfast")<>"" then %>Description
<% varDescription= replace(query("Description"), chr(13), "") %><%= varDescription %><% end if %>
Address and Contact Details
<%= query("Address1") %><%= query("City") %><% if varStateReplace<>"" AND query("City")<>"" then %>, <%= varStateReplace %><% end if %>
target=new>(view map and get directions)
<% if query("Telephone")<>"" then %><%= query("Telephone") %> (phone)
<% end if %> <% if query("Fax")<>"" then %><%= query("Fax") %> (fax)
<% end if %> <% if query("Email")<>"" then %>><%= query("Email") %>
<% end if %> <% if query("Website")<>"" then %> target=new><%= query("Website") %><% end if %>
<%
mySQL="SELECT TOP 1 * FROM ads WHERE adZone = 2 AND adEndDate > GETDATE() ORDER BY NEWID()"
Set query=Server.CreateObject("ADODB.Recordset")
query.Open mySQL, Connect, adOpenStatic, adLockOptimistic
if NOT query.EOF then %>
" target="_blank">
" border="0">
<%
updateSQL="UPDATE ads SET adViews=adViews+1 WHERE adID = "&query("adID")
Connect.Execute(updateSQL)
end if%>