In che modo si può scrivere in un file .asp il carattere % senza che dia errore?

Lo script

Dim FileObject
Set FileObject=Server.CreateObject("Scripting.FileSyst emObject")
'SCRIVO SU PROVA.TXT DATA ED ORA
Set OutStream=FileObject.CreateTextFile(Server.MapPath ("../public/aspetto_home_"&request("tabella_txt")&".asp"),true ,0)
Outstream.WriteLine "<% aspetto_home_"&request("tabella_txt")&"="&request( "aspetto")
Outstream.WriteLine "%>"
OutStream.Close
Set OutStream=Nothing
Set FileObject=Nothing

L'errore:

Microsoft VBScript compilation error '800a0409'

Unterminated string constant

/intro.asp, line 8

Outstream.WriteLine "
---------------------^