>
width="100%">

<% =Verd4 %>Bemanningslijsten

<% =Verd1 %> > <% set fileobj = Server.CreateObject("Scripting.FileSystemObject") strPathInfo = Request.Servervariables("Path_Info") TekstFile = server.mappath(strPathInfo) TekstFile = replace(TekstFile,"crew.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 %>