<% dim sFileName dim sTitle dim sSize dim s dim dir dim orig dim sFile sSize = Request.QueryString("size") sFileName = Request.QueryString("fileName") sFile = Request.QueryString("sFile") if sFileName = "" then sCaption = "<-- Click on Thumbnails to display pictures" else sTitle = Request.QueryString("title") dir = lcase(Request.QueryString("dir")) orig = lcase(Request.QueryString("orig")) 'sFileName = dir & "/images/" & sFileName end if dim dsn dim objConn dim captionObj dsn="DBQ=" & Server.Mappath("md.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};" Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open dsn Set captionObj = Server.CreateObject("ADODB.Recordset") %> <%=sTitle%>
<%if sFileName <> "" then%> <%captionObj.Open "select * from caption where filename = '" & sFile & "'", objConn if not captionObj.EOF then%>
<%=captionObj("longCaption")%>
<%end if captionObj.Close%> border="0"> <%else%>
To view images full size,
click on the thumbnail images on the left.
<%end if%>
  © 2004-2015 Machine Device Corporation  
 
<% set captionObj = nothing objConn.close set objConn = nothing %>