Gift Certificate Participants - OlympicGetaways.com: Vacation Rentals and other lodging on Washington's Olympic Peninsula.

Interactive Peninsula MapUnique Lodging GetawaysLodging Getaway SearchAdventure Getaway SearchAdventure GetawaysBoat RentalsFine DiningWineriesRV RentalsPhoto GalleryGift CertificatesJoin Olympic GetawaysHome Page

<% @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 Lodging = true) order by Lodging.LocationCity;" set rs = Conn.Execute(SQLStr) %>

Gift Certificates

The following businesses accept Olympic Getaways Gift Certificates.

Lodging Getaways

<% 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") %>

<% SQLStr = "SELECT * FROM Lodging WHERE (GiftCertificates = true AND Adventure = true) order by Lodging.LocationCity;" set rs = Conn.Execute(SQLStr) %> <% If NOT rs.eof Then%> Adventure Getaways

<% End If %> <% SQLStr = "SELECT * FROM Lodging WHERE (GiftCertificates = true AND Restaurant = true) order by Lodging.LocationCity;" set rs = Conn.Execute(SQLStr) %> <% If NOT rs.eof Then%> Restaurants

<% End If %> <% SQLStr = "SELECT * FROM Lodging WHERE (GiftCertificates = true AND ArtistPhotography = true) order by Lodging.LocationCity;" set rs = Conn.Execute(SQLStr) %> <% If NOT rs.eof Then%> Artists/Photography

<% End If %> <% SQLStr = "SELECT * FROM Lodging WHERE (GiftCertificates = true AND MiscServices = true) order by Lodging.LocationCity;" set rs = Conn.Execute(SQLStr) %> <% If NOT rs.eof Then%> Miscellaneous Services

<% End If %> <% SQLStr = "SELECT * FROM Lodging WHERE (GiftCertificates = true AND Entertainment = true) order by Lodging.LocationCity;" set rs = Conn.Execute(SQLStr) %> <% If NOT rs.eof Then%> Entertainment

<% End If %> <% SQLStr = "SELECT * FROM Lodging WHERE (GiftCertificates = true AND Business_Type_Other = true) order by Lodging.LocationCity;" set rs = Conn.Execute(SQLStr) %> <% If NOT rs.eof Then%> Other Businesses

<% End If %> <% Conn.Close set Conn = nothing %>

• Unique Lodging Getaways • Adventure Getaways • Fine Dining • Wineries •
• Photo Gallery • Peninsula Map • Gift Certificates • Join Olympic Getaways • Home Page •