<% Set conn = Server.CreateObject("ADODB.Connection") MdbFilePath = Server.MapPath("wagdbhome\slice.mdb") conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";" set rsInfo = conn.execute("Select * from Shops where ID=" & request.QueryString("id")) %>
<%response.write(rsInfo("Name"))%>
<%If rsInfo("AdLevel")="A" Then%>
<%if rsInfo("AdLevel") <> "Z" and rsInfo("LogoFile1") <> "" then%> " border="0"> <%End If%>

<%response.write(rsInfo("Name"))%>
<%response.write(rsInfo("Address"))%>
<%response.write(rsInfo("City"))%>, <%response.write(rsInfo("State"))%> <%response.write(rsInfo("Zip"))%>
<%response.write(rsInfo("Phone"))%>
<%if not rsInfo("TollFree")="" then%><%response.write(rsInfo("TollFree"))%>
<%end if%> <%if rsInfo("AdLevel") <> "Z" and rsInfo("WWW") <> "" then%> "><%response.write(rsInfo("WWW"))%> <%End If%>

<%if rsInfo("AdLevel") <> "Z" and rsInfo("ImageFile1") <> "" then%> " border="0"> <%End If%>
Hours: <%response.write(rsInfo("Hours"))%>
Directions: <%response.write(rsInfo("Directions"))%>
<%else%> <%if not rsInfo("TollFree") = "" then%><%end if%>
Golfshop: <%response.write(rsInfo("Name"))%>
Address: <%response.write(rsInfo("Address"))%>
  <%response.write(rsInfo("City"))%> <%if not rsInfo("State") = "" then response.write(", " & rsInfo("State") & " ")%> <%response.write(rsInfo("Zip"))%>
County: <%response.write(rsInfo("County"))%>
Phone: <%response.write(rsInfo("Phone"))%>
Toll Free: <%response.write(rsInfo("TollFree"))%>
Directions: <%response.write(rsInfo("Directions"))%>
<%end if%> <%If rsInfo("AdLevel")="A" Then%>
Shop Info
<%response.write(rsInfo("Comments"))%>
<%end if%>

&city=<%=server.URLencode(rsInfo("City"))%>&state=<%response.write(rsInfo("State"))%>&zip=<%response.write(rsInfo("Zip"))%>">View Map <% rsInfo.close conn.close %>