ciao a tutti sto cercando di generare un file txt ma mi da un errore il file qualcuno sa dirmi sove sbaglio?

codice:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Dim nomefile, filestream
nomefile = Server.MapPath("pippo.xml")
Set objFile = CreateObject("Scripting.FileSystemObject")

'se il file non esiste, crealo
if not objFile.FileExists(nomefile) then
  Set filestream = objFile.OpenTextFile(nomefile, 2, true)
  filestream.WriteLine("0")
end if

Const adOpenKeyset = 1
Const adLockReadOnly = 1

' Stringa di Connessione al Data Base con la password che viene specificata
%>

<%
' Selezioni dalla tabella voli i dati ordinati in modo crescente in base alla ora di partenza
SQL = "SELECT * FROM TabEventi"
' Creo il RECORD SET che contiene tutti i dati selezionati dal Data base
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open SQL, conn, adOpenKeyset,adLockReadOnly
' Eseguo un ciclo su tutti i dati del Recod set e creo il documento XML in output con i vari TAG
'scrive nel file il valore aggiornato di 
Set filestream = objFile.CreateTextFile(nomefile, true)
filestream.WriteLine(qui metti la variabile da scrivere nel file)

' e lo metti nel loop
filestream.WriteLine("<?xml version='1.0'?>")
'Response.Write"<?xml version='1.0'?>"
filestream.WriteLine("<diary>")
'Response.Write"<diary>" 
Do while not rs.eof
filestream.WriteLine("metti qui le variabili")
'Response.Write"<cal yearID=""" & rs("anno") &""" monthID="""& rs("mese") &"""><date id="""& rs("giorno") &"""><msg>"& rs("msg") &"</msg></date></cal>"
rs.movenext
Loop

'aggiungo al documento XML un nodo che contiene il numero totale di record 
Response.Write"</diary>"
' chiudo il file
filestream.Close
rs.close
set rs=nothing
Conn.Close
set conn=nothing
Set filestream = Nothing
Set objFile = Nothing

%>