<% Function ValidateEmail(email) Dim regEx Set regEx = New RegExp regEx.IgnoreCase = False regEx.Pattern = "^[a-zA-Z][\w\.-]*[a-zA-Z0-9]@[a-zA-Z0-9][\w\.-]*[a-zA-Z0-9]\.[a-zA-Z][a-zA-Z\.]*[a-zA-Z]$" ValidateEmail = regEx.Test(email) End Function Function IsInternalField(value) IsInternalField = False Dim internalFieldsArray(3) Dim lvalue internalFieldsArray(0) = "submit" internalFieldsArray(1) = "reset" internalFieldsArray(2) = "send" lvalue = LCase(value) Response.Write lvalue For Each item In internalFieldsArray If item = lvalue Then IsInternalField = True End If Next End Function If Request.ServerVariables("REQUEST_METHOD") = "POST" Then On Error Resume Next Dim strMailTo Dim strMailFrom Dim strSubject Dim strBody Dim strSuccessUrl Dim strErrorUrl Dim strError Dim strLine strMailTo = "yourname@yourdomain.com" strMailFrom = Request.Form("email") If strMailFrom = "" Then strMailFrom = strMailTo End If strSubject = "Contact Information" strBody = "Values submitted from web site form:" strSuccessUrl = "success.html" strErrorUrl = "error.html" strError = "" If ValidateEmail(strMailFrom) <> True Then Response.Redirect strErrorUrl Response.End End If strBody = strBody & vbCrLF For each inputField in Request.Form If IsInternalField(inputField) <> True Then For each inputValue in Request.Form(inputField) strLine = inputField & " : " & inputValue & vbCrLF strBody = strBody & strLine Next End If Next Dim mailObject Set mailObject = CreateObject("CDO.Message") If err.number <> 0 Then Response.redirect error_url Response.End End If mailObject.To = strMailTo mailObject.From = strMailFrom mailObject.Subject = strSubject mailObject.TextBody = strBody ' dim mailConfig ' set mailConfig = CreateObject("CDO.Configuration") ' mailConfig.Fields(cdoSendUsingMethod) = cdoSendUsingPort ' mailConfig.Fields(cdoSMTPServer) = "smtp_server_name" ' mailConfig.Fields(cdoSMTPServerPort) = 25 ' mailConfig.Fields(cdoSMTPConnectionTimeout) = 10 ' mailConfig.Fields(cdoSMTPAuthenticate) = cdoBasic ' mailConfig.Fields(cdoSendUserName) = "username" ' mailConfig.Fields(cdoSendPassword) = "password" ' mailConfig.Fields.Update ' set mailObject.configuration = mailConfig mailObject.Send If err.number <> 0 Then Response.Redirect strErrorUrl else Response.Redirect strSuccessUrl end if Set mailObject = Nothing Response.End End If %> Contact Bliss Music
A
About the Shakti Sound Technology
Interview with Kip Mazuy
Bliss Music Home Page
Name:
Email:
Country:
Enter Your Message Here:
To make sure you're human:
Click for new image
Ocean Euphoric Meditation CD & Book
About The Shakti Sound Technology
Bliss Music Home Page
Infinite Sky Meditation Music
for Spiritual Awakening
Links
Pure Shakti
Deep Meditation Music
Contact Bliss Music
Interview with Kip Mazuy
Free Teachings on Meditation & Enlightenment