Problema su creazione file con tag asp interni

[centoiso]

Ciao a tutti, è un po' che non lavoro in ASP classic e non ricordo una cosa che feci anni fa, forse qualcuno ha più memoria di me :-)
Devo generare in maniera automatica (tramite una query su db) una serie di pagine asp, ma lo script mi va in errore quando provo ad inserire il carattere %> per la chiusura.
Ecco il codice:

Dim fsoMyFile
Dim tsTextStream


Set fsoMyFile = CreateObject("Scripting.FileSystemObject")
Set tsTextStream = fsoMyFile.OpenTextFile(Server.MapPath("/cartella/nomefile.asp"), 8, True)
tsTextStream.Write ("<% ... %> ")

L'ultima riga mi va in errore nel punto della chiusura (<% non crea problemi)

Cosa mi consigliate?

[optime]

che vuol dire "va in errore"?

[centoiso]

Microsoft VBScript compilation error '800a0409'
Unterminated string constant
/script.asp, line 4
stringa = ("
------------^

la variabile stringa è quella che valorizzo dal db e che alla fine contiene il tag di chiusura asp %>

[optime]

stringa="..."

[centoiso]

Grazie optime ma il problema non è quello, avevo scritto male la parentesi non c'è ma il problema è lo stesso "Unterminated string constant" alla riga do c'è
tsTextStream.Write ("<% pippo %> ")

Sono sicuro che c'è un modo per risolvere (anni fa generai centinaia di pagine così) ho fatto un po' di ricerche ma non trovo nulla... aiuto!

[optime]

puoi per piacere postare il codice VERO? con qualche riga prima e qualche riga dopo? con evidenziato il punto in cui ti dà errore? con l'errore esatto? grassie grassie grassie

[centoiso]

Dim fsoMyFile
Dim tsTextStream


Set fsoMyFile = CreateObject("Scripting.FileSystemObject")
Set tsTextStream = fsoMyFile.OpenTextFile(Server.MapPath("/folder/123.asp"), 8, True)
tsTextStream.WriteLine("<% id=1 %>")


tsTextStream.Close


Microsoft VBScript compilation error '800a0409'
Unterminated string constant
/script.asp, line 6
tsTextStream.WriteLine("<% id=1
--------------------------------^

[optime]

magari gli danno fastidio quei due tag

myLine="<§ id=1 §>")
myLine=Replace(myLine, "§", "%")
tsTextStream.WriteLine(myLine)

prova e facce sape'

[centoiso]

Grande! Funzia...
Certo io non sarò un genio ma pure ASP non scherza...
Grazie

[optime]

optime!