si ma l'email provengono da una checkbox multipla selezionabile da utente...
un'altra pagina collegata nel processo è la seguente : (se poi ti devo anche postare l'elenco dove è presente la lista checkbox... dimmitu)
spediscimail.asp
<%
Dim sTestoMail
Dim nMailID : nMailID = 0
Dim oCon
Dim oRS
Dim sIndirizzi : sIndirizzi = ""
Dim sRichiedenti : sRichiedenti = ""
Set oCon = Server.CreateObject("ADODB.Connection")
oCon.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("/public/databaseimm.mdb")
sTestoMail = request.Form("MAIL")
sSubjectMail = request.Form("SUBJECT")
For Each sCodiceRic In Request.Form("inviaMail")
if sIndirizzi<>"" Then sIndirizzi = sIndirizzi & "|"
sIndirizzi = sIndirizzi & Replace(Request.Form("MailAddress_" & sCodiceRic),"|","")
if sRichiedenti<>"" Then sRichiedenti = sRichiedenti & "|"
sRichiedenti = sRichiedenti & sCodiceRic
Next
'Salvataggio della mail nel database
If sRichiedenti<>"" Then
oCon.Execute("insert into Mails (Mail,Subject) values ('" & replace(sTestoMail,"'","''") & "','" & Replace(sSubjectMail,"'","''") & "')")
Set oRS = oCon.Execute("select Max(MailID) As LastMailID from Mails")
If Not oRS.Eof Then nMailID = oRS("LastMailID")
End If
%>
<html>
<head>
<title>xxxx IMMOBILIARE</title>
<style type="text/css">
A:visited {
COLOR: #FFFFFF; TEXT-DECORATION: underline
}
A:link {
COLOR: #FFFFFF; TEXT-DECORATION: underline
}
A:hover {
COLOR: #FFFFFF; TEXT-DECORATION: underline
}
</style>
<script>
var m_sIndirizzi = "<%=sIndirizzi%>";
var m_sRichiedenti = "<%=sRichiedenti%>";
var m_sImmobile = "<%=request.Form("cod")%>";
var m_nMailID = "<%=nMailID%>";
var m_nTotal = 0;
var m_nIndex = 0;
var m_nSent = 0;
var m_nError = 0;
var m_sRichiedentiKO = "";
function checkMailAddress(sMail)
{
sMail = sMail.replace(/ /g,"");
if (sMail=="")
return false;
if (sMail.indexOf("@")<1)
return false;
return true;
}
function startSendMail()
{
var sMsgError = "";
var oIndirizzi = m_sIndirizzi.split("|");
m_nTotal=oIndirizzi.length;
updateStatus();
if (m_nIndex<oIndirizzi.length) {
var sIndirizzo = oIndirizzi[m_nIndex];
var bgogo = true;
var oMail = document.getElementById("frm_mail").contentWindow;
//indirizzo
var oIndirizzo = oMail.document.all("MailAddress");
bgogo=(bgogo && oIndirizzo!=null);
if (bgogo) {
if (checkMailAddress(sIndirizzo)) {
oIndirizzo.value=sIndirizzo;
} else {
bgogo = false;
sMsgError="Indirizzo mail invalido";
}
} else {
if (sMsgError=="")
sMsgError="Errore nella gestione dell'oggetto della mail"
}
//Subject della mail
var oSubject1 = document.all("txtSubject");
var oSubject2 = oMail.document.all("MailSubject");
bgogo=(bgogo && oSubject1!=null && oSubject2!=null);
if (bgogo) {
oSubject2.value=oSubject1.value;
} else {
if (sMsgError=="")
sMsgError="Errore nella gestione dell'oggetto della mail"
}
//Testo della mail
var oMailText1 = document.all("txtMail");
var oMailText2 = oMail.document.all("MailText");
bgogo=(bgogo && oMailText1!=null && oMailText2!=null);
if (bgogo) {
oMailText2.value=oMailText1.value;
} else {
if (sMsgError=="")
sMsgError="Errore nella gestione del testo della mail"
}
var ofrmSendMail = oMail.document.all("frmSendMail");
if (bgogo && ofrmSendMail!=null) {
ofrmSendMail.submit();
} else {
setStatus("Errore",sMsgError);
}
} else {
updateFinalStatus();
}
}
function setStatus(sCodice,sMessaggio) {
m_nIndex++
var oRichiedenti = m_sRichiedenti.split("|");
var oIndirizzi = m_sIndirizzi.split("|");
var sUrl = "salvaMail.asp?xxxxUserName=<%=Request.querystring ("xxxxUserName")%>&xxxxUserName1=<%=Request.querys tring("xxxxUserName1")%>&Richiedente=" + oRichiedenti[m_nIndex-1];
sUrl = sUrl + "&Immobile=" + m_sImmobile;
sUrl = sUrl + "&MailID=" + m_nMailID;
sUrl = sUrl + "&Risultato=" + sMessaggio.replace("<br>","");
sUrl = sUrl + "&IndirizzoMail=" + oIndirizzi[m_nIndex-1];
if (sCodice=="InvioCorretto") {
m_nSent++;
} else {
m_nError++;
m_sRichiedentiKO += "|" + oRichiedenti[m_nIndex-1];
}
var oSave = document.getElementById("frm_save");
oSave.src=sUrl;
var oMail = document.getElementById("frm_mail")
oMail.src="inviamail.asp?xxxxUserName=<%=Request.q uerystring("xxxxUserName")%>&xxxxUserName1=<%=Requ est.querystring("xxxxUserName1")%>"
window.setTimeout(startSendMail,1000);
}
function updateStatus()
{
var oStatus = document.getElementById("fieldStato");
if (oStatus!=null)
oStatus.innerHTML = "INVIO MAIL IN CORSO<br><br>INVIATE: " + m_nSent + " SCARTATE: " + m_nError + " PROCESSATE: " + m_nIndex + "/" + m_nTotal;
}
function updateFinalStatus()
{
var oStatus = document.getElementById("fieldStato");
if (oStatus!=null)
oStatus.innerHTML = "INVIO MAIL TERMINATO<br><br>INVIATE: " + m_nSent + " SCARTATE: " + m_nError + " PROCESSATE: " + m_nTotal;
var oAvviso = document.getElementById("divAvviso");
oAvviso.style.display="none";
if (m_nError>0) {
document.getElementById("verificanonspediti").styl e.display="inline";
}
}
function verificaMail()
{
var oWin = window.opener;
oWin.verificaMail(m_sRichiedentiKO.substr(1,m_sRic hiedentiKO.length-1));
window.close();
}
</script>
</head>
<body bgcolor="#000080" onload="window.setTimeout(startSendMail,1000);">
<input type="hidden" name="txtSubject" value="<%=Request.Form("SUBJECT")%>">
<div style="display:none;"><textarea name="txtMail" id="txtMail"><%=Request.Form("MAIL")%></textarea></div>
<div align="center" id="divAvviso"><font face="Tahoma" color="#FFFFFF" size="2"><b>NON CHIUDERE LA FINESTRA<BR>ALTRIMENTI LA SPEDIZIONE SARA' TERMINATA</b></font></div>
<div id="divStato">
<table border="0" align="center" width="100%" height="10%">
<tr height="80%">
<td id="fieldStato" width="100%" align="center" valign="middle" style="color:#FFFFFF;font-family:Tahoma;font-size:12px;font-weight:bold">INVIO MAIL IN CORSO</td>
</tr>
<tr height="20%"><td> </td></tr>
</table>
</div>
<div align="center" id="verificanonspediti" style="display:none;cursor:hand;width:100%" onclick="verificaMail();"><font face="Tahoma" color="#FFFFFF" size="2"><b>PREMERE QUI PER VERIFICARE LE MAIL NON SPEDITE</b></font></div>
<div style="display:none;">
<iframe id="frm_mail" src="inviamail.asp?xxxxUserName=<%=Request.Queryst ring("xxxxUserName")%>&xxxxUserName1=<%=Request.qu erystring("xxxxUserName1")%>"></iframe>
</div>
<div style="display:none;">
<iframe id="frm_save" src="blank.htm"></iframe>
</div>
</body>
</html>
<%
Function PulisciNumero(ByVal sValue)
Dim nIndex
Dim sNumero
sNumero=""
For nIndex=1 to len(sValue)
if Asc(Mid(sValue,nIndex,1))>47 and Asc(Mid(sValue,nIndex,1))<58 Then sNumero = sNumero & Mid(sValue,nIndex,1)
Next
PulisciNumero=sNumero
End Function
%>
Rispondi quotando