Ragazzi io ho modificato questo codice che prende delle variabili da flash le mette in un data base e mi manda anche un'email.ora che l'ho modificato nn mi manda più e-mail secondo voi ci deve essere qualche problema nel codice?


<%

data = Now()
nome = Replace(request("newname"),"'", "''")
titolo = Replace(request("title"),"'", "''")
messaggio = Replace(request("themsg"),"'", "''")
ilpadre =Cint( request("padre"))




StrConnessione = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("/mdb-database") & "\dataforum.mdb"


Set Conn = Server.CreateObject("ADODB.Connection")

Conn.Open StrConnessione


SQL = "insert into tabmsg (nome,titolo,messaggio,Data,IDpadre)"

SQL = SQL & " values ('" & nome & "','" & titolo & "','" & messaggio & "','" & data & "','" & ilpadre & "')"


'response.write SQL

Conn.execute SQL


Conn.Close
set Conn=nothing

If Not Session("inviomail") then

Set oMessaggioTEXT = CreateObject("CDO.Message")

'Composizione del Testo della Mail

TestoMail = TestoMail & "Nome: "
TestoMail = TestoMail & nome
TestoMail = TestoMail & "
"
TestoMail = TestoMail & "Titolo: "
TestoMail = TestoMail & titolo
TestoMail = TestoMail & "
"
TestoMail = TestoMail & "Messaggio: "
TestoMail = TestoMail & messaggio
TestoMail = TestoMail & "
"
TestoMail = TestoMail & "
"
TestoMail = TestoMail & "
"
TestoMail = TestoMail & "Questa mail ti è stata inviata dal Forum dei LAST EXIT"
TestoMail = TestoMail & "
"
TestoMail = TestoMail & "Perchè hai richiesto di essere avvisato di nuovi messaggi sul forum"
TestoMail = TestoMail & "
"
TestoMail = TestoMail & "Se non vuoi più ricevere queste e-mail scrivi a lastexit@last-exit.it"
TestoMail = TestoMail & "
"
TestoMail = TestoMail & "Facendo presente la tua E-MAIL e il testo STOP EMAIL"
TestoMail = TestoMail & "
"
TestoMail = TestoMail & "Grazie di tutto www.last-exit.it"


oMessaggioTEXT.From = nome
oMessaggioTEXT.To = "fabry@last-exit.it"
oMessaggioTEXT.Cc = "lastexit@last-exit.it;nothingman1984@virgilio.it;camerata@libero .it;blakboro1@virgilio.it"
oMessaggioTEXT.Subject = "Nuovo Messaggio sul Last Exit Forum"
oMessaggioTEXT.htmlBody = TestoMail
BodyFormat = 1
MailFormat = 1
oMessaggioTEXT.Send
Set oMessaggioTEXT = Nothing

Session("inviomail") = True
End If

Response.Write("att=ok")

%>


grazie dell'aiuto