<% IF request("verificationCode") <> "" AND request("verificationCode") = session("verificationCode") THEN dim messagesent, uname, emailid, telephoneid, mobileid, addressid, countryid, subject, comments, HTML, MessageBody function fixQuotes(theString) fixQuotes = replace(Replace(theString,"'","’"),chr(34),"”") end function messagesent = false uname = fixQuotes(Trim(Request("FirstName"))) emailid = fixQuotes(Trim(Request("Email"))) telephoneid = fixQuotes(Trim(Request("telephone"))) mobileid = fixQuotes(Trim(Request("Phone"))) addressid = fixQuotes(Trim(Request("Address"))) countryid = fixQuotes(Trim(Request("country"))) subject = fixQuotes(Trim(Request("Subject"))) comments = fixQuotes(Trim(Request("comments"))) if subject = "" then subject= "< Comments from Kalari.in >" else subject= "< "&subject&" >" end if '*******Send e-mail to the new user**************** HTML = "www.kalari.in" HTML = HTML + " " HTML = HTML + " " HTML = HTML + "
" HTML = HTML + "  " HTML = HTML + " Kalari.in
" HTML = HTML + "
" HTML = HTML + "
The following enquiry has been submitted from the website
" HTML = HTML + " " HTML = HTML + " " HTML = HTML + " " HTML = HTML + " " HTML = HTML + " " HTML = HTML + " " HTML = HTML + " " HTML = HTML + " " HTML = HTML + " " HTML = HTML + "
Name"&uname&"
Email ID"&emailid&"
Telephone No"&telephoneid&"
Mobile/Fax"&mobileid&"
Address"&addressid&"
Country"&countryid&"
Subject"&subject&"
Comments"&comments&"
" HTML = HTML + "

 
" 'MessageBody = "Query from Kalari.in" & CHR(13)+CHR(10) 'MessageBody = MessageBody & "From : " & uname & CHR(13)+CHR(10) 'MessageBody = MessageBody & "Email : " & emailid & CHR(13)+CHR(10) 'MessageBody = MessageBody & "Comments : " & comments & CHR(13)+CHR(10) MessageBody = HTML ' change to address of your own SMTP server strHost = "mail.kalari.in" Set Mail = Server.CreateObject("Persits.MailSender") ' enter valid SMTP host Mail.Host = strHost Mail.From = "comments@kalari.in" ' From address Mail.FromName = uname ' optional Mail.AddAddress "legiesh@gmail.com" ' Mail.AddCC "girishkalariyil@yahoo.com" ' Mail.AddBcc "masterkalariyil@yahoo.co.in" Mail.Username = "comments@kalari.in" Mail.Password = "PASSWORD" Mail.IsHTML = True ' message subject Mail.Subject = subject ' message body Mail.Body = HTML strErr = "" bSuccess = False On Error Resume Next ' catch errors Mail.Send ' send message If Err <> 0 Then ' error occurred strErr = Err.Description Response.write strErr else bSuccess = True ' Response.write "Mail send" End If if objEMail.Send then Response.Write(HTML) Response.Write("
<< Back to site
") session("verificationCode") = "" else Response.Write "Mail send failure. Error was " & Mail.Response end if ELSE %>

Queries & Contact

Kalariyil Dharmikam Ashram

Kalariyil Dharmikam Ashram

Parusuvaikal, P.O Parassala,

Thiruvananthapuram- 695508

Kerala, SOUTH INDIA

Ph +914712232686/+919495038070

Email : masterkalariyil@yahoo.co.in

WEB - www.kalari.in

Location Map

<%IF request("verificationCode") <> session("verificationCode") THEN Response.Write("

Incorrect Verfication Code - Please enter the Verification Code correctly.
")%>

Please send us your comments and queries:

 

Name  
E mail
Telephone
Mobile/Fax
Address
Country
Subject  
Comments
Verify
Please enter the Verification Code correctly!
Verify Code
<%IF request("verificationCode") <> session("verificationCode") THEN Response.Write("Incorrect Verfication Code")%>
 

 

 

<% END IF %>