%@Language="VBSCRIPT"%>
<%
public function IIF(condition, value1, value2)
on error resume next
if condition then
iif = "" & value1 & ""
else
iif = "" & value1 & ""
end if
end function
public function sendmail(byval emailto, byval emailfrom, byval subject, byval matter)
'SENDING MAIL USING CDOSYS
'*****************************************************
'with configuration options:
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
' Const cdoBasic = 1 'Use basic (clear-text) authentication.
' Const cdoSendUsingPort = 2
' Dim iMsg
' Dim iConf
' Dim Flds
'
'
' 'Create message and configuration objects
' 'set iMsg = CreateObject("CDO.Message")
' set iConf = CreateObject("CDO.Configuration")
' Set Flds = iConf.Fields
'
' 'Appluy settings to the configuration object
' With Flds
' ' Specify the authentication mechanism to basic (clear-text) authentication.
' .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic
' ' The username for authenticating to an SMTP server
' .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "'support@cyberlinesolutions.com"
' ' The password used to authenticate to an SMTP server
' .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "blinker20"
'
' .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort
' 'Specify mail server
' .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "202.63.160.75"
' 'Specify the timeout in seconds
' .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
'
' ' The port on which the SMTP service specified by the smtpserver field is listening for connections (typically 25)
' '.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
' 'Use SSL for the connection (False or True)
' '.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False
'
' .Update
' End With
'
'
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
'
'
' Dim objCDO
' 'Create the mail object
' Set objCDO = Server.CreateObject("CDO.Message")
'
' set objCDO.Configuration = iConf
' '*****************************************************
'
'
' objCDO.To = emailto
' objCDO.From = emailfrom
' objCDO.Subject = subject
'
' 'When using CDOSYS...
' '------------------------
' objCDO.HTMLBody = matter
'
' 'When using CDONTS...
' '--------------------------
' 'objCDO.Importance = 2
' 'objCDO.BodyFormat = 0
' 'objCDO.MailFormat = 0
' '------------------------
'
'
' ''''''''''''''''''''''''''''''
'FOR CDOSYS
' '---------------------------
' objCDO.MimeFormatted = True
' '---------------------------
' Response.Write objCDO.To & "
" & objCDO.From & "
" & objCDO.Subject & "
" & objCDO.HTMLBody
'
' ' objCDO.Send
'
'set objcdo = nothing
'
'CODE FOR SENDING MAIL WITH ASPSMARTMAIL COMPONENT
'===========================================================
On error resume next
Dim mySmartMail
Set mySmartMail = Server.CreateObject("aspSmartMail.SmartMail")
mySmartMail.Server = "127.0.0.1"
' From
' ****
mySmartMail.SenderName = left(emailfrom,instr(1,emailfrom,"@")-1)
mySmartMail.SenderAddress = emailfrom
' To
' **
mySmartMail.Recipients.Add emailto,left(emailto,instr(1,emailto,"@")-1)
' Message
' *******
mySmartMail.Subject = subject
mySmartMail.ContentType = "text/html"
mySmartMail.Body = matter
' Send the message
' ****************
mySmartMail.SendMail
if Err.Number<>0 then
Response.write "Error: " & Err.description
Resposne.end
else
' Response.write "An e-mail has just been sent to " & mySmartMail.Recipients.Item(1).Name & "."
end if
'===========================================================
end function
if Request.QueryString("action") <> "" then
dim email_To,email_From, email_Subject, email_Body
email_To="kim@rumiyoga.com"
email_From=Request.Form("txtemail")
email_Subject = "Application for Teacher Training " & email_From
email_Body = "Please Find Enclosed the details filled in by " & Request.Form("txtfname") & " " & Request.Form("txtlname") & "
" & _
"
| First Name: | " & _ "" & iif(Request.Form("txtfname")<> "",Request.Form("txtfname"),"NA") & " | " & _ "
| Middle Name: | " & _ "" &iif(Request.Form("middle")<> "",Request.Form("middle"),"NA") & " | " & _ "
| Last Name: | " & _ "" & iif(Request.Form("txtlname")<> "",Request.Form("txtlname"),"NA") & " | " & _ "
| Address 1 | " & _ "" & iif(Request.Form("Address1")<> "",Request.Form("Address1"),"NA") & " | " & _ "
| Address 2 | " & _ "" & iif(Request.Form("Address2") = "",Request.Form("Address2"),"NA") & " | " & _ "
| City: | " & _ "" & iif(Request.Form("City")<> "",Request.Form("City"),"NA") & " | " & _ "
| State/Province: | " & _ "" & iif(Request.Form("State")<> "",Request.Form("State"),"NA") & " | " & _ "
| ZipCode: | " & _ "" & iif(Request.Form("txtzip")<> "",Request.Form("txtzip"),"NA") & " | " & _ "
| Country: | " & _ "" & iif(Request.Form("Country")<> "",Request.Form("Country"),"NA") & " | " & _ "
| Phone: | " & _ "" & iif(Request.Form("Phone")<> "",Request.Form("Phone"),"NA") & " | " & _ "
| Work Phone: | " & _ "" & iif(Request.Form("WorkPhone")<> "",Request.Form("WorkPhone"),"NA") & " | " & _ "
| Fax Phone: | " & _ "" & iif(Request.Form("FaxPhone")<> "",Request.Form("FaxPhone"),"NA") & " | " & _ "
| Occupation: | " & _ "" & iif(Request.Form("Occupation")<> "",Request.Form("Occupation"),"NA") & " | " & _ "
| Email: | " & _ "" & iif(Request.Form("txtemail")<> "",Request.Form("txtemail"),"NA") & " | " & _ "
| Date of Birth: | " & _ "" & iif(Request.Form("Dob")<> "",Request.Form("Dob"),"NA") & " | " & _ "
| Height (in ft & Inch): | " & _ "" & iif(Request.Form("HeightInches")<> "",Request.Form("HeightInches"),"NA") & " | " & _ "
| Height (in cms): | " & _ "" & iif(Request.Form("HeightCms")<> "",Request.Form("HeightCms"),"NA") & " | " & _ "
| Weight (pounds): | " & _ "" & iif(Request.Form("WeightPounds")<> "",Request.Form("WeightPounds"),"NA") & " | " & _ "
| Weight (Kilos): | " & _ "" & iif(Request.Form("WeightKilos")<> "",Request.Form("WeightKilos"),"NA") & " | " & _ "
| Gender: | " & _ "" & iif(Request.Form("Gender")<> "",Request.Form("Gender"),"NA") & " | " & _ "
| Eye Color: | " & _ "" & iif(Request.Form("EyeColor")<> "",Request.Form("EyeColor"),"NA") & " | " & _ "
| Emergency Contact Name: | " & _ "" & iif(Request.Form("ECN"),Request.Form("ECN"),"NA") & " | " & _ "
| Emergency Telephone No: | " & _ "" & iif(Request.Form("ECNo")<> "",Request.Form("ECNo"),"NA") & " | " & _ "
| Emergency Contact Relationship: | " & _ "" & iif(Request.Form("ECR")<> "",Request.Form("ECR"),"NA") & " | " & _ "
| How would you rate your general level of " & _ " fitness: | " & _ "" & iif(Request.Form("field25")<> "",Request.Form("field25"),"NA") & " | " & _ "
| How would you rate your overall health: | " & _ "" & iif(Request.Form("field26")<> "",Request.Form("field26"),"NA") & " | " & _ "
| How long have you practised Rumi Yoga: | " & _ "" & iif(Request.Form("field27")<> "",Request.Form("field27"),"NA") & " | " & _ "
| Which certified Rumi Yoga Academy schools/teachers have you studied under and how long for " & _ " each?: | " & _ "" & iif(Request.Form("field28")<> "",Request.Form("field28"),"NA") & " | " & _ "
| How long have you practiced Rumi Yoga?: | " & _ "" & iif(Request.Form("field29")<> "",Request.Form("field29"),"NA") & " | " & _ "
| How many times a week you practise Rumi " & _ " Yoga?: | " & _ "" & iif(Request.Form("field30")<> "",Request.Form("field30"),"NA") & " | " & _ "
| Have you ever practiced Rumi Yoga for 30 continuous days?: | " & _ "" & iif(Request.Form("field31")<> "",Request.Form("field31"),"NA") & " | " & _ "
| If Yes, how many times and where?: | " & _ "" & iif(Request.Form("field32")<> "",Request.Form("field32"),"NA") & " | " & _ "
| Have you ever practiced other methods of yoga, and if so which: | " & _ "" & iif(Request.Form("field33")<> "",Request.Form("field33"),"NA") & _ " |
| If yes, how long and which one?: | " & _ "" & iif(Request.Form("field34")<> "",Request.Form("field34"),"NA") & " | " & _ "
| Are you certified to teach other methods of yoga, and if so which?: | " & _ "" & iif(Request.Form("field35")<> "",Request.Form("field35"),"NA") & " | " & _ "
| What other exercise/sports do you practice and " & _ " how often?: | " & _ "" & iif(Request.Form("field36")<> "",Request.Form("field36"),"NA") & " | " & _ "
| Are you able to study and memorize written material?: | " & _ "" & iif(Request.Form("field37")<> "",Request.Form("field37"),"NA") & " | " & _ "
| Have you ever been convicted or placed on probation for any crime or offense, either felony or misdemeanor, by any federal or state jurisdiction?: | " & _ "" & iif(Request.Form("field38")<> "",Request.Form("field38"),"NA") & " | " & _ "
| If yes, list each separate offense by date of conviction, offense, court of jurisdiction, and disposition (amount fined, term of probation, jail or prison, date released): | " & _ "" & iif(Request.Form("field39")<> "",Request.Form("field39"),"NA") & " | " & _ "
| Do you currently use alcohol? If yes, how often: | " & _ "" & iif(Request.Form("field40")<> "",Request.Form("field40"),"NA") & " | " & _ "
| List any medical conditions you have and all " & _ " medications, prescription and non-prescription, that you " & _ " take: | " & _ "" & iif(Request.Form("field41")<> "",Request.Form("field41"),"NA") & " | " & _ "
| Why do you want to become a Rumi Yoga Certified " & _ " Teacher?: | " & _ "" & iif(Request.Form("field42")<> "",Request.Form("field42"),"NA") & " | " & _ "
|
A human being is a jungle. Be wary if you are from the Divine Breath. There are hundreds and thousands of wolves and wild hogs in there waiting. This forest is full of ghouls and fairies. - RUMI |
||||||||||||||||||||||
| Privacy Statement | Yoga should not be used as a substitute
for professional health care. Talk to your doctor before starting any new
exercise regime. Proud member of SearchinLA | All Rights Reserved 2004 - 2008 © Rumi Yoga |
Legal Note |