<%
If Len(Request.Form("email")) > 0 then
Dim objMail
Set objMail = Server.CreateObject("CDONTS.NewMail")
Dim fromTxt
fromTxt = ""
fromTxt = Request.Form("email") & "(" & Request.Form("name") & ")"
objMail.From = Request.Form("email")
objMail.Subject = Request.Form("subject")
objMail.To = "admin@bizintellia.net"
objMail.Body = Request.Form("message")
objMail.Send
'Response.write("Mail was Sent")
Response.Redirect("thank_you.htm")
'You should always do this with CDONTS.
set objMail = nothing
End If
%>
Send email
* Required fields.
