Fejl ved skrivning til fil med FSO

Jeg har lidt problemer med at skrive til en txt fil.
Kode:
<%
session.LCID = 1030
dagidag = date()
stradd1 = "" + VbCrlf
stradd1 = stradd1 & "<%" + VbCrlf
stradd1 = stradd1 & "last_dato = """ & dagidag & """" + VbCrlf
stradd1 = stradd1 & "%>"

Set fso = CreateObject("Scripting.FileSystemObject")
Set skrivupdate = fso.OpenTextFile(Request.ServerVariables("APPL_PHYSICAL_PATH")& "last_update.txt", 2, True)
skrivupdate.Write stradd1
Set skrivupdate = Nothing
Set fso = Nothing
response.write "Færdig"
%>

- men den kommer med følgende fejl:

Microsoft VBScript compilation error '800a0409'

Unterminated string constant

/skiftdato/default.asp, line 7

stradd1 = stradd1 & "
---------------------^

Hvis jeg undlader <% og %>, så funker det fint ?

/Goose