<% Local_Script = LCase(Request.ServerVariables("SCRIPT_NAME")) Referer = Trim(Request.ServerVariables("HTTP_REFERER") & " ") dim Conn dim oEPI dim rs dim ConnOpen Sub OpenConn if not ConnOpen then Set oEPI = Server.CreateObject("colEndlessPools.cEndlessPools") ConnectString = oEPI.BuildConnStr(Application("EPIDSN")) Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open(ConnectString) ConnOpen = true end if End Sub Sub BuildFavorites dim var dim temp(50) on error resume next ii = 0 for each var in session.contents if left(var, 2) = "fv" then temp(ii) = var ii = ii + 1 end if next do while ii > 0 ii = ii - 1 session.contents.remove(temp(ii)) loop FavoriteCount = 0 FavoritePicNo = 0 OpenConn set rs = Conn.execute("GetFavorites '" & session("sMachineID") & "'") if not rs.eof then FavoritePicNo = 1 do while not rs.eof FavoriteCount = FavoriteCount + 1 session("fv" & FavoriteCount) = rs("FavoriteID") & " " & rs("FavoriteFilename") rs.movenext loop end if session("FavoriteCount") = FavoriteCount session("FavoritePicNo") = FavoritePicNo End Sub Function GetFavoriteCount() FavoriteCount = session("FavoriteCount") if FavoriteCount = "" then BuildFavorites FavoriteCount = session("FavoriteCount") end if GetFavoriteCount = FavoriteCount End Function Function CheckFavorite(ID, filename) FavoriteCount = GetFavoriteCount() Favorite = false if ID <> "" and FavoriteCount > 0 then if isnumeric(ID) then ID = CInt(ID) for ii = 1 to FavoriteCount photo = session("fv" & ii) jj = instr(photo, " ") temp = left(photo, jj - 1) if CInt(temp) = ID then Favorite = true exit for end if next end if end if if Favorite then box = "

" box = box & "" & PhotoID & "
" box = box & " Favorites" box = box & "" else box = "" end if CheckFavorite = box End Function Function LinkToFavorites(fill) if GetFavoriteCount() > 0 then link = "View My Favorites
" else link = fill end if LinkToFavorites = link End Function Function BackToThumbFav() if GetFavoriteCount() > 1 then link = "
" else link = fill end if BackToThumbFav = link End Function Function BackToThumbCust() if Session("CustomSearchCount") > 1 then link = "" else link = fill end if BackToThumbCust = link End Function %> <% dim attempted ID = request("PhotoID") if ID <> "" then attempted = true if isnumeric(ID) then OpenConn Set rs = Conn.Execute("PhotoFindByNumber " & ID) end if end if if request("submit.y") <> "" then attempted = true sql = "PhotoFind2 " position = request("position") if position <> "" then sql = sql & "@position='(" & position & ")', " end if typeX = request("type") if typeX <> "" then sql = sql & "@type='(" & typeX & ")', " else sql = sql & "@type='(6)', " 'Set this to the number of Pool from PhotoTypes end if site = request("site") if site <> "" then sql = sql & "@site='(" & site & ")', " end if grade = request("grade") if grade <> "" then sql = sql & "@grade='(" & grade & ")', " end if options = request("options") if options <> "" then sql = sql & "@options='(" & options & ")', " end if coping = request("coping") if coping <> "" then sql = sql & "@coping='(" & coping & ")', " end if skirting = request("skirting") if skirting <> "" then sql = sql & "@skirting='(" & skirting & ")', " end if region = request("region") if region <> 0 then sql = sql & "@region=" & region & ", " end if if right(sql, 2) = ", " then sql = left(sql, len(sql) - 2) end if session("sql") = sql OpenConn response.write "

" & sql & "

" Set rs = Conn.Execute(sql) end if if attempted then dim var dim temp(50) on error resume next i = 0 for each var in session.contents if left(var, 2) = "cs" then temp(i) = var i = i + 1 end if next do while i > 0 i = i - 1 session.contents.remove(temp(i)) loop CustomSearchCount = 0 CustomSearchPicNo = 0 if rs.eof then message = "No pictures matching your criteria found." else CustomSearchPicNo = 1 do while not rs.eof CustomSearchCount = CustomSearchCount + 1 session("cs" & CustomSearchCount) = rs("PhotoID") & " " & rs("PhotoFilename") rs.movenext loop end if session("CustomSearchCount") = CustomSearchCount session("CustomSearchPicNo") = CustomSearchPicNo if CustomSearchCount = 1 then response.redirect("fullsize.html") end if if CustomSearchCount > 1 then response.redirect("thumbnail.html") end if end if %> Gallery of Pool Pictures - Customized Search

Customized Search in our Gallery Of Pools

Bookmark This Page | Send To A Friend

<% if attempted then %> <% end if %>

If you know the photo number, type it in the box and click Go.
<%=message%>
Search Tip: Selecting only one in each Group will give you more specific result.
Site
Indoor Installation		Outdoor Installation
Basement	Sunroom	Deck
Garage		Backyard
Configuration
In Ground	Above Ground	Partially In Ground
Coping
Aluminum (EP Option)		Synthetic (EP Option)
Bullnose (EP Option)		Tile
Stone		Wood
Skirting
Stone	Tile	Wood
Region

Options (Selecting one or more from this Group will deselect all others)
Child Alarm		Longer
Chairlift		Retractable Cover
Corner Step		Shorter
Cover Pump		Side Mounted Controls
Deeper		Spa Rail
Dual Propulsion System		Swim Gauge
Full Depth Stairs		Swim Mirror
Hand Rail		Tension Straps
Hydrotherapy Jets		Wider
Lights
Type (Selecting one or more from this Group will deselect all others)
Equipment		Building