<% dim db dim rs dim PicID dim PicTitle dim HullNo dim TypeOfVessel dim PageNo dim DWT set db = Server.CreateObject("ADODB.connection") set rs = Server.CreateObject("ADODB.recordset") picID = request.QueryString("picID") PageNo = request.QueryString("PageNo") pat = Server.MapPath(".") & ".\PhotoGallery.mdb" db.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & pat rs.open "select * from tblPicsShips where fldPicID = '"& picID &"'",db if not rs.eof then PicTitle = rs.fields("fldPicTitle") HullNo = rs.fields("fldHullNo") TypeOfVessel = rs.fields("fldType") MSize = rs.fields("fldSize") DateOfLaunching = rs.fields("flddateofLaunching") Owner = rs.fields("fldowner") DWT = rs.fields("fldDWT") GRT = rs.fields("fldGRT") end if rs.close set rs = nothing db.close set db = nothing %> THICI Online - Tsuneishi Heavy Industries (Cebu), Inc.
   
News and Information
News Bulletin  |   Press Room  |   Photo Library  |   Monthly Newsletter
 
Photo Library
<% Response.Write FormatDateTime(Now, vbLongDate) %>
 
Launching
Century Sea Launching Ceremony  
Date of Launching: Nov 29 2000  
Century Sea Launching Ceremony

<% if PageNo = 1 then PicLink="ptShips.asp" elseif PageNo = 2 then PicLink="ptShips2.asp" elseif PageNo=3 then PicLink="ptShips3.asp" elseif PageNo=4 then PicLink="ptShips4.asp" end if %>
Back to Milestones
Back To Main