Hej
Jeg har brugt dit script, men får flg. fejl:
Der opstod en Microsoft VBScript-kørselsfejl (0x800A003E)
Input efter filens slutning
/test/Byrådets udpegning.asp, line 395
Linie 395 er denne linie: Temp = Temp & f.ReadLine
du kan se hele scriptet herunder:
opgaveSQL = "Select * from udvalg where id="&id
set opgave = Conn.Execute(opgaveSQL)
url = opgave("udvalg")
filnavn = Url & ".html"
Dim fso, f, filespec
set fso = createobject("Scripting.Filesystemobject")
filespec = Server.MapPath ( filnavn)
Set f = Fso.OpenTextFile(filespec,1)
Do While Not f.AtEndOfStream
Response.Write f.readline & "<br>"
Temp = Temp & f.ReadLine
Loop
f.close
%>
<hr>
<%
response.write ("Temp")
response.write opgave("udvalg") & ".html"
Conn.Close
Set Conn = Nothing
%>
</body>
</html>