<% @LANGUAGE="VBScript" %> <% dim Conn, SQLStr, URL, bshade dim DatabaseNameStr,DatabaseLocationStr, ConnectionStr DatabaseNameStr = "OlympicGetaways.mdb" DatabaseLocationStr = Left(Request.ServerVariables("PATH_TRANSLATED"), _ InstrRev(Request.ServerVariables("PATH_TRANSLATED"), _ "\") _ ) ConnectionStr = "DBQ=" & _ DatabaseLocationStr & _ DatabaseNameStr & _ ";DefaultDir=" & _ DatabaseLocationStr & _ ";Driver={Microsoft Access Driver (*.mdb)};" set Conn = Server.CreateObject("ADODB.Connection") Conn.Open(ConnectionStr) dim rs, ErrorStr %> <% SQLStr = "SELECT * FROM Lodging WHERE (GiftCertificates = true AND Restaurant = true) order by Lodging.LocationCity;" set rs = Conn.Execute(SQLStr) %>
Olympic Getaways: Vacation Rentals and other lodging on Washington's Olympic Peninsula.

Fine Dining and Specialty Establishments

    <% Do While Not rs.EOF %>
  • <% URL = rs.Fields("URL").Value If URL = "" THEN %> <% = rs("BusinessName") %>, <% ELSE %> <% = rs("BusinessName") %>,  <% End If %> <% = rs("LocationAddress") %>,  <% = rs("LocationCity") %>,  <% = rs("LocationState") %>  <% = rs("LocationZip") %>;  tel: <% = rs("Phone") %>  <% = rs("TollfreePhone") %>  "><% = rs("OtherEmail") %>

    • <% rs.MoveNext Loop %>
<% Conn.Close set Conn = nothing %>

If you would like your business listed here, please submit an application and we will contact you.


Web site by Acies Communications, copyright © 1996-2012