>
|
<% =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 " |
"
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 "" %>
<% =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 " |
"
next
set Cstream = nothing
newentry = ",Nieuw," & header1
WriteToLog(newentry)
%>