salvare un log dei messaggi

[Stanislao]

ho un servizio di messaggistica immediata asp e mysql
e per allegerire il database i messaggi letti al momento
vengono automaticamente cancellati e quindi non posso piu visionarli per controllo di routine

ora, siccome ho riscontrato alcuni problemi relativi a comportamenti poco corretti di alcuni utenti volevo saperere se fosse possibile salvare tutti i messaggi inviati del giorno
in un file .txt per fare solo il controllo e senza gravare sul db

è possibile una cosa del genere??

ecco il codice che scrive il messsaggio nel db

<%
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="Select * from MESSAGGI"
rs.Open sql,Conn,3,3
rs.AddNew
rs("ID_Mittente")=ID_Mittente
rs("ID_Destinatario")=ID_Destinatario
rs("Titolo_Messaggio")=Titolo_Messaggio
rs("Messaggio")=Messaggio
rs("Data_Messaggio")=Now()
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
verifyAlreadyExist=true
end if
%> 

grazie infinite

[optime]

usa FSO

[wallrider]

http://free-script.it/post/Leggere_e...on_asp-37.html

[Stanislao]

sto usando fso

ma ho qualche problemino nel recperare i dati dal db e scriverli

cosa sbaglio in questa sintassi?

Set objFile = objFileSystem.OpenTextFile(filePath, 8)

objFile.WriteLine(""&rs("Titolo_Messaggio")&" : "&rs("Messaggio")&" - "&rs("Data_Messaggio")&"") 

objFile.Close 

mi da un file vuoto...


grazie ancora

[Stanislao]

ho risolto sopra...erano i permessi in scrittura

ora sorge un ultimo dilemma

dovrei creare un txt al giorno di nome es: 12112006.txt

si puo fare??

filePath = Server.Mappath("/foto/mess.txt")

Set objFileSystem = Server.CreateObject("Scripting.FileSystemObject")

if not objFileSystem.FileExists(filePath) then    

objFileSystem.CreateTextFile(filePath)

end if

Set objFile = objFileSystem.OpenTextFile(filePath, 8)

objFile.WriteLine(""&rs("Titolo_Messaggio")&"        |"&rs("Messaggio")&"        |"&rs("Data_Messaggio")&"        |"&rs("ID_Destinatario")&"")


objFile.Close

Set objFile=Nothing

Set objFileSystem=Nothing 

grazie millissime!

[wallrider]

filePath = Server.Mappath("/foto/")
filePath = filePath & format(date,"ddmmyyyy")
filePath = filePath & ".txt"

eccetera

in ogni caso ti consiglio di:
- scrivere il nome del file nel formato anno mese giorno
- invece di fare il controllo dell'esistenza apri in file in scrittura "for append"

[Stanislao]

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'format'

/new/invia2.asp, line 64


:master:

[Stanislao]

up

[Lak3d]

almeno ci dici che codice c'è sulla riga 64 o tiriamo a indovinare? :master:

[Stanislao]

ho risolto così

File = "/foto/aspnet/" & Day(Date()) & "-" & Month(Date()) & "-" & Year(Date()) & ".txt"