salve, ho questo codice


codice:
%>

<%
sql="select * from directory where email='" & user & "'"
	objrs.open sql, conn, 3, 3
	if objrs.eof then
		response.write "Your email is not into our database"
	else
		Dim miaMail
		Set miamail = Server.CreateObject("SMTPsvg.Mailer")
		miamail.RemoteHost = "mail2.fluidhosting.com" 
		miaMail.FromAddress = "email@email-email.com"
		miaMail.AddRecipient "io", "info@email.com"
		miaMail.ContentType = "text/html"
		miaMail.Subject = "Password Reminder"
		miaMail.BodyText = HTML & "To unsubscribe from this newsletter please click here</body></html>"
		miaMail.SendMail
		Response.write "Mail sent to (" & objrs("email") & ")"
		 if miaMail.SendMail then
        ' Message sent sucessfully
        response.write ("Your message was sent")      
    else
        ' Message send failure
        response.write ("Your message was not sent. ")
        response.write ("The error was: " & Mailer.Response)
    end if
il problema è che la email a info@email.com me la invia 2 volte, a distanza di pochi secondi (controllando fra le email ricevute) (ad esempio la prima alle 10:00:06, la seconda alle 10:06:08)

come mai ?