Mi ha appena chiamato il mio ISP informandomi che alcuni miei siti web sono stati attaccati da spammer... Questi maledetti usano le pagine di invio e-mail (uso CDONTS) per inoltrare spazzatura nella rete...

Mi è stato consigliato di controllare l'IP di invio impostando quello del server e di controllare il reference ma ho qualche dubbio sull'implementazione... Questa è la banale function che uso:

codice:
function inviaemail(da,a,titolo,messaggio,bodyformat,importance)
dim objMail
Set objMail = CreateObject("CDONTS.NewMail") 
objMail.From = trim(da)
objMail.To = trim(a)
objMail.Subject = titolo
objMail.BodyFormat = bodyformat
objMail.Importance = importance
objMail.MailFormat = 0
objMail.Body = messaggio
objMail.Send
Specificherei semplicemente un "if then" controllando l'IP ma mi hanno detto che è facilmente aggirabile... Voi che tecniche usate?