Claus O skrev:
>> en løsning med en parameteriseret sub der kun skal skrives én
>> gang være langt bedre.
>
> Er det noget du har et eksempel/link på?
Jeg kan da flikke et sammen ;)
<%
Sub skrivFil(filnavn)
Dim fso, f, filespec
Set fso = CreateObject("Scripting.FileSystemObject")
filespec = Server.Mappath(filnavn)
Set f = fso.OpenTextFile(filespec,1)
' Læs linie for linie indtil slutningen af filen
Do While not f.AtEndOfStream
Response.write f.ReadLine & "<br>"
Loop
f.Close
End Sub
Dim ugedagsfil
Select Case Weekday(Now,VbMonday)
Case 1
ugedagsfil = "mandag.txt"
Case 2
ugedagsfil = "tirsdag.txt"
....
End Select
skrivFil ugedagsfil
%>
(jeg kan aldrig huske om der skal paranteser om et argument til en
sub - hvis det ikke virker, så sæt dem selv)
Jeg kan i øvrigt se at jeg tilsyneladende har blandet to tråde
sammen - men de er vist også skrevet af samme person og om samme
emne (<news:ba925k$1d$1@sunsite.dk> og
<news:ba8n0q$c5o$1@sunsite.dk>)
--
Jens Gyldenkærne Clausen
Svar venligst under det du citerer, og citer kun det der er
nødvendigt for at forstå dit svar i sammenhængen. Se hvorfor og
hvordan på
http://usenet.dk/netikette/citatteknik.html