Buongiorno,
Vorrei inserire dei dati estratti da un database sql in una mail inviata con aspemail. Ma non so come fare per inserire x record senza inviare x mail con un loop.
I dati da elencare sono strTITOLO
Grazie a chi riesce ad aiutarmi,
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=sysdba;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 "nmartinez@csbancari.ch"
objMail.Host = "192.168.0.4"
objMail.From ="info@csbancari.ch"
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
%>
Vorrei inserire dei dati estratti da un database sql in una mail inviata con aspemail. Ma non so come fare per inserire x record senza inviare x mail con un loop.
I dati da elencare sono strTITOLO
Grazie a chi riesce ad aiutarmi,
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=sysdba;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 "nmartinez@csbancari.ch"
objMail.Host = "192.168.0.4"
objMail.From ="info@csbancari.ch"
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
%>