ESUC - Photo Gallery - Non-Framed Viewer

<% 'Response.Redirect "/pub/pgframe/default.asp?catId=" & Request.QueryString("catId") %> ESUC - Photo Gallery - Non-Framed Viewer - Category View

Photo Gallery Non-Framed Viewer

<% If (Request.QueryString("tn") <> "") Then thumbNail = Request.QueryString("tn") Else thumbNail = "on" End If catId = Request.QueryString("catId") %> <% ' Read the record - Query everyting so we can list it all on the right column Dim objRS Dim sql sql = "SELECT C.catId, C.name, C.description, C.datetimeCreated, C.datetimeLastModified " & _ "FROM category AS C " & _ "ORDER BY C.name ASC" set objRS = GetRecordSet(strConnect, sql) On Error Resume Next objRS.MoveFirst Dim thisName, thisDescription, thisDatetimeCreated, thisDateTimeLastModified Dim catIds(200), names(200), k k = 0 do while Not objRS.eof catIds(k) = objRS.Fields("catId").Value names(k) = objRS.Fields("name").Value If (catId = catIds(k)) Then thisName = objRS.Fields("name").Value thisDescription = objRS.Fields("description").Value thisDatetimeCreated = objRS.Fields("datetimeCreated").Value thisDateTimeLastModified = objRS.Fields("datetimeLastModified").Value End If k = k + 1 objRS.MoveNext loop ' close objects! objRS.Close Set objRS = Nothing %> ( We strongly recommend you use our Framed Viewer version to browse these photos. This page is still here for legacy support of older browsers. )

<%=thisName%>

<%=textToHtml(thisDescription)%>

Created: <%=thisDatetimeCreated%>
Last Modified: <%=thisDateTimeLastModified%>

Photos Linked to this Category
(Showing thumbnails for ALL photos might be slow since we have a lot of photos)
Click on an image to see a more detailed view.

<% ' Read the record 'Dim objRS 'Dim objConn 'Dim sql sql = "SELECT G.galleryId, G.imageId, I.header, I.description, I.submitDateTime " & _ "FROM gallery AS G, imageInfo AS I " & _ "WHERE G.catId = '" & catId & "' " & _ "AND G.imageId = I.imageId" set objRS = GetRecordSet(strConnect, sql) Dim i i = 1 Dim bgColor, bgColor1, bgColor2 bgColor = "#ffffff" bgColor1 = "#eeeeee" bgColor2 = "#ffffff" On Error Resume Next objRS.MoveFirst do while Not objRS.eof %> <% objRS.MoveNext ' Keep count i = i + 1 ' Swap alertnating color If bgColor = bgColor1 Then bgColor = bgColor2 Else bgColor = bgColor1 End If loop ' close objects! objRS.Close Set objRS = Nothing %>

<%=i%>)

"> <% If (thumbNail = "on") Then %>

&t=i" border="0" vspace="0" hspace="0"> <% ElseIf (thumbNail = "off") Then %> [View Image] <% End If %>

<%=objRS.Fields("header").Value%>

<%=objRS.Fields("description").Value%>

Submitted On: <%=objRS.Fields("submitDateTime").Value%>

ThumbNails: <% If (thumbNail = "on") Then %> [on] [off] <% ElseIf (thumbNail = "off") Then %> [on] [off] <% End If %>

<%=(i-1)%> photos in this category.

Other Categories