> > <% dim fileobj , strPathInfo set fileobj = Server.CreateObject("Scripting.FileSystemObject") strPathInfo = Request.Servervariables("Path_Info") TekstFile = server.mappath(strPathInfo) TekstFile = replace(TekstFile,"WhatsHappening.asp","") TekstFile = TekstFile & "newships\" dim kleinste(200,2) for x = 3 to 19 select case x case 3 : naam = "Dutch Pilot" : bestand = "pilot" case 4 : naam = "Wilhelmine Essberger" : bestand = "wilhelmine" case 5 : naam = "Dutch Navigator" : bestand = "navigator" case 6 : naam = "Dutch Mate" : bestand = "mate" 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 = "Ursula Essberger" : bestand = "ursula" case 12 : naam = "Anneliese Essberger" : bestand = "anneliese" case 13 : naam = "Lisa Essberger" : bestand = "lisa" case 14 : naam = "Jacobus Broere" : bestand = "jacobus" case 15 : naam = "Ardea" : bestand = "ardea" case 16 : naam = "Alcedo" : bestand = "alcedo" case 17 : naam = "Caroline Essberger" : bestand = "caroline" case 18 : naam = "Lucy Essberger" : bestand = "lucy" case 19 : naam= "Patricia Essberger": bestand = "patricia" end select for y = 2 to 9 crwFile = tekstfile & bestand & y & ".txt" if fileobj.FileExists(crwFile) then set file = fileobj.GetFile(crwFile) AantalDagen = 30 if (NOW - file.datelastmodified <= AantalDagen) then teller = teller + 1 kleinste(teller,0) = naam kleinste(teller,1) = crwFile kleinste(teller,2) = file.DateLastModified end if end if next next if teller > 1 then dim zoek(200,3) For x = 2 to teller waarde = kleinste(x,2) zoek(x,0) = kleinste(x,0) zoek(x,1) = kleinste(x,1) zoek(x,2) = kleinste(x,2) y = x-1 while (waarde >= kleinste(y, 2) and ( y > 0)) kleinste(y + 1, 0) = kleinste(y, 0) kleinste(y + 1, 1) = kleinste(y, 1) kleinste(y + 1, 2) = kleinste(y, 2) y = y -1 wend kleinste(y+1,0) = zoek(x,0) kleinste(y+1,1) = zoek(x,1) kleinste(y+1,2) = zoek(x,2) next end if for x = 1 to teller pic = "newships_small" & "/" & kleinste(x,0) & ".jpg" pic = replace(Pic,"Dutch ","") pic = replace(pic," Broere","") pic = replace(pic," Essberger","") pic = naamserver & lcase(trim(pic)) %> <% next entry=",Last,Received" WriteToLog(entry) If teller < 1 then %> <% =Verd1 %> <% end if %>
<% =Verd4 %>Wat Gebeurt er op Zee
<% =Verd1 %> <% =kleinste(x,0) %>
Datum : <% =notatie(datevalue(kleinste(x,2))) %>


<% set Instream = fileobj.OpenTextFile(kleinste(x,1), 1, False, False) do while instream.AtEndofStream = false tekst = instream.readline tekst = replace(tekst,"foto/",naamserver & "morepics/" ) response.write tekst & "
" loop %>
<% =Verd1 %> Sorry mensen, geen berichten ontvangen de laatste <% =AantalDagen %> dagen