<% @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, HikingGuide, KayakRental, BackcountryTours, HuntingGuide, BoatRental, LlamaTours
dim FishingGuide, DeepSeaCharters, ScubaGearRental, BackpackingTours, WildlifeViewingGuide, FishingGearRental, WhitewaterTours
dim ScubaDivingGuide, OpenwaterTours, PhotographyGuide, EquestrianTours, GiftCertificates, OnSiteFishing, OnSiteWildlifeViewing, MusicRecordingGetaways, FlyFishingInstruction
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
HikingGuide = Request.QueryString("HikingGuide")
HuntingGuide = Request.QueryString("HuntingGuide")
FishingGuide = Request.QueryString("FishingGuide")
DeepSeaCharters = Request.QueryString("DeepSeaCharters")
WildlifeViewingGuide = Request.QueryString("WildlifeViewingGuide")
ScubaDivingGuide = Request.QueryString("ScubaDivingGuide")
PhotographyGuide = Request.QueryString("PhotographyGuide")
KayakRental = Request.QueryString("KayakRental")
BoatRental = Request.QueryString("BoatRental")
ScubaGearRental = Request.QueryString("ScubaGearRental")
FishingGearRental = Request.QueryString("FishingGearRental")
BackcountryTours = Request.QueryString("BackcountryTours")
LlamaTours = Request.QueryString("LlamaTours")
BackpackingTours = Request.QueryString("BackpackingTours")
WhitewaterTours = Request.QueryString("WhitewaterTours")
OpenwaterTours = Request.QueryString("OpenwaterTours")
EquestrianTours = Request.QueryString("EquestrianTours")
OnSiteFishing = Request.QueryString("OnSiteFishing")
OnSiteWildlifeViewing = Request.QueryString("OnSiteWildlifeViewing")
MusicRecordingGetaways = Request.QueryString("MusicRecordingGetaways")
FlyFishingInstruction = Request.QueryString("FlyFishingInstruction")
GiftCertificates = Request.QueryString("GiftCertificates")
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.BoatRentals) Like '%" & IDstr & "%')) order by Lodging.AdventureOrder"
ELSE
SQLStr = "SELECT * FROM Lodging WHERE (((Lodging.BoatRentals) Like '%" & IDStr & "%') "
If HikingGuide = 1 Then
SQLStr = SQLStr & " and ((Lodging.HikingGuide) Like '%" & HikingGuide & "%') "
End If
If HuntingGuide = 1 Then
SQLStr = SQLStr & " and ((Lodging.HuntingGuide) Like '%" & HuntingGuide & "%') "
End If
If FishingGuide = 1 Then
SQLStr = SQLStr & " and ((Lodging.FishingGuide) Like '%" & FishingGuide & "%') "
End If
If DeepSeaCharters = 1 Then
SQLStr = SQLStr & " and ((Lodging.DeepSeaCharters) Like '%" & DeepSeaCharters & "%') "
End If
If WildlifeViewingGuide = 1 Then
SQLStr = SQLStr & " and ((Lodging.WildlifeViewingGuide) Like '%" & WildlifeViewingGuide & "%') "
End If
If ScubaDivingGuide = 1 Then
SQLStr = SQLStr & " and ((Lodging.ScubaDivingGuide) Like '%" & ScubaDivingGuide & "%') "
End If
If PhotographyGuide = 1 Then
SQLStr = SQLStr & " and ((Lodging.PhotographyGuide) Like '%" & PhotographyGuide & "%') "
End If
If KayakRental = 1 Then
SQLStr = SQLStr & " and ((Lodging.KayakRental) Like '%" & KayakRental & "%') "
End If
If BoatRental = 1 Then
SQLStr = SQLStr & " and ((Lodging.BoatRental) Like '%" & BoatRental & "%') "
End If
If ScubaGearRental = 1 Then
SQLStr = SQLStr & " and ((Lodging.ScubaGearRental) Like '%" & ScubaGearRental & "%') "
End If
If FishingGearRental = 1 Then
SQLStr = SQLStr & " and ((Lodging.FishingGearRental) Like '%" & FishingGearRental & "%') "
End If
If BackcountryTours = 1 Then
SQLStr = SQLStr & " and ((Lodging.BackcountryTours) Like '%" & BackcountryTours & "%') "
End If
If LlamaTours = 1 Then
SQLStr = SQLStr & " and ((Lodging.LlamaTours) Like '%" & LlamaTours & "%') "
End If
If BackpackingTours = 1 Then
SQLStr = SQLStr & " and ((Lodging.BackpackingTours) Like '%" & BackpackingTours & "%') "
End If
If WhitewaterTours = 1 Then
SQLStr = SQLStr & " and ((Lodging.WhitewaterTours) Like '%" & WhitewaterTours & "%') "
End If
If OpenwaterTours = 1 Then
SQLStr = SQLStr & " and ((Lodging.OpenwaterTours) Like '%" & OpenwaterTours & "%') "
End If
If EquestrianTours = 1 Then
SQLStr = SQLStr & " and ((Lodging.EquestrianTours) Like '%" & EquestrianTours & "%') "
End If
If OnSiteFishing = 1 Then
SQLStr = SQLStr & " and ((Lodging.OnSiteFishing) Like '%" & OnSiteFishing & "%') "
End If
If OnSiteWildlifeViewing = 1 Then
SQLStr = SQLStr & " and ((Lodging.OnSiteWildlifeViewing) Like '%" & OnSiteWildlifeViewing & "%') "
End If
If MusicRecordingGetaways = 1 Then
SQLStr = SQLStr & " and ((Lodging.MusicRecordingGetaways) Like '%" & MusicRecordingGetaways & "%') "
End If
If FlyFishingInstruction = 1 Then
SQLStr = SQLStr & " and ((Lodging.FlyFishingInstruction) Like '%" & FlyFishingInstruction & "%') "
End If
If GiftCertificates = 1 Then
SQLStr = SQLStr & " and ((Lodging.GiftCertificates) Like '%" & GiftCertificates & "%') "
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.AdventureOrder"
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.
<%dim bshade, rsEND
bshade = true
rsEND = true
if NOT rsEND then %>
<% Else
Do While Not rs.EOF
If bshade Then
response.write("