<%
Set ImageID = Request("PID")
If Len(ImageID) = 0 THEN
ImageID = 1
Elseif IsNumeric(ImageID) = false Then
ImageID = 1
End If
SQL = "SELECT gallery_id, image_small, image_mouseover FROM PhotoGallery"
Set RS = Conn.Execute(SQL)
SQL = "SELECT image_large, image_blurb FROM PhotoGallery WHERE gallery_id = " & ImageID
Set RS2 = Conn.Execute(SQL)
Dim MyArray(18,3)
Dim MyArray2(18)
i = 1
Do while not RS.EOF
MyArray(i,1) = RS("gallery_id")
MyArray(i,2) = RS("image_small")
MyArray(i,3) = RS("image_mouseover")
If Len(MyArray(i,2)) > 0 Then
MyArray2(i) = "
"
Else
MyArray2(i) = "
"
End If
i = i + 1
RS.MoveNext
Loop
%>
Mary Green | Photo Gallery
">
