Opret asp fil

Ja, det er det da :-)

Ja det kan du :)

Men jeg vil lige skrive:

Set fs = Nothing

til sidst For en ordenskyld :)

Ja det skulle jeg også mene men, bla. ASP tags <% %> kan ikke indlæses i en streng.
Så når jeg afvikler scriptet får jeg denne fejl:

Microsoft VBScript compilation error '800a0409'
Unterminated string constant
/manager/engins/publish_page.asp, line 9
Input = Input & "<% Page_ID = 1
--------------------------------------------------------------------------------------

Her er hele min kode:
Input = Input & "<% Page_ID = 1 %>"&vbCrLf
Input = Input & "<!--#include virtual="/pages.asp"-->"
Set fs = CreateObject("Scripting.FileSystemObject")
Set wfile = fs.CreateTextFile("c:\test.asp",True)
wfile.Write (Input)
wfile.close
Set wfile=nothing
Set fs=nothing

erstat :
Input = Input & "<!--#include virtual="/pages.asp"-->"

med:
Input = Input & "<!--#include virtual=""/pages.asp""-->"

Input = Input & "<% Page_ID = 1 %>"&vbCrLf

kan du fixe sådan:

Input = Input & "<% Page_ID = 1 %\>"&vbCrLf

<%
Input = Input & "<" &_
"% Page_ID = 1 %"&_
">"&vbCrLf
Input = Input & "<!"&_
"--#include vir" & _
"tual=""/pages.asp""-->"
Set fs = CreateObject("Scripting.FileSystemObject")
Set wfile = fs.CreateTextFile("c:\test.asp",True)
wfile.Write (Input)
wfile.close
Set wfile=nothing
Set fs=nothing
%>

Tak -mundi-. Dit sidste forslag virker perfect.