<% 'Option Explicit 'on error resume next Dim ID Dim lsBody ' body text to be sent in email Dim mailMessage ID = replace(request.querystring,"%20"," ") ' build the body lsBody = "Another spammer caught " & ID ' Create a new mail object Set mailMessage = server.CreateObject("CDONTS.NewMail") mailMessage.To = "YOUR EMAIL ADDRESS HERE" mailMessage.From = "spam trap" mailMessage.Subject = ID & " Spammer Caught" mailMessage.Body = lsBody mailMessage.Send set mailMessage = nothing lsBody = "I hate spam, you getting trapped by my page is only a minor inconvenience, but I hope it annoyed you even more than spam annoys me. Your email address has also been submitted to every spam collector I know so you can enjoy the 'benefits' of email advertising." 'if the querystring is an email address then send an email to the spammer. I suppose I should do a validation before it is sent as it send an email address whenever the ID > "" 'Create a new mail object Set mailMessage = server.CreateObject("CDONTS.NewMail") mailMessage.To = ID mailMessage.From = "Spam_hater" mailMessage.Subject = " Have an infinite click kind of day" mailMessage.Body = lsBody mailMessage.Send set mailMessage = nothing ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' If you are reading this then you are clever enough to get around the Javascipt (it doesn't take much) ' this is a fun script - not my idea - and bloody simple, but getting more complex with some ASP code you can't see. ' If I have an email address and put it in the URL it will send them an email thanking them for visiting :o) ' The little trap to display the second error isn't working, but I am not at all worried. ' I get a little bit of sadistic pleasure every time I get an email saying "spammer caught" ' and spammers are easier to catch than I expected, I am just glad I don't have to clean them. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' %> Spammer trap!!!!
Search engine users note: This page will trap you forcing you to shut down your browser.
<% if ID = "dumb" then %> You were warned before you clicked, now you are stuck.

<% end if %> Sucked In <% if ID <> "" then response.write ID & " " %> Spammer

Now you know the feeling of being inconvenienced by a complete stranger.

I have been sent an email telling me another spammer got caught.
I know it is petty, it makes me feel a bit better.

Somethimes these arseholes use a real email address that is not theirs.
If you have been caught unintentionally, I apologise.
However, you may feel better in the knowledge that this this traps heaps of people, most of whom deserve it I suspect.