Aloha India, leader in advanced Abacus and Mental Arithmetic programs

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% option explicit %> <% Response.Buffer = True %> Aloha India, leader in advanced Abacus and Mental Arithmetic programs

Home

<% 'Declaring Variables Dim smtpserver,youremail,yourpassword,ContactUs_Email,myemail,cap Dim ContactUs_Subject,ContactUs_Body,Action ' Edit these 3 values accordingly smtpserver = "mail.alohaindia.com" youremail = "itsupport@alohaindia.com" yourpassword = "Aloha@123" ' Grabbing variables from the form post myemail=Request("Toemail") ContactUs_Email = Request("Fromemail") ContactUs_Subject = Request("Subject") Action = Request("Action") If Action = "SendEmail" Then Dim strBody if Request("country")="India" then cap=Request("capital") else cap=Request("capital1") end if strBody = "

Aloha India - Online General Enquiry Form

" strBody=strBody&"" strBody=strBody&"

" strBody=strBody&"

First Name" strBody=strBody&"	" strBody=strBody&""&Request("fname")&"
" strBody=strBody&" Last Name	" strBody=strBody&" " strBody=strBody&""&Request("lname")&"" strBody=strBody&"
" strBody=strBody&"Address	" strBody=strBody&" " strBody=strBody&""&Request("address")&"" strBody=strBody&"
" strBody=strBody&"Phone	" strBody=strBody&" "&Request("phone")&"" strBody=strBody&"
" strBody=strBody&"Email	" strBody=strBody&" "&Request("email")&"" strBody=strBody&"
" strBody=strBody&"Comments	" strBody=strBody&" "&Request("comments")&"" strBody=strBody&"

" Dim ObjSendMail Set ObjSendMail = CreateObject("CDO.Message") ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtpserver ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = youremail ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = yourpassword ObjSendMail.Configuration.Fields.Update ObjSendMail.To = myemail ObjSendMail.Subject = ContactUs_Subject ObjSendMail.From = ContactUs_Email ObjSendMail.HTMLBody = strBody ObjSendMail.Send Set ObjSendMail = Nothing %> Your message has been sent. Thank You !!
for More Enquiry Click Here <% Else %>

General Enquiry
First Name *
Last Name
Address
Phone
E-mail *
Comments *

<% End If %>