Problems writing percent character

[Simon Wigzell]

I have written an asp funciton to write a 301 redirect. It gets the file
name and the new desitination as arguments. I am doing this for hundreds of
files so a script is more accurate than doing it manually and much faster, I
thought. Problem is it chokes on the line:

FileText = FileText & "%>" & vbcrlf

Error message is:
Microsoft VBScript compilation error '800a0409'

Unterminated string constant

/NewTest/TestRedirects/WriteRedirects.asp, line 58

FileText = FileText & "
-----------------------^It doesn't have any problem with FileText = FileText
& "<%" & vbcrlf

I've tried escaping it:

FileText = FileText & "\%>" & vbcrlf

but it chokes on the "\"

How can I append "%>" to a string????

Full function follows:

function CreateRedirect(Filename,Destination)
FullFilename = server.mappath(Filename)
set fs = CreateObject("Scripting.FileSystemObject")
set file = fs.OpenTextFile(FullFilename, 2, true)
FileText = ""
FileText = FileText & "<%" & vbcrlf
FileText = FileText & "Response.Status = ""301 Moved Permanently""" &
vbcrlf
FileText = FileText & "Response.addheader ""Location"",""" & Destination
& """ & vbcrlf
FileText = FileText & "Response.End" & vbcrlf
FileText = FileText & "%>" & vbcrlf
file.WriteLine(FileText)
file.Close()
set fs = nothing
end function

[Gérard Leclercq]

Try with
What is the content of FileText ?

FileText = FileText & Chr(37) & ">" & vbcrlf

[Simon Wigzell]

"Gérard Leclercq" <ge*************@pas-de-mail.fr> wrote in message
news:9M********************@phobos.telenet-ops.be...

Try with
What is the content of FileText ?

FileText = FileText & Chr(37) & ">" & vbcrlf

Thanks! That solved it.

[Evertjan.]

Gérard Leclercq wrote on 16 feb 2005 in
microsoft.public.inetserver.asp.general:

Try with
What is the content of FileText ?

FileText = FileText & Chr(37) & ">" & vbcrlf

FileText = FileText & "%" & ">" & vbcrlf

Why can I never remember them ascii numbers?
'cause they are American?

--
Evertjan.
The Netherlands.
(Replace all crosses with dots in my emailaddress)

[Dave Anderson]

Evertjan. wrote:

Why can I never remember them ascii numbers?
'cause they are American?

This American uses Arabic numerals for expressing ASCII numbers.

--
Dave Anderson

Unsolicited commercial email will be read at a cost of $500 per message. Use
of this email address implies consent to these terms. Please do not contact
me directly or ask me to contact you directly for assistance. If your
question is worth asking, it's worth posting.

[Roland Hall]

"Dave Anderson" wrote in message
news:uU**************@TK2MSFTNGP09.phx.gbl...
: Evertjan. wrote:
: > Why can I never remember them ascii numbers?
: > 'cause they are American?
:
: This American uses Arabic numerals for expressing ASCII numbers.

I'm using Italian (Roman) numerals with a lemon twist for expressing ASCII
numbers in my champagne cocktail. (O:=

--
Roland Hall
/* This information is distributed in the hope that it will be useful, but
without any warranty; without even the implied warranty of merchantability
or fitness for a particular purpose. */
Technet Script Center - http://www.microsoft.com/technet/scriptcenter/
WSH 5.6 Documentation - http://msdn.microsoft.com/downloads/list/webdev.asp
MSDN Library - http://msdn.microsoft.com/library/default.asp