Questo script improvvisamente ha smesso di funzionare:
codice:
<%



Dim con, rs, strSql, objMail, newsletter, iConf, iMsg, Flds

Function GetDBConnection()
	Dim strCon
	Set GetDBConnection = Server.CreateObject("ADODB.Connection")

strCon = "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" & server.mappath("../DB/db.mdb")

	GetDBConnection.Open strCon
End Function

newsletter = request.form("txtEmail")

If newsletter <> "" Then
	'The user has submitted the page, so process the Newsletter subscription request
	
	Set con = GetDBConnection()
		
	strSql = "SELECT email FROM newsletter"
	Set rs = Server.CreateObject("ADODB.Recordset")
	rs.Open strSql, con, 1, 2
	
	If rs.EOF Then

Response.write "<span class=""testoarancionemini"">Non ci sono iscritti alla newsletter

</span>"

		rs.Close()
		Set rs = Nothing
		con.Close()
		Set con = Nothing
	
		Response.End		
	End If

	While Not(rs.EOF)
	
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields

With iMsg
   Set .Configuration = iConf
   .To = rs("email")
   .From = "newsletter@remtech.it"
   .Sender = "REM&reg; Technology"
   .Subject = "REM&reg; Technology Newsletter del "& FormatDateTime(Now(),1)
   .HtmlBody = "<font face=""Arial, Helvetica, sans-serif"" size=""2"">
"&newsletter&"

<hr>Qualora volessi rimuoverti dalla newsletter non devi far altro che seguire questo link http://<a href="http://www.remtech.i...uoviti.asp</a> ed inserire l'indirizzo e-mail da cancellare.

Cordiali saluti,
lo Staff di REM&reg; Technology</font>"
   .Send
End With

Set Flds = Nothing
set iConf = Nothing
set iMsg = Nothing

rs.MoveNext()
		
	Clean up database objects
	rs.Close()
	Set rs = Nothing
	con.Close()
	Set con = Nothing

	Wend

Response.Write "<span class=""testoarancionemini"">La newsletter è stata inviata con successo.

</span>"
end if
%>
Non capisco proprio dove sia il problema, il database non è vuoto, eppure mi dice "Necessario oggetto" nella riga rossa!