<% @LANGUAGE="VBScript" %>
<%
dim Conn, SQLStr
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 IDStr, fromform, romantic, waterfront, weddings, resort, famfriendly, secluded
dim vacationhome_cabin, motel, reunions, condo, busretreats, otheramibience, handicap
dim rvs, bab, pets, swimming, children, mtnview, special_services, territory, location, locationSQL
dim fireplace, jacuzzi, boatavailable, GiftCertificates, OffSeasonMonthToMonth, romantic_getaways, wooded
dim NE_Olympic_Peninsula, N_Central_Olympic_Peninsula, NW_Olympic_Peninsula, SW_Olympic_Peninsula, SE_Olympic_Peninsula
dim S_Central_Olympic_Peninsula, E_Central_Olympic_Peninsula, W_Central_Olympic_Peninsula, Hood_Canal_Proximity, Kitsap
IDStr = 1
location = 0
locationSQL = 0
vacationhome_cabin = Request.QueryString("vacationhome_cabin")
jacuzzi = Request.QueryString("jacuzzi")
romantic_getaways = Request.QueryString("romantic_getaways")
romantic = Request.QueryString("romantic")
bab = Request.QueryString("bab")
fireplace = Request.QueryString("fireplace")
reunions = Request.QueryString("reunions")
famfriendly = Request.QueryString("famfriendly")
motel = Request.QueryString("motel")
children = Request.QueryString("children")
weddings = Request.QueryString("weddings")
waterfront = Request.QueryString("waterfront")
resort = Request.QueryString("resort")
pets = Request.QueryString("pets")
busretreats = Request.QueryString("busretreats")
mtnview = Request.QueryString("mtnview")
rvs = Request.QueryString("rvs")
boatavailable = Request.QueryString("boatavailable")
special_services = Request.QueryString("special_services")
territory = Request.QueryString("territory")
condo = Request.QueryString("condo")
swimming = Request.QueryString("swimming")
wooded = Request.QueryString("wooded")
GiftCertificates = Request.QueryString("GiftCertificates")
OffSeasonMonthToMonth = Request.QueryString("OffSeasonMonthToMonth")
secluded = Request.QueryString("secluded")
otheramibience = Request.QueryString("otheramibience")
handicap = Request.QueryString("handicap")
NE_Olympic_Peninsula = Request.QueryString("NE_Olympic_Peninsula")
N_Central_Olympic_Peninsula = Request.QueryString("N_Central_Olympic_Peninsula")
NW_Olympic_Peninsula = Request.QueryString("NW_Olympic_Peninsula")
SW_Olympic_Peninsula = Request.QueryString("SW_Olympic_Peninsula")
SE_Olympic_Peninsula = Request.QueryString("SE_Olympic_Peninsula")
S_Central_Olympic_Peninsula = Request.QueryString("S_Central_Olympic_Peninsula")
E_Central_Olympic_Peninsula = Request.QueryString("E_Central_Olympic_Peninsula")
W_Central_Olympic_Peninsula = Request.QueryString("W_Central_Olympic_Peninsula")
Hood_Canal_Proximity = Request.QueryString("Hood_Canal_Proximity")
Kitsap = Request.QueryString("Kitsap")
fromform = Request.QueryString("fromform")
'Check to see if a location was specified
If NE_Olympic_Peninsula = 1 Then
location = location + 1
End IF
If N_Central_Olympic_Peninsula = 1 Then
location = location + 1
End IF
If NW_Olympic_Peninsula = 1 Then
location = location + 1
End IF
If SW_Olympic_Peninsula = 1 Then
location = location + 1
End IF
If SE_Olympic_Peninsula = 1 Then
location = location + 1
End IF
If S_Central_Olympic_Peninsula = 1 Then
location = location + 1
End IF
If E_Central_Olympic_Peninsula = 1 Then
location = location + 1
End IF
If W_Central_Olympic_Peninsula = 1 Then
location = location + 1
End IF
If Hood_Canal_Proximity = 1 Then
location = location + 1
End IF
If Kitsap = 1 Then
location = location + 1
End IF
'Begin checking what search criteria were specified and build the necessary SQL query
dim rs, rs2, ErrorStr
if fromform <> "yes" Then
SQLStr = "SELECT * FROM Lodging WHERE (((Lodging.Lodging) Like '%" & IDstr & "%')) order by Lodging.BusinessID"
ELSE
SQLStr = "SELECT * FROM Lodging WHERE (((Lodging.Lodging) Like '%" & IDStr & "%') "
If vacationhome_cabin = 1 Then
SQLStr = SQLStr & " and ((Lodging.VacationHomeCabin) Like '%" & vacationhome_cabin & "%') "
End If
If jacuzzi = 1 Then
SQLStr = SQLStr & " and ((Lodging.JacuzziHotTub) Like '%" & jacuzzi & "%') "
End If
If romantic_getaways = 1 Then
SQLStr = SQLStr & " and ((Lodging.Romantic) Like '%" & romantic_getaways & "%') "
End If
If romantic = 1 Then
SQLStr = SQLStr & " and ((Lodging.Romantic) Like '%" & romantic & "%') "
End If
If bab = 1 Then
SQLStr = SQLStr & " and ((Lodging.BedBreakfast) Like '%" & bab & "%') "
End If
If fireplace = 1 Then
SQLStr = SQLStr & " and ((Lodging.Fireplace) Like '%" & fireplace & "%') "
End If
If reunions = 1 Then
SQLStr = SQLStr & " and ((Lodging.Family_Get_togethers) Like '%" & reunions & "%') "
End If
If famfriendly = 1 Then
SQLStr = SQLStr & " and ((Lodging.Family_Friendly) Like '%" & famfriendly & "%') "
End If
If motel = 1 Then
SQLStr = SQLStr & " and ((Lodging.MotelHotel) Like '%" & motel & "%') "
End If
If children = 1 Then
SQLStr = SQLStr & " and ((Lodging.ChildrenWelcome) Like '%" & children & "%') "
End If
If weddings = 1 Then
SQLStr = SQLStr & " and ((Lodging.Weddings) Like '%" & weddings & "%') "
End If
If waterfront = 1 Then
SQLStr = SQLStr & " and ((Lodging.Waterfront) Like '%" & waterfront & "%') "
End If
If resort = 1 Then
SQLStr = SQLStr & " and ((Lodging.Resort) Like '%" & resort & "%') "
End If
If pets = 1 Then
SQLStr = SQLStr & " and ((Lodging.PetsOK) Like '%" & pets & "%') "
End If
If busretreats = 1 Then
SQLStr = SQLStr & " and ((Lodging.BusinessRetreats) Like '%" & busretreats & "%') "
End If
If mtnview = 1 Then
SQLStr = SQLStr & " and ((Lodging.Mountain_View) Like '%" & mtnview & "%') "
End If
If rvs = 1 Then
SQLStr = SQLStr & " and ((Lodging.RVCamping) Like '%" & rvs & "%') "
End If
If boatavailable = 1 Then
SQLStr = SQLStr & " and ((Lodging.BoatAvailable) Like '%" & boatavailable & "%') "
End If
If special_services = 1 Then
SQLStr = SQLStr & " and ((Lodging.Special_Services) Like '%" & special_services & "%') "
End If
If territory = 1 Then
SQLStr = SQLStr & " and ((Lodging.Territorial_View) Like '%" & territory & "%') "
End If
If condo = 1 Then
SQLStr = SQLStr & " and ((Lodging.CondoAptTimeShare) Like '%" & condo & "%') "
End If
If swimming = 1 Then
SQLStr = SQLStr & " and ((Lodging.Swimming) Like '%" & swimming & "%') "
End If
If wooded = 1 Then
SQLStr = SQLStr & " and ((Lodging.Wooded) Like '%" & wooded & "%') "
End If
If GiftCertificates = 1 Then
SQLStr = SQLStr & " and ((Lodging.GiftCertificates) Like '%" & GiftCertificates & "%') "
End If
If OffSeasonMonthToMonth = 1 Then
SQLStr = SQLStr & " and ((Lodging.OffSeasonMonthToMonth) Like '%" & OffSeasonMonthToMonth & "%') "
End If
If secluded = 1 Then
SQLStr = SQLStr & " and ((Lodging.Secluded) Like '%" & secluded & "%') "
End If
If otheramibience = 1 Then
SQLStr = SQLStr & " and ((Lodging.Ambiance_Other) Like '%" & otheramibience & "%') "
End If
If handicap = 1 Then
SQLStr = SQLStr & " and ((Lodging.handicap) Like '%" & handicap & "%') "
End If
If location <> 0 Then
SQLStr = SQLStr & ") and ("
If NE_Olympic_Peninsula = 1 Then
if locationSQL = 0 Then
SQLStr = SQLStr & " ((Lodging.NE_Olympic_Peninsula) Like '%" & NE_Olympic_Peninsula & "%')"
Else IF locationSQL <= location Then
SQLStr = SQLStr & " OR ((Lodging.NE_Olympic_Peninsula) Like '%" & NE_Olympic_Peninsula & "%')"
End IF
End IF
locationSQL = locationSQL + 1
End If
IF N_Central_Olympic_Peninsula = 1 Then
if locationSQL = 0 Then
SQLStr = SQLStr & " ((Lodging.N_Central_Olympic_Peninsula) Like '%" & N_Central_Olympic_Peninsula & "%')"
Else IF locationSQL <= location Then
SQLStr = SQLStr & " OR ((Lodging.N_Central_Olympic_Peninsula) Like '%" & N_Central_Olympic_Peninsula & "%')"
End IF
End IF
locationSQL = locationSQL + 1
End IF
If NW_Olympic_Peninsula = 1 Then
if locationSQL = 0 Then
SQLStr = SQLStr & " ((Lodging.NW_Olympic_Peninsula) Like '%" & NW_Olympic_Peninsula & "%')"
Else IF locationSQL <= location Then
SQLStr = SQLStr & " OR ((Lodging.NW_Olympic_Peninsula) Like '%" & NW_Olympic_Peninsula & "%')"
End IF
End IF
locationSQL = locationSQL + 1
End If
If SW_Olympic_Peninsula = 1 Then
if locationSQL = 0 Then
SQLStr = SQLStr & " ((Lodging.SW_Olympic_Peninsula) Like '%" & SW_Olympic_Peninsula & "%')"
Else IF locationSQL <= location Then
SQLStr = SQLStr & " OR ((Lodging.SW_Olympic_Peninsula) Like '%" & SW_Olympic_Peninsula & "%')"
End IF
End IF
locationSQL = locationSQL + 1
End IF
If SE_Olympic_Peninsula = 1 Then
if locationSQL = 0 Then
SQLStr = SQLStr & " ((Lodging.SE_Olympic_Peninsula) Like '%" & SE_Olympic_Peninsula & "%')"
Else IF locationSQL <= location Then
SQLStr = SQLStr & " OR ((Lodging.SE_Olympic_Peninsula) Like '%" & SE_Olympic_Peninsula & "%')"
End IF
End IF
locationSQL = locationSQL + 1
End If
If S_Central_Olympic_Peninsula = 1 Then
if locationSQL = 0 Then
SQLStr = SQLStr & " ((Lodging.S_Central_Olympic_Peninsula) Like '%" & S_Central_Olympic_Peninsula & "%')"
Else IF locationSQL <= location Then
SQLStr = SQLStr & " OR ((Lodging.S_Central_Olympic_Peninsula) Like '%" & S_Central_Olympic_Peninsula & "%')"
End IF
End IF
locationSQL = locationSQL + 1
End If
If E_Central_Olympic_Peninsula = 1 Then
if locationSQL = 0 Then
SQLStr = SQLStr & " ((Lodging.E_Central_Olympic_Peninsula) Like '%" & E_Central_Olympic_Peninsula & "%')"
Else IF locationSQL <= location Then
SQLStr = SQLStr & " OR ((Lodging.E_Central_Olympic_Peninsula) Like '%" & E_Central_Olympic_Peninsula & "%')"
End IF
End IF
locationSQL = locationSQL + 1
End If
If W_Central_Olympic_Peninsula = 1 Then
if locationSQL = 0 Then
SQLStr = SQLStr & " ((Lodging.W_Central_Olympic_Peninsula) Like '%" & W_Central_Olympic_Peninsula & "%')"
Else IF locationSQL <= location Then
SQLStr = SQLStr & " OR ((Lodging.W_Central_Olympic_Peninsula) Like '%" & W_Central_Olympic_Peninsula & "%')"
End IF
End IF
locationSQL = locationSQL + 1
End If
If Hood_Canal_Proximity = 1 Then
if locationSQL = 0 Then
SQLStr = SQLStr & " ((Lodging.Hood_Canal_Proximity) Like '%" & Hood_Canal_Proximity & "%')"
Else IF locationSQL <= location Then
SQLStr = SQLStr & " OR ((Lodging.Hood_Canal_Proximity) Like '%" & Hood_Canal_Proximity & "%')"
End IF
End IF
locationSQL = locationSQL + 1
End If
If Kitsap = 1 Then
if locationSQL = 0 Then
SQLStr = SQLStr & " ((Lodging.Kitsap) Like '%" & Kitsap & "%')"
Else IF locationSQL <= location Then
SQLStr = SQLStr & " OR ((Lodging.Kitsap) Like '%" & Kitsap & "%')"
End IF
End IF
locationSQL = locationSQL + 1
End If
ELSE
'Do nothing - no location criteria specified.
End IF
SQLStr = SQLStr & ") order by Lodging.BusinessID"
End IF
set rs = Conn.Execute(SQLStr)
set rs2 = Conn.Execute(SQLStr)
dim count
count = 0
Do While Not rs2.EOF
count = count + 1
rs2.MoveNext
Loop
%>
We have located <% =count %> references to your request.
If you wish to re-define your criteria, please use our
Lodging Search Engine.
<%dim bshade, rsEND
bshade = true
rsEND = true
if NOT rsEND then %>
<% Else
Do While Not rs.EOF
If bshade Then
response.write("
