<% width="700" height="500" %> <%If request("fdp")="y" then%>
Flying Dutchman Projects




<%else%>

<%end if%> <% If Request("album") = "" then Album=0 else Album=cInt(Request("album")) end If Dim dbConnection, rsRecordSet, strSQL StrSQL = "SELECT * FROM tblAlbum Where Album="+ cstr(Album) + " ORDER BY Row, Column ASC" Set dbConnection = Server.CreateObject("ADODB.Connection") DbConnection.Open "Data Source = " & Server.MapPath("album.mdb") & ";Provider=Microsoft.Jet.OLEDB.4.0;" Set rsRecordSet = DbConnection.Execute(StrSQL) LastRow=0 NewRow=0 TotalDescription="" PicturePrinted=0 If not(rsRecordSet.EOF and rsRecordSet.BOF) then RsRecordSet.MoveFirst While not rsRecordSet.EOF NewRow = rsRecordSet.Fields.Item("Row") If LastRow>0 and NewRow<>LastRow then If PicturePrinted>0 then %>
<%Response.Write(TotalDescription) TotalDescription = ""%>
<% end if End If LastRow = NewRow If rsRecordSet.Fields.Item("pic_url")="none" then If rsRecordSet.Fields.Item("thumbnail")<>"none" then %> / <%Response.Write(rsRecordSet.Fields.Item("thumbnail"))%>" align="middle" border = 0> <% end if Else If rsRecordSet.Fields.Item("video") = "y" then %> / <%Response.Write(rsRecordSet.Fields.Item("pic_url"))%>"> / <%Response.Write(rsRecordSet.Fields.Item("thumbnail"))%>" align="middle" border="0" ALT="Look at the video" > <% else %> /pic.asp?pic_url=<%Response.Write(rsRecordSet.Fields.Item("pic_url"))%>&.html', 'album', 'title=false,resizable=yes,scrollbars=yes,left=0,top=0,width=<%=width%>,height=<%=height%>'); return false"> / <%Response.Write(rsRecordSet.Fields.Item("thumbnail"))%>" align="middle" border = 0> <% end if End If TotalDescription = TotalDescription & rsRecordSet.Fields.Item("pic_description") PicturePrinted = PicturePrinted + 1 RsRecordSet.MoveNext wend If PicturePrinted>0 then %>
<%Response.Write(TotalDescription)%>
<% end if End if RsRecordSet.Close DbConnection.Close Set rsRecordSet = Nothing Set dbConnection = Nothing %>