generare file txt

[enigma_79]

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

<%@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

%>

[Roby_72]

Sei un po' enigmatico...
E l'errore quale sarebbe e dove?

Roby

[enigma_79]

Originariamente inviato da Roby_72
Sei un po' enigmatico...
E l'errore quale sarebbe e dove?

Roby

errore 500 ...

www.4ward.it/test/calendar/generatore.asp

nn mi crea il file ... ovviamente visto che la pagina nn funziona

[Roby_72]

Ecco l'errore:
Microsoft VBScript compilation error '800a03ee'

Expected ')'

/test/calendar/generatore.asp, line 28

filestream.WriteLine(qui metti la variabile da scrivere nel file)
-------------------------^


Menu strumenti --> Opzioni Internet --> Avanzate di Internet Explorer --> Togli la spunta alla voce "Mostra messaggi di errore HTTP brevi"

Roby

[enigma_79]

grazie 1000

provo

[edit]

significa che nn ho i premessi di scrittura... giusto???

[Roby_72]

Eh?
Di che parli?

Roby

[santino83]

si il nuovo errore dovrebbe essere dovuto dal fatto che stai cercando di creare un file dove non puoi