<% ' ------------------------------------------------------------------- ' File: search.asp ' ' Copyright (c) 2003 DPA Software. All rights reserved. ' ------------------------------------------------------------------- ' set the default no. of items per page here PageItems = 10 ' possible values: 5, 10, 20, 30, 0 ( all ) PageIndex = 1 SortOrder = "relv_desc" ' possible values: title, relv_desc QueryType = "bool" ' possible values: bool, exact web_root = "/" web_root_disk = Server.MapPath(web_root) & "\" web_sse = web_root_disk & Replace("_private/_frontlook/","/","\") sTarget = "" AreaFile = Request("area") ' ------------------------------------------------------------------- ' Page Code ' ------------------------------------------------------------------- If Request("ActionType") = "Search" Then PageItems = CInt(Request("PageItems")) SortOrder = Request("SortOrder") QueryType = Request("optQueryType") GenerateSearchResults Request.Form("query") elseif Request("ActionType") = "SearchById" then sets = null set filesys = server.createobject("scripting.FileSystemObject") if filesys.FileExists(web_sse & "sets.inc") then AreaFile = "" sets = filesys.openTextfile(web_sse & "sets.inc").readall setsArray = Split(sets, nl) For i = 1 To Ubound(setsArray) If setsArray(i) <> "" Then setsDetail = Split(setsArray(i), "|") if UBound(setsDetail) >= 2 then if setsDetail(2) = request("area") then AreaFile = setsDetail(0) exit for end if end if End If Next GenerateSearchResults Request.Form("query") end if set filesys = Nothing elseif Request("ActionType") = "Paging" then PageItems = CInt(Request("PageItems")) PageIndex = CInt(Request("Page")) SortOrder = Request("SortOrder") QueryType = Request("optQueryType") if IsEmpty(Session("queryMatches")) then GenerateSearchResults Request.Form("query") End If %> Palm Beach, Florida - Scuba Diving Boats and Charters - Serving West Palm Beach, Boynton Beach, Highland Beach, Delray Beach, Boca Raton, Florida.

Splashdown Divers - Palm Beach, Florida - Scuba Diving Boats and Charters - Serving West Palm Beach, Boynton Beach, Highland Beach, Delray Beach, Boca Raton, Florida.

Decoration Bar
Splashdown Divers - Boynton Beach, Florida - Site Map

Splashdown Divers
Boynton Beach, FL

Search Site

Home

Our Location
Dive Boat
Dive Shop
PADI Courses
Local Diving

Photo Galleries

Photography

Log Book

Accommodations

Frequent Questions

Reserve Now

Search Site
Call Toll Free
877-736-0712

Mobile Site

Mobile Site
  <% 'setup search area selection based in set.inc file sets = null set filesys = server.createobject("scripting.FileSystemObject") if filesys.FileExists(web_sse & "sets.inc") then sets = filesys.openTextfile(web_sse & "sets.inc").readall end if set filesys = Nothing if IsNull(sets) = false then %>

Search Site

 

Search for " style="font-size: 10px">

<% call ShowSearchResults(PageItems,PageIndex,(len(trim(Request.Form("query"))) > 0)) %>
<% else %>
Could not open search area set file. Please contact web administrator.
<% end if %>
<%If 0 Then%>

This page must reside on a ASP-enabled server
<%End If%>  

 
Decoration Bar

Splashdown Divers
700 Casa Loma Boulevard, Boynton Beach, Florida, 33435
Telephone 561-736-0712 - Toll Free 877-736-0712 - Fax 561-739-5173
http://www.splashdowndivers.com
Click to send email.

Spacer
Copyright 1999-2015 Splashdown Divers Inc. All Rights Reserved. Privacy Statement Site Map Home  Back

tumblr statistics