sto cercando di creare una pagina asa

e scrivo il codice cosi:

<%

Dim FileObject, inStream, fso, f, OutStream, Blnfile

Set fso = CreateObject("Scripting.FileSystemObject")
Blnfile = fso.fileExists(server.mappath("../../../public/login.asa"))
If blnfile = True Then
Set OutStream = fso.createtextfile(server.mappath("../../../public/login.asa"),true)
outstream.write("<%")
outstream.writeline("Username="&request.form("User name"))
outstream.writeline("Password="&request.form("Pass word")&"")
outstream.write("%>")
outstream.close
else
Response.Write("non esiste il file")

end if

%>

ma alla riga evidenziata mi restituisce il seguente errore:
Costante String senza terminazione
outstream.write("

Ho provato anche cosi:
outstream.write("'"%>"'")
outstream.write('%>')
outstream.write('%>'")
outstream.write(""%>"")
mi restituisce sempre lo stesso errore consigli!!!!!!