Problema codice

[Gufino84]

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

[maximum]

Prova questo codice con le modifiche in grassetto:

<% 

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

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

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


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

Conn.Open StrConnessione 

Se la colonna "data" nel Db è un campo di tipo data, cambia la INSERT da:
SQL = "insert into tabmsg (nome,titolo,messaggio,Data,IDpadre)" 
SQL = SQL & " values ('" & nome & "','" & titolo & "','" & messaggio & "','" & data & "','" & ilpadre & "')" 

a:
SQL = "insert into tabmsg (nome,titolo,messaggio,Data,IDpadre)" 
SQL = SQL & " values ('" & nome & "','" & titolo & "','" & messaggio & "', #" & data & "# ,'" & ilpadre & "')"  

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") 

%>

P.S.:Tu, di preciso cos'hai modificato?

[Gufino84]

grazie tanto del tuo aiuto

[maximum]

Funziona?