<%
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
%>
THICI Online - Tsuneishi Heavy Industries (Cebu), Inc.
