<% alert("Murali") Dim varName, varInd, varEmail,varAddress, varTelephone, varCode, varSend, thisPage varName = Request.Form("Name") varAddress = Request.Form("Address") varCode = Request.Form("Code") varTelephone = Request.Form("Number") varEmail = Request.Form("Email") varSend = Request.Form("send") thisPage = Request.ServerVariables("SCRIPT_NAME") varInd = Request.Form("ind") If not varSend = 1 Then 'OUTPUT THE CONTACT FORM Else 'SEND MAIL Dim ObjMail Set ObjMail = Server.CreateObject("CDONTS.NewMail") objMail.From = varName & " <" & varEmail & ">" objMail.To = ind objMail.Subject = "Tattvaloka Subscription" objMail.Body = varName & ""_ & VBCrLf & varCompany & ""_ & VBCrLf & varTelephone & ""_ & VBCrLf & VBCrLf & varComments & VBCrLf objMail.Send Set objMail = Nothing msgbox("Murali") Response.Write "Hey "& varName & ",
"_ & VBCrLf & "Thanks for your feedback.
"_ & VBCrLf & "We’ll contact you as soon as possible!" End If %>

Subscribe Now

Select the Country

Subscription Type

One year 3Years

Life Time

Contact Information
Name
Address
Telephone
Country
E-mail