Ciao ragazzi,
ho fatto una piccola nwsletter per il mio sito, quindi c'è un form dove inserire le mail che vengono salvate in un DB e fino a qui tutto ok.
Poi uso il seguente codice per mandarle:
<%@ LANGUAGE="VBScript" %>
<%Option Explicit%>
<html>
<head>
</head>
<body>
<%
Dim Conn, rs, strSql, objMail
If Request.Form("cmdSubmit") <> "" Then
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Provider = "Microsoft.jet.OLEDB.4.0"
Conn.Open Server.MapPath("DB/newsletters.mdb")
'Get all email addresses in the database
strSql = "SELECT mail FROM mail"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open strSql, Conn, 1, 2
If rs.EOF Then
%>
Non ci sono iscritti alla newsletter.
<%
rs.Close()
Set rs = Nothing
Conn.Close()
Set Conn = Nothing
Response.End
End If
While Not(rs.EOF)
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.From = "miamail@libero.it"
objMail.To = rs("mail")
objMail.Body = Request.Form("txtEmail")
objMail.Send
rs.MoveNext()
Wend
%>
Mail inviate
<%
rs.Close()
Set rs = Nothing
Conn.Close()
Set Conn = Nothing
Else
%>
<form action="send.asp" method="post" id=form1 name=form1>
<div align="center">
Scrivi il messaggio da inserire nella NEWS:
<textarea name="txtEmail" cols="50" rows="30"></textarea>
<input type="submit" name="cmdSubmit" value="Submit">
</div>
</form>
<%
End If
%>
</body>
</html>
praticamente è una paigna che richiama se stessa.
il problema è che trova qualcuno sul DB mi da il seguente errore:
Oggetto Server, ASP 0177 (0x800401F3)
Stringa dell'interfaccia non valida.
/send.asp, line 40
Dove la linea 40 s'intende
Set objMail = Server.CreateObject("CDONTS.NewMail")
Sapete aiutarmi??
Grazie
spider81man
Rispondi quotando
