<%
set OBJdbConn = Application("ncmm_friends")
if request("gallery") <> "" then
cnt = -1
Set field = OBJdbConn.Execute("ncmm_dev.ncmm_gallery_pics_list '" & request("gallery") & "'")
Do While Not field.EOF
cnt = cnt + 1
redim preserve photo_id(cnt),caption(cnt),credits(cnt),gallery_name(cnt),url(cnt)
photo_id(cnt)=field("photo_id")
caption(cnt)=field("caption")
credits(cnt)=field("credits")
gallery_name(cnt)=field("gallery_name")
url(cnt)=field("url")
field.MoveNext
Loop
field.Close
Set field = Nothing
else
cnt = -1
Set field = OBJdbConn.Execute("ncmm_dev.ncmm_galleries_list")
Do While Not field.EOF
if field("online") = 1 then
cnt = cnt + 1
redim preserve gallery_id(cnt),gallery_name(cnt)
gallery_id(cnt)=field("gallery_id")
gallery_name(cnt)=field("gallery_name")
end if
field.MoveNext
Loop
field.Close
Set field = Nothing
end if
%>
Photo Gallery - Programs and Special Events: Friends of the North Carolina Maritime Museum
