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