Ho un problema con objMail.To
Type_mismatch:_'To'

Mi aiuta qualcuno?
----------------------------------------------------

<html>
<head>

</head>
<body>

<%


If Request.Form("cmdSubmit") <> "" Then
'The user has submitted the page, so process the Newsletter subscription request

Set Conn= Server.CreateObject("Adodb.connection")
Conn.Open "provider=microsoft.jet.oledb.4.0; data source="& Server.MapPath("db/newsletter.mdb")
set rs = server.CreateObject("Adodb.recordset")
sql = "SELECT email FROM spedizione"
rs.open "spedizione", conn,1,2
rs("email") = email
If rs.EOF Then

'MODIFY the text below displays when no subscribers exist
%>
There are no subscribers to the newsletter.
<%
'Clean up database objects
rs.Close()
Set rs = Nothing
conn.Close()
Set conn = Nothing

Response.End
End If

While Not(rs.EOF)

Dim objMail
dim objconf
Set objMail = CreateObject("CDO.Message")
Set objconf = CreateObject("CDO.Configuration")
Const NAMESPACE = "http://schemas.microsoft.com/cdo/configuration/"
Const cdoSendUsingPort = 2
objconf.Fields(NAMESPACE & "sendusing") = cdoSendUsingPort
objconf.Fields(NAMESPACE & "smtpserver") = "mioserver"
objconf.Fields(NAMESPACE & "smtpserverport") = 25
objconf.Fields.Update
objMail.Configuration = objconf

objMail.TextBody = Request.Form("txtEmail")

'MODIFY the following email address will appear as the from address for the email.
objMail.From = "newsletter@miosito.it"
objMail.To = rs("email")

objMail.Subject = "Newsletter"

objMail.Send

rs.MoveNext()
Wend

'MODIFY the text below displays when all the emails have been sent
%>
The emails have been sent.
<%

'Clean up database objects
rs.Close()
Set rs = Nothing
conn.Close()
Set conn = Nothing

Else

'MODIFY the text below is displayed when the page is first loaded.
%>
<form action="send.asp" method="post" id=form1 name=form1>
<div align="center">
Enter the email message to send:

<textarea name="txtEmail" cols="50" rows="30"></textarea>

<input type="submit" name="cmdSubmit" value="Submit">
</div>
</form>
<%
End If
%>

</body>
</html>