<% DBPath = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" DBPath = DBPath & Server.MapPath("db.mdb") Set conn = Server.CreateObject("ADODB.Connection") conn.Open DBPath dim photoID photoID = Request.Querystring("strID") if photoID = "" then strID="1" else If IsNumeric(photoID) = false then response.write "You entered a non-numeric photo id. Please use the next and previous buttons to flip through the photos.

« Go Back" response.end elseif photoID < 1 or photoID > 12 then response.write "You entered an invalid photo id. Please use the next and previous buttons to flip through the photos.

« Go Back" response.end end if strID=photoID End If strAction1=strID-1 strAction2=strID+1 Set rsDetail=Server.CreateObject("ADODB.Recordset") Set rsTot=Server.CreateObject("ADODB.Recordset") rsDetail.Open "SELECT fid,image FROM tblimages where fid="&strID,conn,0,3 rsTot.Open "SELECT * FROM abfTotal",conn,0,3 strTotal=rsTot.Fields("Total") rsTot.Close if rsDetail.Fields("fid")=strTotal then strEnd=true end if if strAction1<>0 then strPrev="" else strPrev="" end if if strEnd=true then strNext="" else strNext="" end if strHome="" ' strToTImages=rsDetail.Fields("fid")&" of "&strTotal strImage="" rsDetail.Close conn.Close Set conn = Nothing %> Manhattan 12.17.2002
<%=strImage%>
<%=strToTImages%>