<%@ LANGUAGE="VBSCRIPT" %> <% Dim objConn Dim objRS Set objConn = Server.CreateObject("ADODB.Connection") Set objRS = Server.CreateObject("ADODB.Recordset") objConn.Open "Provider=SQLOLEDB.1;Password=washington;Persist Security Info=True;User ID=f185091;Initial Catalog=f185091;Data Source=69.72.191.11" %> Ashland Cycling Enthusiasts

HOME
ACE-MART
PHOTO GALLERY
RIDES
    CATEGORIES
    SCHEDULES
    MAPS
LINKS
CONTACT US

RIDES

CATEGORIES | SCHEDULES | MAPS

<% SELECT CASE request.querystring("Action") CASE "SHOW" response.write "Return to Gallery Listings

" objRS.open "EXECUTE f185091.spGetPhotosInGallery " & request.querystring("Gallery") & ",0",objConn with objRS if not .eof and not .bof then .movefirst response.write "" do while not .eof response.write "" for i = 1 to 10 if not .eof then 'response.write "" response.write "" .movenext else response.write "" end if next response.write "" loop response.write "
" _ & "
" else response.write "

No Images Found in this Gallery

" end if end with 'CASE "DETAILS" ' response.write "Return to Gallery" ' objRS.open "EXECUTE f185091.spGetPhotosInGallery " & request.querystring("Gallery") & ",0",objConn ' with objRS ' dim nPrevious ' dim nNext ' nPrevious = 0 ' nNext = 0 ' if not .eof and not .bof then ' .movefirst ' do while .fields("PhotoId") <> cint(request.querystring("Photo")) and not .eof ' nPrevious = .fields("PhotoId") ' .movenext ' loop ' if not .eof then ' .movenext ' if not .eof then ' nNext = .fields("PhotoId") ' end if ' end if ' end if ' end with ' objRS.close ' response.write "

" ' if nPrevious <> 0 then ' response.write "<<< Previous" ' else ' response.write "<<< Previous" ' end if ' response.write " " ' if nNext <> 0 then ' response.write "Next >>>" ' else ' response.write "Next >>>" ' end if ' response.write "

" ' objRS.open "EXECUTE f185091.spGetPhotosInGallery " & request.querystring("Gallery") & "," & request.querystring("Photo"),objConn ' with objRS ' if not .eof and not .bof then ' .movefirst ' response.write "

" _ ' & .fields("AltText") & "

" ' end if ' end with CASE ELSE response.write "

" _ & "

Photo Galleries

" objRS.open "EXECUTE f185091.spGetPhotoGallery 0",objConn with objRS if not .eof and not .bof then .movefirst response.write "

" do while not .eof response.write "" _ & .fields("GalleryName") & "
" .movenext loop response.write "

" else response.write "

No Photo Galleries Found...

" end if end with END SELECT objRS.close set objRS=nothing objConn.close set objConn=nothing %>