% dim db dim rs dim PicID dim PicTitle dim HullNo dim TypeOfVessel set db = Server.CreateObject("ADODB.connection") set rs = Server.CreateObject("ADODB.recordset") picID = request.QueryString("picID") pat = Server.MapPath(".") & ".\PhotoGallery.mdb" db.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & pat rs.open "select * from tblPicsStaff where fldPicID = '"& picID &"'",db if not rs.eof then PicTitle = rs.fields("fldPicTitle") end if %>
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||