Variabile in file di testo

[ragepunk]

uff è tutto il pome ke navigo qua e la per cercare soluzioni, e sono quasi arrivato a illuminarmi la vita.

io devo scrivere il contenuto di una variabile in un file di testo ..

uso ciò

Set f=fs.OpenTextFile(Server.MapPath("../public/mailing/"&idMailing&".txt"), 1)

tfile.Write(body)
tfile.close
set tfile=nothing
set fs=nothing

peccato non funzioni ...

se al posto di

tfile.Write(body)

metto

tfile.Write("provaaaa")

ovviamente funziona ...

nella variabile BODY c'è dentro una pagina html ...

[supergeniux]

path = "../public/mailing/"&idMailing&".txt")"
set objFile = objFileSystem.OpenTextFile(server.mappath(path), 2, TRUE)
objFile.WriteLine variabile
objFile.Close
Set objFile = Nothing

[ragepunk]

quindi ...
questo è il codice che ho inserito

dim objFileSystem,objFile
set objFileSystem=Server.CreateObject("Scripting.FileSystemObject")
set objFile=objFileSystem.CreateTextFile("C:\webspace\resadmin\ragepunk\ragepunk.com\www\public\mailing\"&idMailingNew&".txt")
path = "../public/mailing/"&idMailingNew&".txt"
set objFile = objFileSystem.OpenTextFile(server.mappath(path))
objFile.Writeline body
objFile.Close
Set objFile = Nothing
set objFileSystem=nothing

questo è l'errore riportato :\

me lo da qua objFile.Writeline body

Microsoft VBScript runtime error '800a0036' 

Bad file mode 

/mailing/invio.asp, line 55

[ragepunk]

ah dimenticavo ...

se dopo server.mappath(path)

metto ,2 , TRUE

mi da questo errore

Microsoft VBScript runtime error '800a0046'

Permission denied

/mailing/invio.asp, line 54


alla linea precedente
set objFile = objFileSystem.OpenTextFile(server.mappath(path))

[Roby_72]

Non hai i permessi di scrittura nella cartella in cui tenti di aprire il file.

Roby

[ragepunk]

Originariamente inviato da Roby_72
Non hai i permessi di scrittura nella cartella in cui tenti di aprire il file.

Roby

doh'

ma se il file lo creo (ed effettivamente viene creato perchè controllo in ftp e il file c'è) i permessi di scrittura dovrebbero esserci :\

ma quel ,2 , TRUE che vuol dire ?? :\
soprattutto ... perchè sono così sfigato ??

[Roby_72]

L'errore che ti dava prima usavi una variabile body il cui contenuto era vuoto...

[ragepunk]

so' di essere un rompikazzo ... però il campo è pieno di dati, kontiene il codice di una pagina html intera...

e me lo stampa ... solo che mi da sempre gli stessi errore, sia mettendo ,2,TRUE ke non mettendolo ...

[Silver_Knight]

ragepunk, so che vado a prendere un thread un po vecchio , ma volevo chiederti se avevi risolto il problema, visto che è anche il mio.

Grazie

[Silver_Knight]

Guarda sn riuscito a fare il tutto, grazie mille lo stesso.

Ti allego il codice


Dim codice, paginaweb, stringa
dim objFSO, objFile, objTextFile
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.CreateTextFile("C:\Prova.txt")

paginaweb = "http://www.google.com"

Set codice = CreateObject("Microsoft.XMLHTTP")

codice.Open "GET", paginaweb, False
codice.Send

stringa = CStr(codice.ResponseText)

MsgBox (stringa)

objFile.Write stringa

objFile.Close

Set stringa = Nothing
Set codice = Nothing