<%set rs=objConn.execute("select * from intros where introid=1") if not rs.eof then intro=rs("intro") end if if request.querystring("id")>"" then set rs2=objConn.execute("select * from cats where catid=" & request.querystring("id")) if not rs2.eof then category=rs2("category") else category="error" end if set rs3=objConn.execute("select * from qyphotos where catid=" & category & " ORDER BY photoid")%> Gallery > <%=rs2("category")%>

Click on a thumbnail to expand the image.


.......Japanese symbol for "ice"



<% 'iColumnSpan is used as a column counter iColumnSpan=0 allrecords=allrecords-1 response.write "" 'If there are records then loop through the fields if not rs3.eof then Do While Not rs3.EOF If iColumnSpan=2 Then response.write "" iColumnSpan=0 End If iColumnSpan=iColumnSpan + 1 allrecords=allrecords+1 %> " end if %>
&photo=<%=allrecords%>">/<%=rs3("photoImage")%>" <%=ImageResize(Server.MapPath(rs2("catDir") & "/" & rs3("photoImage")), 200, 200)%> style="border-width:thin; border-color:#000099; border-style:solid"> <% 'move on to the next record rs3.MoveNext Loop else response.write "
There are no images in this gallery at this time.

<%else response.write "You have reached this page in err. Please return to the main site." end if%>