File asp - aggiunto invio mail

[Gufino84]

ciao a tutti avrei bisogno di aiuto su questo file



<%

data = Now()
nome = Replace(request("nome"),"'", "''")
email = Replace(request("email"),"'", "''")
messaggio = Replace(request("msg"),"'", "''")
icona =Cint( request("icona"))
url = Replace(request("url"),"'", "''")

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


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

Conn.Open StrConnessione

SQL = "insert into tabmsg (nome,email,messaggio,Data,icona,url)"

SQL = SQL & " values ('" & nome & "','" & email & "','" & messaggio & "','" & data & "','" & icona & "','" & url & "')"

'response.write SQL

Conn.execute SQL

Conn.Close
set Conn=nothing

Response.Write("att=ok")

%>


questo codice asp prende da flash le variabili : nome , email , msg , url.

io vorrei aggiungere una parte in piu di codice sempre in questo file in modo tale che con le stesse variabili(e anche in piu nn sarebbe male la data di invio variabili)mi mandi una mail a me in modo da sapere se qualcuno ha scritto sul mio guestbook.

Grazie qualcuno si sa aiutare? ciao ciao

[lufo5]

http://freeasp.html.it/script/view_script.asp?id=281

[Gufino84]

umm non è che sono riuscito a capirlo troppo bene mi spiace.cmq ci proverò a ragionarci sopra!grazie lo stesso!

[jet]

If Not Session("inviomail") then

Set oMessaggioTEXT = CreateObject("CDO.Message")

'Composizione del Testo della Mail

      TestoMail = TestoMail & "Nome:"
      TestoMail = TestoMail & nome
      TestoMail = TestoMail & "E-mail:"
      TestoMail = TestoMail & email

oMessaggioTEXT.From = email
oMessaggioTEXT.To = "tuaemail@dominio.it"
oMessaggioTEXT.Subject = "visita pagina guestbook"
oMessaggioTEXT.htmlBody = TestoMail
BodyFormat = 1
MailFormat = 1
oMessaggioTEXT.Send
Set oMessaggioTEXT = Nothing

Session("inviomail") = True
End If

[maximum]

Ovviamente l'invio della mail è subordinato al tipo di server su cui ti appoggi.

Se Win2000 devi usare CDONTS; se Win2003 devi usare CDOSYS.

Per reperire informazioni su entrambi i compomenti, puoi fare una ricerca in questa sezione: se n'è parlato e se ne parla continuamente!

[Gufino84]

grazie jet ti ringrazio tanto per il codice e sembri funzionare ...dico sembri perchè mi manda un mail ogni tanto ovvero se due persone firmano il guest book con ppochi minuti di distanza,non mi arrivano le due email ma al massimo la prima.nn so da che dipende il codice l'ho usato cosi:

<%


'Variabili passate dal filmato Flash
'Utilizzando il Replace facciamo in modo di sostituire il singolo apice
'con il doppio apice per evitare che la stringa di inserimento dati_
'nel Data Base generi un'errore

data = Now()
nome = Replace(request("nome"),"'", "''")
email = Replace(request("email"),"'", "''")
messaggio = Replace(request("msg"),"'", "''")
icona =Cint( request("icona"))
url = Replace(request("url"),"'", "''")



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


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

Conn.Open StrConnessione


'Creo la stringa SQL per inserire i dati nella tabella


SQL = "insert into tabmsg (nome,email,messaggio,Data,icona,url)"

SQL = SQL & " values ('" & nome & "','" & email & "','" & messaggio & "','" & data & "','" & icona & "','" & url & "')"


'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 & "E-mail: "
TestoMail = TestoMail & email
TestoMail = TestoMail & "Url: "
TestoMail = TestoMail & url
TestoMail = TestoMail & "Messaggio: "
TestoMail = TestoMail & messaggio


oMessaggioTEXT.From = email
oMessaggioTEXT.To = "fabry@last-exit.it"
oMessaggioTEXT.Subject = "Hanno scritto sul guest book"
oMessaggioTEXT.htmlBody = TestoMail
BodyFormat = 1
MailFormat = 1
oMessaggioTEXT.Send
Set oMessaggioTEXT = Nothing

Session("inviomail") = True
End If

Response.Write("att=ok")

%>


ho sbagliato? spero di no


se volessi modificare il modo in cui mi arrivi l'e-mail tipo

nome = xxxxx
cognome = xxxxxxx
ecc

i siti sono del server di aruba ... cmq leggero riguardo quello che mi avete scritto

grazie ancora di tutto e scusate il disturbo

[Gufino84]

come devo scrivere in modo che l'e-mail venga mandata contemporaneamente a due persone?


oMessaggioTEXT.To = "fabry@last-exit.it"

[jet]

Se non sbaglio, così:

oMessaggioTEXT.Cc = "altraemail@dominio.it"

Per quanto riguarda il problema che ti arriva una sola mail quando entrano 2 utenti contemporaneamente nello stesso minuto, credo che dipenda dal tempo di risposta del server.

[jet]

se volessi modificare il modo in cui mi arrivi l'e-mail tipo 

nome = xxxxx 
cognome = xxxxxxx 
ecc

TestoMail = TestoMail & "Nome: "
TestoMail = TestoMail & nome
TestoMail = TestoMail & "
"
TestoMail = TestoMail & "E-mail: "
TestoMail = TestoMail & email
TestoMail = TestoMail & "
"
ecc

[Gufino84]

mi spiace disturbarti sempre e ti ringrazio per l'aiuto sei stato gentilissimo! ciao ciao