>
width="100%">

<% =Verd4 %> Position Reports Essberger Vessels

Vessel Proximity Position DTG Latitude Longitude heading direction

Dutch Aquamarine

Rotterdam 22-9-2013 22:36 51° 53' 14.40" N 4° 22' 36.00" E 64  
Johann Essberger dudgeon 23-9-2013 3:26 53° 53' 52.80" N 2° 54' 52.80" E 261 East
DAL Kalahari Saldanha Bay 23-9-2013 4:23 32° 54' 10.26" S 17° 21' 14.94" E 144.3 West
Amalie Essberger Leghorn 23-9-2013 4:23 43° 35' 02.34" N 10° 19' 07.80" E 165  
Liesel Essberger Moerdijk 23-9-2013 4:23 51° 41' 31.62" N 4° 33' 44.22" E 83.2  
Georg Essberger Valkenisse 23-9-2013 4:23 51° 44' 04.50" N 3° 15' 43.86" E 335.1 Northwest
Philipp Essberger Scarborough 23-9-2013 4:23 54° 31' 19.20" N 0° 07' 45.84" E 282.6 Northeast
Christian Essberger Hamburg 23-9-2013 4:23 53° 32' 09.00" N 9° 58' 27.00" E 0  
Patricia Essbergeri Narva 23-9-2013 4:23 59° 25' 21.36" N 27° 44' 29.16" E 187.6 West
Ellen Essberger Sandettie LV 23-9-2013 4:24 51° 04' 32.70" N 1° 51' 33.30" E 139.7 Southeast
Roland Essberger shipwshn 23-9-2013 4:25 51° 57' 30.00" N 1° 31' 08.00" E 130 Southwest
Annette Essberger Antwerp 23-9-2013 4:25 51° 18' 53.00" N 4° 18' 24.00" E 20  
Eduard Essberger Helgoland 23-9-2013 4:28 54° 03' 13.00" N 7° 52' 44.00" E 110 South
Valbella Djen-Djen 23-9-2013 4:29 36° 49' 36.00" N 5° 53' 46.00" E 85  
UAFL Zanzibar Suqutrá 23-9-2013 4:36 7° 02' 43.20" N 59° 49' 04.80" E 199 Southeast
Swakop Meraux 23-9-2013 4:36 29° 52' 57.60" N 89° 54' 19.20" W 171 Southeast
Selinda Port Angeles 23-9-2013 4:36 48° 07' 31.20" N 123° 26' 33.60" W 197  
Zambesi Yeosu 23-9-2013 4:36 34° 41' 38.40" N 127° 53' 55.20" E 302  
Elsa Essberger Helgoland 23-9-2013 4:36 54° 02' 14.40" N 8° 07' 43.20" E 32 Southeast
Anneliese Essberger Antwerp 23-9-2013 4:36 51° 17' 45.60" N 4° 19' 43.20" E 22  
Wilhelmine Essberger Antwerp 23-9-2013 4:36 51° 14' 40.80" N 4° 20' 09.60" E 24  
Lisa Essberger Sindhos 23-9-2013 4:36 40° 42' 24.00" N 2° 29' 28.80" E 217 Northeast
Ardea Tetney Terminal 23-9-2013 4:36 53° 33' 04.80" N 0° 15' 45.60" E 268  
Caroline Essberger Berendrecht 23-9-2013 4:36 51° 19' 36.00" N 4° 18' 02.40" E 21  
Ursula Essberger Teesport 23-9-2013 4:36 54° 40' 14.40" N 1° 02' 52.80" W 17  
Dutch Faith Rotterdam 23-9-2013 4:36 51° 52' 40.80" N 4° 15' 04.80" E 60  
Dutch Spirit Gabbardo 23-9-2013 4:40 51° 55' 38.40" N 2° 44' 33.60" E 154 East
Dutch Navigator Borkum 23-9-2013 6:36 53° 46' 24.00" N 6° 31' 14.40" E 74 Northwest
Lucy Essberger Degerhamn 23-9-2013 6:36 56° 23' 55.20" N 17° 18' 16.80" E 231 East
Alcedo Antwerp 23-9-2013 6:36 51° 15' 09.60" N 4° 22' 36.00" E 90  
John Augustus Essberger Hanstholm 23-9-2013 7:03 57° 09' 42.06" N 8° 24' 26.52" E 216.6  
Koralia Colombo 23-9-2013 7:07 7° 03' 47.00" N 79° 44' 14.00" E 5  
Sanaga Tiko 23-9-2013 7:40 3° 51' 44.00" N 9° 29' 01.00" E 305  
Tremonia Macapa 23-9-2013 8:04 0° 02' 40.00" N 50° 59' 10.00" W 115  
Hibernia Kumai 23-9-2013 8:50 4° 33' 20.00" S 111° 06' 38.00" E 115 South
Liselotte Essberger Grangemouth 23-9-2013 9:00 56° 01' 57.00" N 3° 41' 21.00" W 150  
Dutch Emerald Ronehamn 23-9-2013 9:07 57° 18' 21.60" N 19° 11' 48.00" E 37 East

<% =Verd1 %> > <% set fileobj = Server.CreateObject("Scripting.FileSystemObject") strPathInfo = Request.Servervariables("Path_Info") TekstFile = server.mappath(strPathInfo) TekstFile = replace(TekstFile,"noon.asp","") Tekstfile = TekstFile & "newships\" for x = 3 to 17 select case x case 3 : naam = "Caroline Essberger" : bestand = "caroline" case 4 : naam = "Lucy Essberger" : bestand = "lucy" case 5 : naam = "Dutch Navigator" : bestand = "navigator" case 6 : naam = "Ursula Essberger" : bestand = "ursula" case 7 : naam = "Dutch Faith" : bestand = "faith" case 8 : naam = "Dutch Spirit" : bestand = "spirit" case 9 : naam = "Dutch Aquamarine" : bestand = "aquamarine" case 10 : naam = "Dutch Emerald" : bestand = "emerald" case 11 : naam = "Dutch Mariner" : bestand = "mariner" case 12 : naam = "Lisa Essberger" : bestand = "lisa" case 13 : naam = "Wilhelmine Essberger" : bestand = "wilhelmine" case 14 : naam = "Patricia Essberger" : bestand = "patricia" case 15 : naam = "Ardea" : bestand = "ardea" case 16 : naam = "Alcedo" : bestand = "alcedo" case 17 : naam = "Anneliese Essberger" : bestand = "Anneliese" end select crwFile = tekstfile & bestand & "1.txt" if fileobj.FileExists(crwFile) then set file = fileobj.GetFile(crwFile) if now - datevalue(file.DateLastModified) < 35 then teller = teller + 1 pic = "newships_small" & "/" & bestand & ".jpg" nl=chr(13) & chr(10) %> <% else %> <% end if end if end if next entry=",Crew,List" WriteToLog(entry) %>
> <% =Verd1 %><% =naam %>
Datum : <%=Notatie (datevalue(file.DateLastModified)) %>
<% for z = 1 to 5 response.write "
" next %>
<% set Instream = fileobj.OpenTextFile(crwFile, 1, False, False) do while instream.AtEndofStream = false tekst = trim(instream.readline) tekst=replace(tekst,nl,"") tekst=replace(tekst,tab,"") tekst=replace(tekst,"Bemanning","Bemanning : ") if instr(tekst,"-----") <> 0 then tekst="" else if trim(tekst) <> "" then tekst =replace(tekst,":","
") response.write "
" & trim(tekst) end if end if loop %>  
<% if teller/2 = teller\2 then %>