<%
if not IsEmpty(Request.Form("Submit")) then
if TestCaptcha("ASPCAPTCHA", Request.Form("captchacode")) then
Dim strBody 'Holds the body of the e-mail
strBody = "
"
strBody = strBody & "
Name:
" & Request.Form("name") & "
"
strBody = strBody & "
Designation:
" & Request.Form("designation") & "
"
strBody = strBody & "
Company:
" & Request.Form("company") &"
"
strBody = strBody & "
Email ID:
" & Request.Form("email") & "
"
strBody = strBody & "
Phone Number:
" & Request.Form("phone") & "
"
strBody = strBody & "
Comment:
" & Request.Form("comment") & "
"
strBody = strBody & "
"
Dim myMail
Set myMail=CreateObject("CDO.Message") 'Create Mail Server Object
myMail.Subject="Send Enquiry" ' Mail Subject Line
myMail.From=Request.Form("email") ' From ID of Mail
myMail.To="info@briskon.com" ' To ID of Mail
myMail.htmlBody=strBody ' Type of Mail Body
' Mail Server Configuration. Most Important Part
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")=2 'Method of sending email
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="mail.briskon.com" 'Name or IP of remote SMTP server
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25 'Server Port
myMail.Configuration.Fields.Update ' Update all the confiuration to your Mail Object
myMail.Send ' Final step, send email !!!!!!!
set myMail=nothing ' Clear or dispose or delete Mail Object, Its necessary to avoid memory consumption and object conflictsflicts
response.redirect("thanks.html")
else
Response.Write("
