<% set Params = Request.QueryString schip = Request.QueryString("schip") set fileobj = Server.CreateObject("Scripting.FileSystemObject") strPathInfo = Request.Servervariables("Path_Info") Bestand = server.mappath (strPathInfo) bestand = replace(bestand,"Shipping_Response.asp","") textfile = bestand & "newships/" & schip picfile = naamserver & "newships/" & schip & ".jpg" select case lcase(schip) case "lucy" : header1 = "Lucy Essberger" case "progress" : header1 = "Dutch Progress" case "navigator" : header1 = "Dutch Navigator" case "mate" : header1 = "Dutch Mate" case "faith" : header1 = "Dutch Faith" case "spirit" : header1 = "Dutch Spirit" case "aquamarine" : header1 = "Dutch Aquamarine" case "emerald" : header1 = "Dutch Emerald" case "mariner" : header1 = "Dutch Mariner" case "engineer" : header1 = "Dutch Engineer" case "bastiaan" : header1 = "Bastiaan Broere" case "jacobus" : header1 = "Jacobus Broere" case "ardea" : header1 = "Ardea" case "alcedo" : header1 = "Alcedo" case "caroline" : header1 = "Caroline Essberger" case "patricia" : header1 = "Patricia Essberger" case "ursula" : header1 = "Ursula Essberger" case "anneliese" : header1 = "Anneliese Essberger" case "wilhelmine" : header1 = "Wilhelmine Essberger" case "lisa" : header1 = "Lisa Essberger" end select %> > > " end if set Tstream=Nothing textfile = replace(nbestand,".txt","") teller = 0 dim kleinste(9,1) for x = 2 to 9 nbestand = textfile & x & ".txt" if fileobj.FileExists(nbestand) = True then set file = fileobj.GetFile(nbestand) AantalDagen = 60 if (NOW - file.datelastmodified <= AantalDagen) then teller = teller + 1 kleinste(teller,0) = nbestand kleinste(teller,1) = file.DateLastModified end if end if next if teller > 1 then dim zoek(9,1) For x = 2 to teller waarde = kleinste(x,1) zoek(x,0) = kleinste(x,0) zoek(x,1) = kleinste(x,1) y = x-1 while (waarde >= kleinste(y, 1) and (y > 0)) kleinste(y + 1, 0) = kleinste(y, 0) kleinste(y + 1, 1) = kleinste(y, 1) y = y -1 wend kleinste(y + 1, 0) = zoek(x, 0) kleinste(y + 1, 1) = zoek(x, 1) next end if for x = 1 to teller pos = instr(kleinste(x,0),"newships") nieuw = mid(kleinste(x,0),pos,pos+30) nieuw = replace(nieuw,"newships","newships_small") nieuw = replace(nieuw,"\","/") nieuw = replace(nieuw,".txt",".jpg") nieuw = naamserver & nieuw response.write "" next set Cstream = nothing newentry = ",Nieuw," & header1 WriteToLog(newentry) %>
<% =header1 %>  
<% =Verd2 %>De lotgevallen van een chemicalien Tanker
<% bestand=textfile & "0.txt" set Instream = fileobj.OpenTextFile(bestand, 1, False, False) do while instream.AtEndofStream = false tekst = instream.readline Response.write tekst & "
" loop response.write "
" Set instream = Nothing bestand=textfile & ".txt" nbestand = replace(textfile,".txt","0.txt") if fileobj.FileExists(bestand)= True then set Tstream = fileobj.OpenTextFile(bestand, 1, False, False) do while Tstream.AtEndofStream = false tekst = Tstream.readline Response.write tekst & "
" loop response.write "
" %> <% =Verd1 %>Datum : <% =Notatie(datevalue(kleinste(x,1))) %>

<% nbestand = kleinste(x,0) set Cstream = fileobj.OpenTextFile(nbestand, 1, False, False) do while Cstream.AtEndofStream = false tekst = Cstream.readline tekst = replace(tekst,"foto/",naamserver & "morepics/" ) Response.write tekst & "
" loop response.write "