<% today = date() dy = day(today) mnth = month(today) yr = year(today) mnt=array("","January","February","March","April","May","June","July","August","September","October","November","December") event_time=array("","06:00","06:15","06:30","06:45","07:00","07:15","07:30","07:45","08:00","08:15","08:30","08:45","09:00","09:15","09:30","09:45","10:00","10:15","10:30","10:45","11:00","11:15","11:30","11:45","12:00","12:15","12:30","12:45","13:00","13:15","13:30","13:45","14:00","14:15","14:30","14:45","15:00","15:15","15:30","15:45","16:00","16:15","16:30","16:45","17:00","17:15","17:30","17:45","18:00","18:15","18:30","18:45","19:00","19:15","19:30","19:45","20:00","20:15","20:30","20:45","21:00","21:15","21:30","21:45","22:00","22:15","22:30","22:45","23:00","23:15","23:30","23:45","24:00") day_th=array("","st","nd","rd","th","th","th","th","th","th","th","th","th","th","th","th","th","th","th","th","th","st","nd","rd","th","th","th","th","th","th","th", "st") dim sel(100) sub makemenu(pagename,w,h) response.write("" & vbCrLf) if thispage = pagename then response.write("
" & vbCrLf) else response.write("
" & vbCrLf) end if response.write("" & vbCrLf) end sub sub opendb(db,datapath) set datapath = server.createobject("adodb.connection") datapath.open db end sub sub opendb2(db2,datapath2) set datapath2 = server.createobject("adodb.connection") datapath2.open db2 end sub sub zel(yr,mnth,dy,d) d = dy m = mnth y = yr IF m <= 2 THEN m = m + 12 y = y - 1 end if N = d + 2 * m + INT(.6 * (m + 1)) + y + INT(y / 4) - INT(y / 100) + INT(y / 400) + 2 N = INT((N / 7 - INT(N / 7)) * 7 + .5) daze = array( "Saturday","Sunday","Monday","Tuesday","Wednesday","Thursday","Friday") d =daze(n) end sub sub send_email (strTo, strCC, strBCC,strFrom, strSubject, strBody, strAttach) strHTML = StrBody set iMsg = CreateObject("CDO.Message") set iConf = CreateObject("CDO.Configuration") Set Flds = iConf.Fields With Flds .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.dawnweb.co.uk" .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 2000 .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "cdosys@dawnweb.co.uk" .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "cdosys22" .Update End With With iMsg Set .Configuration = iConf If strCC <> "" Then .CC = strCC If strBCC <> "" Then .BCC = strBCC .To = strTo .From = strFrom .Subject = strSubject .TextBody = strBody .HTMLBody = strHTML if strAttach > "" then .AddAttachment Server.MapPath(strAttach) end if .Send End With Set iMsg =Nothing Set iConf = Nothing Set Flds = Nothing end sub sub check_data(item, desc,ecount) If IsEmpty(item) or (item="") then ecount = ecount + 1 if ecount = 1 then response.write("
Errors found as follows:
") response.write "

you must enter a value for " & desc & ".

" end if end sub sub check_data3(item,desc,ecount,flag_errors) If IsEmpty(item) or (item="") then ecount = ecount + 1 if ecount = 1 then flag_errors = "

Errors found as follows:
" flag_errors = flag_errors & "
you must enter a value for " & desc & "." end if end sub sub check_value(item,n,x,desc,ecount,flag_errors) If Isnumeric(item) then If n > "" then if (item+1-1) < (n+1-1) then ecount = ecount + 1 if ecount = 1 then flag_errors = "

Errors found as follows:
" flag_errors = flag_errors & "
" & desc & " must be larger then " & n & "." end if end if If x > "" then if (item+1-1) > (x+1-1) then ecount = ecount + 1 if ecount = 1 then flag_errors = "

Errors found as follows:
" flag_errors = flag_errors & "
" & desc & " must be less then " & x & "." end if end if else ecount = ecount + 1 flag_errors = flag_errors & "
you must only enter a number for " & desc & "." end if end sub sub check_email(email,ecount) If InStr(1, email, "@", 1) Then else ecount = ecount + 1 if ecount = 1 then response.write("
Errors found as follows:
") response.write "

*" & email & "* is an Invalid email address

" end if end sub sub check_numeric(item, desc,ecount) If Isnumeric(item) then else ecount = ecount + 1 if count = 1 then response.write("
Errors found as follows:
") response.write "

you must only enter a number for " & desc & ".

" end if end sub sub compare(email1, email2,ecount) If email1 = email2 then else ecount = ecount + 1 if count = 1 then response.write("
Errors found as follows:
") response.write "

your passwords do not match.

" end if end sub sub cleanup(mucky) mucky = Replace(mucky,"+"," ") mucky = Replace(mucky,"%0D%0A","
") mucky = Replace(mucky,"%20",chr(32)) mucky = Replace(mucky,"%21",chr(33)) mucky = Replace(mucky,"%22",chr(34)) mucky = Replace(mucky,"%23",chr(35)) mucky = Replace(mucky,"%24",chr(36)) mucky = Replace(mucky,"%25",chr(37)) mucky = Replace(mucky,"%26",chr(38)) mucky = Replace(mucky,"%27",chr(39)) mucky = Replace(mucky,"%28",chr(40)) mucky = Replace(mucky,"%29",chr(41)) mucky = Replace(mucky,"%2A",chr(42)) mucky = Replace(mucky,"%2B",chr(43)) mucky = Replace(mucky,"%2C",chr(44)) mucky = Replace(mucky,"%2D",chr(45)) mucky = Replace(mucky,"%2E",chr(46)) mucky = Replace(mucky,"%2F",chr(47)) mucky = Replace(mucky,"%3F","?") mucky = Replace(mucky,"%40","@") end sub sub encode(item) item = replace(item,"'","%27") item = replace(item,"""","%22") item = replace(item,""","%22") item = replace(item,"&","%26") item = replace(item,"+","%2B") item = replace(item,"/","%2F") item = replace(item,"
",vbcrlf) item = replace(item,"<","<") item = replace(item,">",">") end sub sub decode(item) if item > "" then item = replace(item,"%27","'") item = replace(item,"%22",chr(22)) item = replace(item,"%26","&") item = replace(item,"%2B","+") item = replace(item,"%2F","/") item = replace(item,"<","<") item = replace(item,">",">") item = replace(item,vbcrlf,"
") end if end sub sub decode2(item) if item > "" then item = replace(item,"%27","'") item = replace(item,"%22",chr(22)) item = replace(item,"%26","&") item = replace(item,"%2B","+") item = replace(item,"%2F","/") ' item = replace(item,vbcrlf,"
") end if end sub sub bad_data() response.write "

Invalid or Incomplete Data. Please try again.
" response.write("

Click here to try again


" & vbCrLf) response.end end sub sub bad_data2() response.write("

Click here to try again


" & vbCrLf) response.end end sub sub logoff() Response.Cookies("dw7070")("u") = "" Response.Cookies("dw7070")("p") = "" Response.Cookies("dw7070").Expires = Date -1 session("member") = False session("member_email") = "" end sub sub clearout() for i = 0 to 53 sel(i) = False next sel(54) = True end sub sub random_number(x) Randomize x = 54 do while sel(x) = True x=int(rnd(9)*53)+1 loop sel(x) = True end sub sub gen_password(password) valid_string = "abcdefghjkmnpqrstuvwxyzABCDEFGHJKMNPQRSTUVWXYZ23456789" call clearout() for i = 1 to 8 call random_number(x) password = password + mid(valid_string,x,1) next end sub sub checklogin() userid = Request.Cookies("dw7070")("u") password = Request.Cookies("dw7070")("p") if userid > "" and password > "" then call opendb(db,datapath) sql = "SELECT * from customers where email = '" & userid & "' and password = '" & password & "'" Set RS = datapath.execute(sql) if rs.bof and rs.eof then else Session("customer") = rs("id") Response.Cookies("dw7070")("u") = userid Response.Cookies("dw7070")("p") = password Response.Cookies("dw7070").Expires = Date+30 end if set rs = nothing set datapath = nothing end if end sub sub gv(wibble,wibble2) wibble2 = request.form(wibble) end sub sub clean(wubble) wubble = Replace(wubble, vbCrLf, ", ") wubble = Replace(wubble, ", ,", ",") wubble = Replace(wubble, "'", "''") wubble = Replace(wubble, Chr(34), "''") end sub sub gv(wibble,wibble2) wibble2 = request.form(wibble) end sub sub cv(wibble,wibble2,dat) wibble2 = dat("wibble") end sub %> <% db = "rp" db2 = "emailbase" systemName = Request.ServerVariables("SERVER_NAME") Path = Request.ServerVariables("APPL_PHYSICAL_PATH") loco = "real" dim coursecost(20), coursename(20) coursecost(1) = 120 : coursename(1) = "Reiki First Degree Course" coursecost(2) = 50 : coursename(2) = "Retake Reiki First Degree Course" coursecost(3) = 165 : coursename(3) = "Reiki Second Degree Course" coursecost(4) = 345 : coursename(4) = "Reiki Master Practitioner Course" coursecost(5) = 275 : coursename(5) = "Reiki Master Teacher Course" coursecost(6) = 335: coursename(6) = "Colour Therapy Course part 1" coursecost(7) = 395 : coursename(7) = "Colour Therapy Course part 2" coursecost(12) = 695 : coursename(12) = "Colour Therapy Course complete" coursecost(8) = 335 : coursename(8) = "Crystal Therapy Course part 1" coursecost(9) = 395 : coursename(9) = "Crystal Therapy Course part 2" coursecost(13) = 695 : coursename(13) = "Crystal Therapy Course complete" coursecost(10) = 245 : coursename(10) = "Anatomy & Physiology Home Study Course" coursecost(11) = 1.23 : coursename(11) = "test for PayPal" paypal= "reikiprogressive@aol.com" authToken = "NwI21u6reLlKo0yxB5OorYdoARumYszl9TE8XeIiuHSG6USY_39j8azZLzK" ' reikiprogressive@aol.com retadd = "http://www.reikiprogressive.com/accounts.asp" if loco = "local" then main_path = "\cms\data\prods\" upload_path = "\cms\data\pix\" attach_path = "\cms\data\email\" ' where to dump the attachment - local server attach_path2 = "data\email\" ' where to collect the attachment - local server mailserver = "mail.dawnweb.co.uk" emailsto = "design@dawnweaver.co.uk" strPathImg = "..\data\pix\" strPathImg2 = "\cms\data\pix\" strPathImg3 = "data\pix\" return_path = "admin.asp?pass=cms" end if if loco = "real" then main_path = "\wwwroot\data\prods\" upload_path = "\wwwroot\data\pix\" attach_path = "\wwwroot\data\email\" ' where to dump the attachment - local server attach_path2 = "data\email\" ' where to collect the attachment - local server mailserver = "mail.reikiprogressive.com" emailsto = "ReikiProgressive@aol.com" strPathImg = "..\data\pix\" strPathImg2 = "\wwwroot\data\pix\" strPathImg3 = "data\pix\" end if %> Crystal Healing Courses, Colour Therapy Courses, Reiki Training, Meditation….

Academy of Learning and
Professional Healing Courses


 
   

ReikiProgressive has a different approach; we are forward thinking and believe in healing the whole; the Mind, Body and Spirit.

Why Reiki ? Because we believe implicitly in the powerful system of Reiki Healing as well as other healing methods. Each Healing Method is taught as a complete system.

Why Progressive ? Life is a progression. We cannot stand still otherwise we stagnate. With a healthy and open approach there is always something new to learn or new facts to consider. Our knowledge and experience is ongoing, therefore we take a progressive approach to mind and body healing. We want to show you ways and give you choices of improving upon where you are now, if it is your wish.

ReikiProgressive is quite simply dedicated to offering you the highest standards of healing and/or teaching. Reiki is the Universal life force that flows through everything and is all around us, that heals, harmonizes and balances the body. Louise Hay are tried and tested programmes aimed at changing our negative thought patterns and our approach to life.

All of us at ReikiProgressive are dedicated and committed to offering only the highest standards of healing and teaching. We work together to heal the whole person; the mind, the body and the spirit. Harmony of mind, body and spirit is something most of us strive for. It can be achieved. We want to help you to embark upon a more contented, fulfilling life.

The Reiki energy is infinitely powerful and it is our respect for this energy that demands us all here at Reiki Progressive to strive and work to only the highest standards. Raising Awareness and raising Standards of Teaching and Healing can only be good for the world. We have fully qualified and insured Reiki Practitioners available for healing and teaching. Life is a progression, we never stop learning, nor should we. Join us in our journey to Raise Natural Awareness and Standards of Teaching and Healing and to promote harmony between Mind, Body and Spirit.

 
     
 
 
NEWS FLASH      HOME PAGE

HOME STUDY COURSES
Colour Therapy      Crystal Healing       Anatomy and Physiology

REIKI TRAINING COURSES
First Degree ( Shoden)      Second Degree ( Okuden)
Master Practitioner (Shinpiden)      Master Teacher (Shinpiden)

MAKING POSITIVE CHANGES®WORKSHOPS
MEDS Professional – Dealing with Stress at Director/Executive level
MEDS General - Generally Dealing with Stress
MEDS Celebrity - Celebrities wanting to deal with stress

INTERESTING PAGES

Meditation CDs      About Colour      About Crystals      About Meditation

Health Pages      Affirmations      Thought Patterns      Pages for Thought

About Reiki      About ReikiProgressive      Reiki Pages

Health Tips      About Energy      Links

ENQUIRIES      ABOUT ANN      ANN'S PAGES

AREA PAGES

East Devon (Ann)      Mid Devon (Sonya)      South Cheshire (Eric)

North Gloucestershire (Trudy)

Staffordshire      Worcestershire      East Sussex (Jeremy)

 


 
webmaster