<%@LANGUAGE="VBSCRIPT"%> <% show = true %> <% if request("galleryName")<>"" then Session("gallerySelected")=request("galleryName") else gallerySelected=Session("gallerySelected") end if %> <% Dim rsPopycGalleries Dim rsPopycGalleries_numRows Set rsPopycGalleries = Server.CreateObject("ADODB.Recordset") rsPopycGalleries.ActiveConnection = MM_popycDBConn_STRING rsPopycGalleries.Source = "SELECT * FROM tblGalleries ORDER BY galleryYear DESC" rsPopycGalleries.CursorType = 0 rsPopycGalleries.CursorLocation = 2 rsPopycGalleries.LockType = 1 rsPopycGalleries.Open() rsPopycGalleries_numRows = 0 %> <% Dim rsPopycImages__MMColParam rsPopycImages__MMColParam = "1" If (Session("gallerySelected") <> "") Then rsPopycImages__MMColParam = Session("gallerySelected") End If %> <% Dim rsPopycImages__MMColParam2 rsPopycImages__MMColParam2 = "Y" If (Request("MM_EmptyValue") <> "") Then rsPopycImages__MMColParam2 = Request("MM_EmptyValue") End If %> <% Dim rsPopycImages Dim rsPopycImages_numRows Set rsPopycImages = Server.CreateObject("ADODB.Recordset") rsPopycImages.ActiveConnection = MM_popycDBConn_STRING rsPopycImages.Source = "SELECT * FROM tblImages WHERE galleryID = " + Replace(rsPopycImages__MMColParam, "'", "''") + " and imageActive = '" + Replace(rsPopycImages__MMColParam2, "'", "''") + "'" rsPopycImages.CursorType = 0 rsPopycImages.CursorLocation = 2 rsPopycImages.LockType = 1 rsPopycImages.Open() rsPopycImages_numRows = 0 %> <% Dim HLooper1__numRows HLooper1__numRows = -3 Dim HLooper1__index HLooper1__index = 0 rsPopycGalleries_numRows = rsPopycGalleries_numRows + HLooper1__numRows %>

Select an Event <% While (NOT rsPopycGalleries.EOF) if cStr(rsPopycGalleries("galleryID"))=cStr(Session("gallerySelected")) then gallerySelected="selected" else gallerySelected="" end if %> " <%=gallerySelected%>><%=(rsPopycGalleries.Fields.Item("galleryName").Value)%> <% rsPopycGalleries.MoveNext() Wend If (rsPopycGalleries.CursorType > 0) Then rsPopycGalleries.MoveFirst Else rsPopycGalleries.Requery End If %> <% if show = true then%>Have a photo you would like to add to one of our galleries? Click here to send it to us. Once approved, it will appear in the gallery you select. If you do not have digital photos, you may mail or leave at the Yacht Club, attention webmaster. We will scan your photos and return to the Yacht Club for your pickup there. Please include your contact information and photo details. <% end if %> <% if rsPopycImages.EOF then %> There are no images in this gallery. <% end if %> <% if Session("gallerySelected")<>"" then %> <% startrw = 0 endrw = HLooper1__index numberColumns = 3 numrows = -1 while((numrows <> 0) AND (Not rsPopycImages.EOF)) startrw = endrw + 1 endrw = endrw + numberColumns %> <% While ((startrw <= endrw) AND (Not rsPopycImages.EOF)) %> <% startrw = startrw + 1 rsPopycImages.MoveNext() Wend %> <% numrows=numrows-1 Wend %> <% galleryName = rsPopycImages("galleryName") %><%galleryNameNew=Replace(galleryName, "''", "'")%>','imageDetail','scrollbars=yes,resizable=yes')">" width="150" border="0"> <% end if %>

<% rsPopycGalleries.Close() Set rsPopycGalleries = Nothing %> <% rsPopycImages.Close() Set rsPopycImages = Nothing %>