<%
yourname=request.Form("yourname")
email=request.Form("email")
subject=request.Form("subject")
subjector=request.Form("subjector")
message=request.Form("message")
heardus=request.Form("heardus")
others=request.Form("others")
captchacode=request.Form("captchacode")
takenvalue=request.Form("takenvalue")
If takenvalue="1" then
If (yourname="" or email="" or message="" or captchacode="") Then
allflag=1
allmsg="Your name,Email address,Message and Verification code should not be empty!!"
Else
If IsNumeric(yourname)=true Then
yflag=1
ymsg="Yourname should not be numeric!!"
Else
yflag=0
End If
If IsValidEmail(email)=False Then
eflag=1
emsg="Invalid Email Address!!"
Else
eflag=0
End if
If subject="Others" And subjector="" Then
sflag=1
smsg="Subject shoud not be empty!!"
Else
sflag=0
End If
If heardus="Others" And others="" Then
hflag=1
hmsg="Found Us shoud not be empty!!"
Else
hflag=0
End If
If captchacode="" Then
ccflag=1
ccmsg="Verification code shoud not be empty!!"
Else
ccflag=0
End If
If captchacode<>"" Then
if TestCaptcha("ASPCAPTCHA", Request.Form("captchacode")) Then
cchflag=0
Else
cchflag=1
cchmsg="You have entered the wrong verification code!!"
End if
End If
End If
If allflag=1 Then
submitmsg=allmsg
else
If yflag=1 Then submitmsg=ymsg &" "
If eflag=1 Then submitmsg=submitmsg&emsg &" "
If sflag=1 Then submitmsg=submitmsg&smsg &" "
If hflag=1 Then submitmsg=submitmsg&hmsg &" "
If ccflag=1 Then submitmsg=submitmsg&ccmsg &" "
If cchflag=1 Then submitmsg=submitmsg&cchmsg &" "
If yflag=0 And eflag=0 And sflag=0 And hflag=0 And ccflag=0 And cchflag=0 Then
messagesent="Full name:"&yourname &" "
messagesent=messagesent&"Email Address:"&email &" "
If subject="Others" Then
submsg=subjector
Else
submsg=subject
End If
messagesent=messagesent&"Subject:"&submsg &" "
messagesent=messagesent&"Message"& message &" "
If heardus="Others" Then
submsg=others
Else
submsg=heardus
End If
messagesent=messagesent&"Found Us"& submsg &" "
sch = "http://schemas.microsoft.com/cdo/configuration/"
Set cdoConfig = CreateObject("CDO.Configuration")
With cdoConfig.Fields
.Item(sch & "sendusing") = 2
.Item(sch & "smtpserver") = "127.0.0.1"
.Item(sch & "smtpserverport") = "25"
.Update
End With
Set cdoMessage = CreateObject("CDO.Message")
With cdoMessage
Set .Configuration = cdoConfig
.From = email
.To = "amit@ecocarebags.com"
.Subject = "Contact Us Form"
.TextBody = messagesent
.Send
End With
Set cdoMessage = Nothing
Set cdoConfig = Nothing
submitmsg="Mail has been sent!!."
yourname=""
email=""
subject="General Enquiry"
subjector=""
message=""
heardus="(Unspecified)"
others=""
End If
End If
End If
%>
eCoCareBags - Contact Us