<% Dim strPageTitle:strPageTitle = "Portfolio Detail" Function Content %>

<% '-- Display Title and Album Name Dim rstAlbum: Set rstAlbum = GDAT_PullRecords(cnnMain, "*", "PhotoAlbums", "PhotoAlbumID = " & RequestNumeric("id"), "") If Not rstAlbum.EOF Then Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.WRite " " & vbCrLf End If rstAlbum.Close: Set rstAlbum = Nothing '-- Display Each Photo Within Album Dim rstDetails: Set rstDetails = GDAT_PullRecords(cnnMain, "*", "Photos", "PhotoAlbumID = " & RequestNumeric("id") & " AND [Public] = 1", "SortID") If rstDetails.EOF Then Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.WRite " " & vbCrLf End If Do While Not rstDetails.EOF Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf rstDetails.MoveNext Loop rstDetails.Close: Set rstDetails = Nothing %> " & vbCrLf Response.Write " Portfolio: " & rstAlbum("PhotoAlbum") & "" & vbCrLf Response.Write " " & vbCrLf Response.Write " No Photos Available." & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & rstDetails("Photo") & " " & vbCrLf If rstDetails("Photographer") <> " " Then If Not rstDetails("Timestamp") <> "" Then Response.Write " Taken By " & rstDetails("Photographer") & " " & vbCrLf Else Response.Write " Taken By " & rstDetails("Photographer") & " on " & rstDetails("Timestamp") & " " & vbCrLf End If Else If rstDetails("Timestamp") <> "" Then Response.Write " Taken on " & rstDetails("Timestamp") & " " & vbCrLf Else '-- No Photographer or Timestamp End If End If Response.Write " Enlarge " & vbCrLf Response.Write " " & rstDetails("Caption") & "" & vbCrLf Response.Write "

<% End Function %> [an error occurred while processing this directive]