<%@ LANGUAGE="VBSCRIPT" %> <%'The following line inserts the file at this location%> <% Set conn = Server.CreateObject("ADODB.Connection") conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\home\db\Photodb\Photo.mdb;Jet OLEDB:System Database=C:\home\db\RESEARCH.MDW;User ID=Visitor;Password=;" Set Session("Photodb_conn") = conn %> <% sql = "SELECT tblPhotoManage.*, tblPhotoVessel.*" sql = sql & " FROM tblPhotoManage INNER JOIN tblPhotoVessel ON tblPhotoManage.RecordCounter = tblPhotoVessel.RecordCounter" sql = sql & " WHERE (((tblPhotoVessel.RecordCounter)=" & request("RecNum") & "))" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, conn, 3, 3 On Error Resume Next rs.movefirst %>

<%BackTo(Request("RequestPage")(Request("RequestPage").Count))%>

This is the image you have requested. The current image size is <%Response.Write(Request("Zoom"))%>%. You may resize this photograph (from 5% to 50%) by using the percentage bar. Larger images may take several minutes to load.

<% %> <%For Mag=5 to 50 Step 5%> <%If Int(Request("Zoom")) = Mag then%> &Zoom=<%response.write(Mag)%>&Site=<%response.write(Request("Site"))%><%FRPMultiGet("")%>"> <%Else%> <%If Int(Request("Zoom")) < Mag then%> &Zoom=<%response.write(Mag)%>&Site=<%response.write(Request("Site"))%><%FRPMultiGet("")%>"><%Response.Write(Mag)%>% <%Else%> &Zoom=<%response.write(Mag)%>&Site=<%response.write(Request("Site"))%><%FRPMultiGet("")%>"><%Response.Write(Mag)%>% <%End If%> <%End If%> <%Next%>

<% FileName = "photos/5mt1825/" & rs.Fields("tblphotomanage.RecordCounter").Value & "." & rs.Fields("ImageType").Value %> <%If Request("Zoom") = 5 then%> "> <%Else%> "> <%End If%>

<%If rs.Fields("CCACCopyright") then%> Photograph Copyright © 1999 by Crow Canyon Archaeological Center. All rights reserved. <%Else%> Photograph Copyright © 1999 by <%response.write(rs.Fields("CopyrightOwnership"))%>. All rights reserved. <%End If%> <%If rs.Fields("CreditRequired") then%> Photograph Credit <%response.write(rs.Fields("CreditDetails"))%> <%End If%>

Photo <%response.write(rs.Fields("tblPhotoManage.RecordCounter").Value)%> Vessel Number <%response.write(rs.Fields("VesNum").Value)%> Comments: <%response.write(rs.Fields("Description").Value)%>

&RequestPage=Chooser_Page">How to Cite the <%response.write(Site_Name)%> Database <%response.write(Copyright_Info)%>

<% rs.close set rs = nothing conn.close %>