<%@LANGUAGE="VBSCRIPT"%> <% if request("galleryName")<>"" then Session("gallerySelected2")=request("galleryName") else gallerySelected=Session("gallerySelected2") end if 'galleryName = request("galleryName") 'if galleryName <>"" then 'response.Write(galleryName) 'response.End() 'Session("gallerySelected2")= galleryName '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 %>

Please select which gallery you wish to upload a picture to. Select an Event <% While (NOT rsPopycGalleries.EOF) if cStr(rsPopycGalleries("galleryName"))=cStr(Session("gallerySelected2")) then gallerySelected="selected" else gallerySelected="" end if %> ><%=(rsPopycGalleries.Fields.Item("galleryName").Value)%> <% rsPopycGalleries.MoveNext() Wend If (rsPopycGalleries.CursorType > 0) Then rsPopycGalleries.MoveFirst Else rsPopycGalleries.Requery End If %>

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