Proteggere l'invio delle email dagli spammer

[dabbia]

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:

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?

[br1]

cerca "captcha"

ciao

[dwb]

Il captcha è la migliore, se non unica soluzione che ti garantisce del fatto che chi invia l'email sia un essere umano e non un bot.

[dabbia]

Grazie per l'aiuto...

Un'ultima domanda... Ci aggiungereste un controllo sulla provenienza della pagina? tipo:

if Request.ServerVariables("HTTP_REFERER")="pagina_co n_modulo.asp" then
...
visualizza pagina
...
else
blocca
end if