Write to a file.
<%
sImg = "#FFFFFF"
sVid = "#FFFFFF"
%>
I just want to right the above code in a .INC file. I am using the following code.
<%
dim fs,fname, strPath, a, b, cl
a= """#FFFFFF"""
b= """#000000"""
set fs=Server.CreateObject("Sc
strPath = Server.MapPath("./cat.inc"
set fname=fs.CreateTextFile(st
fname.WriteLine("<%")
fname.WriteLine("sImg = " & a )
fname.WriteLine("sVid = " & b )
fname.WriteLine("%>")
fname.Close
set fname=nothing
set fs=nothing
%>
It keeps giving error:
--------------------------
Microsoft VBScript compilation error '800a0409'
Unterminated string constant
/test.asp, line 19
fname.WriteLine("
--------------------------
line 19 is this:
fname.WriteLine("%>")
sImg = "#FFFFFF"
sVid = "#FFFFFF"
%>
I just want to right the above code in a .INC file. I am using the following code.
<%
dim fs,fname, strPath, a, b, cl
a= """#FFFFFF"""
b= """#000000"""
set fs=Server.CreateObject("Sc
strPath = Server.MapPath("./cat.inc"
set fname=fs.CreateTextFile(st
fname.WriteLine("<%")
fname.WriteLine("sImg = " & a )
fname.WriteLine("sVid = " & b )
fname.WriteLine("%>")
fname.Close
set fname=nothing
set fs=nothing
%>
It keeps giving error:
--------------------------
Microsoft VBScript compilation error '800a0409'
Unterminated string constant
/test.asp, line 19
fname.WriteLine("
--------------------------
line 19 is this:
fname.WriteLine("%>")
Last Comment
With fname
.WriteLine "<%"
.WriteLine "sImg = " & a
.WriteLine "sVid = " & b
.WriteLine "%>"
End With
.WriteLine "<%"
.WriteLine "sImg = " & a
.WriteLine "sVid = " & b
.WriteLine "%>"
End With
ASKER
same error:
Microsoft VBScript compilation error '800a0409'
Unterminated string constant
/test.asp, line 19
fname.WriteLine "
-----------------^
Microsoft VBScript compilation error '800a0409'
Unterminated string constant
/test.asp, line 19
fname.WriteLine "
-----------------^
Is the file even created?
What if you use
fname.WriteLine "test"
What if you use
fname.WriteLine "test"
try this
<%
dim fs,fname, strPath, a, b, cl
a= """#FFFFFF"""
b= """#000000"""
set fs=Server.CreateObject("Sc
strPath = Server.MapPath("./cat.inc"
set fname=fs.CreateTextFile(st
fname.WriteLine("<%")
fname.WriteLine("sImg = " & a & "")
fname.WriteLine("sVid = " & b & "")
fname.WriteLine("%>")
fname.Close
set fname=nothing
set fs=nothing
%>
<%
dim fs,fname, strPath, a, b, cl
a= """#FFFFFF"""
b= """#000000"""
set fs=Server.CreateObject("Sc
strPath = Server.MapPath("./cat.inc"
set fname=fs.CreateTextFile(st
fname.WriteLine("<%")
fname.WriteLine("sImg = " & a & "")
fname.WriteLine("sVid = " & b & "")
fname.WriteLine("%>")
fname.Close
set fname=nothing
set fs=nothing
%>
ASKER CERTIFIED SOLUTION
THIS SOLUTION IS ONLY AVAILABLE TO MEMBERS.
View this solution by signing up for a free trial.
Members can start a 7-Day free trial and enjoy unlimited access to the platform.
davbouchard is correct.
Anytime you are trying to write code to a file (using the FSO), you will need to do how he/she suggested
Anytime you are trying to write code to a file (using the FSO), you will need to do how he/she suggested
ASKER
thanks davbouchard. It works.
ASP
Active Server Pages (ASP) is Microsoft’s first server-side engine for dynamic web pages. ASP’s support of the Component Object Model (COM) enables it to access and use compiled libraries such as DLLs. It has been superseded by ASP.NET, but will be supported by Internet Information Services (IIS) through at least 2022.
82K
Questions
--
Followers
--
Top Experts
Get a personalized solution from industry experts
TRUSTED BY
fname.WriteLine "%>"