ASP Contact Box Code
Step 2 - Contact Form Processing

Here is the code you put into contact_p.asp, your processing page.

Email = Request("email")
Username = Request("username")
Topic = Request("topic")
Tip = Request("tip")
Tip = trim(Tip)

if len(Tip) = 0 then Response.Redirect("contact_thanks.asp")

if InStr(Tip, "<") > 0 then response.redirect("contacterror.asp")
if InStr(Tip, "[") > 0 then response.redirect("contacterror.asp")
if InStr(Tip, "Subject:") > 0 then response.redirect("contacterror.asp")
if InStr(Tip, "@aspisfun.com") > 0 then response.redirect("contacterror.asp")

Body = "Email: " & Email & vbCrLf
Body = Body & "TIP: " & vbCrLf & tip & vbrLf

Set objErrMail= Server.CreateObject("CDO.Message")
 With objErrMail
	  .From = "NOTE NOTE PUT YOUR EMAIL ADDRESS HERE"
	  .To =  "NOTE NOTE PUT YOUR EMAIL ADDRESS HERE"
	  .Subject = "ASPIsFun.com Query : " & Topic
	  .TextBody = Body
	  .Send
 End With
Set objErrMail = Nothing

Response.Redirect("contact_thanks.asp")

What I'm doing here is filtering out spam-bots that try to send you URLs or UBB code. I filter out spam-bots that try to "insert" an actual spammy email address, because usually they have the Subject: line in them. Also, anybody that tries to put MY email address (i.e. @aspisfun.com addresses) into the message is obviously a spammer. They're trying to fake a message going out from me.

Once this code is set in contact_p.asp, you only need two other pages created. One is contact_thanks.asp which is a simple HTML page that says "thank you for writing". That can be set up any way you wish. The other is contacterror.asp - and this just says "there was an error with your input". So neither of those pages require special code.

Enjoy!

ASP Free Sample Code Directory

ASP Main Page | ASP Ebooks | Free ASP Course | Contact Lisa
All content copyright © 2008 Minerva WebWorks LLC. All rights reserved.