I forum Ricerca FAQ
Fai una domanda
Ultimo messaggio
idra82
idra82
il 9 luglio 2003 alle 12:22
11 messaggi dal 04 luglio 2003
Ciao a tutti, ho un grosso problema con l?invio di una mail ai membri di una mail list, i membri sono memorizzati in un database di access, il problema è davvero stranissimo è che se nel database c?è solo un iscritto non mi da nessun problema, se nel database ci sono 2 o più record il programma in asp per inviare le mail mi da l?errore(Tipo di errore: (0x80040108)
/inviomail.asp, line 32 ) e mi invia solo l?email del primo iscritto, ho provato tutte le prove possibili al programma vengono passati gli indirizzi mail giusti vi posto i codici spero riusciate a trovare l?errore perché per me è proprio un mistero (ho segnato la linea dell'errore) :

questo è il programmino che invia le email:

inclusioni.inc:
<%@ Language=VBScript%>
<!-- #include file="config.inc" -->

config.inc:
<!-- #include file="adovbs.inc" -->
<%
'>>>>> OLEDB Connection
DBrelpath = "/mailing/db/maillist.mdb"
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DBrelpath) & ";"
%>

<!-- #include file="inclusioni.inc" -->
<HTML>
<BODY>

<%
Set db = Server.CreateObject("ADODB.Connection")
db.open strConn
sql = "SELECT * FROM clienti"
set rs = db.execute(sql)

subject = Request.Form("subject")
messaggio = Request.Form("messaggio")
rim = "Per non ricevere più e-mail clicca su questo link:"


Set objMail = server.CreateObject("CDONTS.Newmail")


flag = 0
While not rs.EOF
flag = 1
ID = rs("ID")
ID2 = rs("idutente")
body = "nome: " & rs("nome") & Chr(13)
body = body & "cognome: " & rs("cognome") & Chr(13)
body = body & "Email: " & rs("email") & Chr(13) & Chr(13)
body = body & messaggio & Chr(13) & Chr(13)
body = body & rim & Chr(13)
body = body & "http://localhost/rimuovi.asp?ID="&ID&"&ID2="&ID2&""

mail = rs("email")
objMail.To = mail
objMail.Subject = subject
objMail.From = "prova@prova.it"
objMail.BodyFormat=0
objMail.Body = body
linea32-->>> objMail.Send

rs.MoveNext
Wend

if flag = 0 Then
Response.Write("Nessun iscritto alla mail list!!!!")
Else
Response.Write("Messaggio inviato correttamente a tutti gli iscritti!!!!")
End if

Set objMail = Nothing
db.close
Set db = Nothing
Set rs = Nothing
Set sql = Nothing
%>
</BODY>
</HTML>

e questo è il form per scrivere l?email:

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Messaggi Mail list</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<form name="form1" method="post" action="inviomail.asp">
<strong>Soggetto</strong><br>
<input name="subject" type="text" id="subject" size="35">
<strong><br>
<br>
Messaggio </strong><br>
<textarea name="messaggio" cols="80" rows="12" wrap="PHYSICAL" id="messaggio"></textarea>
<input type="submit" name="Submit" value="Invia Iscritti ">
</form>
</body>
</html>

Vi ringrazio!!!!!!!!!! Tanti saluti a tutti!!!!!!!!!!!!!
RispondiQuoting

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.