Bonjour,
J'ai un formulaire où une personne peut s'inscrire à un cours et choisir le modules auxquels il veut participer. Avec un post l'iscription ce fait dans une base de données sql. Mais pour ceci la valeur des modules est l'ID du module. Mon problème est que je voudrais également que la personne qui s'inscrit puisse recevoir une mail avec toutese les donées du formulaire y compris le titre des modules. Donc je dois les repêcher dans mon db sql e envoyer une mail avec aspemail. Mon problème est qu'avec un loop j'envoie autant de mail que de modules auxquels la personne s'est inscrite. Moi je voudrais une liste des modules sur la mail.
Voici ma page asp, en espérant que quelqu'un puisse me donner un coup de mai.
Merci,
Nicole
<%
Dim objConn, strConn, strSql, objRS, modulo, modulo2
modulo = request.form("A_MODULIIDa2")
modulo2 = request.form("A_MODULIIDa1")
Set objConn = Server.CreateObject("ADODB.Connection")
strConn = "PROVIDER=SQLOLEDB;DATA SOURCE=xxx.xxx.xx.xx;UID=xxx;PWD=xxx;DATABASE=xxx"
objConn.Open strConn
strSql = "SELECT * FROM A_MODULI WHERE (A_MODULI.A_MODULIID= '"& modulo &"' OR A_MODULI.A_MODULIID= '"& modulo2 &"')"
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.open strSql, objConn, 1, 3
%>
<%
Dim strTITOLO, bolFine, intNumera
bolFine = FALSE
intNumera = 0
Do While Not objRS.EOF
intNumera = intNumera + 1
strTitolo = objRS("TITOLO")
If strTITOLO = "" Then
strTitolo = " -"
End If
%>
<%
Set objMail = Server.CreateObject("Persits.MailSender")
objMail.AddAddress "" & Request.Form("EMAIL") & ""
objMail.AddCC "xxx"
objMail.Host = "192.168.0.4"
objMail.From ="xxx"
objMail.FromName = "Centro di Studi Bancari"
objMail.Subject = "" & Request.Form("Corso") & ""
'definisco il body
body= "<html><head> " &_
"</head><body bgcolor=F9F9F9>" &_
"<table width=600 align=center style=border-width: 1px 0px 1px 1px; border-style: solid; border-color: #DDDDDD #DDDDDD #DDDDDD #DDDDDD; ><tr><td>" &_
"<font face=verdana size=2 color=000066>" &_
"<hr><br>"&_
"<b>Iscrizione al corso: </b>" & Request.FORM("Corso") & " <br><br> "&_
"<hr><br>"&_
"<b>Cognome: </b>" & Request.Form("LASTNAME") & " <br> "&_
"<b>Nome: </b>" & Request.Form("FIRSTNAME") & " <br> "&_
"<b>Funzione: </b>" & Request.FORM("TITLE") & " <br> "&_
"<b>Formazione: </b>" & Request.FORM("FORMAZIONE") & " <br> "&_
"<b>e-mail: </b>" & Request.FORM("EMAIL") & " <br><br> "&_
"<b>Datore di lavoro</b>" & " <br> "&_
"<b>Istituto: </b>" & Request.FORM("ACCOUNT") & " <br> "&_
"<b>Via : </b>" & Request.FORM("ADDRESS1") & " <br> "&_
"<b>CAP: </b>" & Request.FORM("POSTALCODE") & " <br> "&_
"<b>Città: </b>" & Request.FORM("CITY") & " <br> "&_
"<b>No.Tel.: </b>" & Request.FORM("WORKPHONE") & " <br><br> "&_
"<b>Indirizzo privato</b>" & " <br> "&_
"<b>Via:</b>" & Request.FORM("ADRESSP") & " <br> "&_
"<b>CAP: </b>" & Request.FORM("POSTALCODEP") & " <br> "&_
"<b>Città: </b>" & Request.FORM("CITYP") & " <br> "&_
"<b>No.Tel.: </b>" & Request.FORM("HOMEPHONE") & " <br><br> "&_
"<b >Dati specifici del corso:</b>" & " <br> "&_
"" & strTITOLO & "<br><br><br> "&_
" <br><br><br></font><td></tr></table></body></html>"
objMail.Body = Body
objMail.IsHTML = True
'Inviamo la mail
objMail.Send
'puliamo la memoria allocata dall'oggetto
Set objMail = Nothing
%>
<%
If intNumera = 5 Then
bolFine = TRUE
exit do
Else
objRS.Movenext
End If
Loop
objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
%>
<%
ActDay = Request.Form("Giorno")
ActMonth = Request.Form("Mese")
ActYear = Request.Form("Anno")
ActDate = cDate(ActMonth& "/" & ActDay & "/" & ActYear)
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.open "PROVIDER=SQLOLEDB;DATA SOURCE=xxx.xxx.xx.xx;UID=xxx;PWD=xxx;DATABASE=xxx"
Set Rec=Server.createObject("ADODB.Recordset")
Rec.open "CONTACT_WEB",Conn,3,3
Rec.addnew
Rec("LASTNAME") = Request.form("LASTNAME")
Rec("FIRSTNAME") = Request.form("FIRSTNAME")
Rec("FORMAZIONE") = Request.form("FORMAZIONE")
Rec("HOMEPHONE") = Request.form("HOMEPHONE")
Rec("MOBILE") = Request.form("MOBILE")
Rec("WORKPHONE") = Request.form("WORKPHONE")
Rec("TITLE") = Request.form("TITLE")
Rec("EMAIL") = Request.form("EMAIL")
Rec("BIRTHDAY") = ActDate
Rec.Update
Rec.close
Set Rec=Server.createObject("ADODB.Recordset")
Rec.open "ACCOUNT_WEB",Conn,3,3
Rec.addnew
Rec("ACCOUNT") = Request.form("ACCOUNT")
Rec("INDUSTRY") = Request.form("INDUSTRY")
Rec("DIVISION") = Request.form("DIVISION")
Rec("LASTNAME") = Request.form("LASTNAME")
Rec("FIRSTNAME") = Request.form("FIRSTNAME")
Rec.Update
Rec.close
Set Rec=Server.createObject("ADODB.Recordset")
Rec.open "ADDRESS_WEB",Conn,3,3
Rec.addnew
Rec("SALUTATION") = Request.form("SALUTATION")
Rec("LASTNAME") = Request.form("LASTNAME")
Rec("FIRSTNAME") = Request.form("FIRSTNAME")
Rec("DESCRIPTION") = Request.form("DESCRIPTION1")
Rec("ADDRESS1") = Request.form("ADDRESS1")
Rec("POSTALCODE") = Request.form("POSTALCODE")
Rec("CITY") = Request.form("CITY")
Rec.Update
Rec.close
Set Rec=Server.createObject("ADODB.Recordset")
Rec.open "ADDRESS_WEB",Conn,3,3
Rec.addnew
Rec("SALUTATION") = Request.form("SALUTATION")
Rec("LASTNAME") = Request.form("LASTNAME")
Rec("FIRSTNAME") = Request.form("FIRSTNAME")
Rec("DESCRIPTION") = Request.form("DESCRIPTION3")
Rec("ADDRESS1") = Request.form("ADDRESS1")
Rec("POSTALCODE") = Request.form("POSTALCODE")
Rec("CITY") = Request.form("CITY")
Rec("FATTURAZIONE") = Request.form("FATTURAZIONE")
Rec.Update
Rec.close
Set Rec=Server.createObject("ADODB.Recordset")
Rec.open "ADDRESS_WEB",Conn,3,3
Rec.addnew
Rec("SALUTATION") = Request.form("SALUTATION")
Rec("LASTNAME") = Request.form("LASTNAME")
Rec("FIRSTNAME") = Request.form("FIRSTNAME")
Rec("DESCRIPTION") = Request.form("DESCRIPTION2")
Rec("ADDRESS1") = Request.form("ADDRESSP")
Rec("POSTALCODE") = Request.form("POSTALCODEP")
Rec("CITY") = Request.form("CITYP")
Rec("FATTURAZIONE") = Request.form("FATTURAZIONEP")
Rec.Update
Rec.close
Set Rec=Server.createObject("ADODB.Recordset")
Rec.open "ISCRIZIONI_WEB",Conn,3,3
Rec.addnew
Rec("LASTNAME") = Request.form("LASTNAME")
Rec("FIRSTNAME") = Request.form("FIRSTNAME")
Rec("A_MODULIID") = Request.form("A_MODULIIDa1")
Rec("A_CORSIID") = Request.form("A_CORSIIDa")
Rec("ISC_MOD") = Request.form("a1")
Rec("Note") = Request.form("Note")
Rec.Update
Rec.close
Conn.close
'Effettuaimo un controllo su eventuali errori
If Err.Number <> o Then
Response.Write "Si è verificato un errore: " & Err.ASPDescription
Else
Response.Redirect "grazien.asp"
%>