% 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") %>
<%if sFileName <> "" then%>
<%captionObj.Open "select * from caption where filename = '" & sFile & "'", objConn
if not captionObj.EOF then%>
|
||
|