:: Our Future World Foundation :: <---High-Tech Spirituality - Heart-Based Feelings, Mind, Brain and Life Enhancement Technologies--->

Elements^®

	Love and Gratitude: Heart-Brain, Emotion-Feeling Management using the EFT (Emotional Freedom Technique), LIGMO (Let It Go & Move On), Be-Niyazi of Sufism Techniques and Total Mind-Body Synchronicity Technologies (Level 1, 2, 3).
	Space: Metaphysical & Consciousness for Life Sciences (Level1, 2, 3). Learn Technology of Self-Realization, DNA Theta Mind-Spirit Healing Methods, Reiki Energy Healing and more… (We are Certified directly from the Honorable Master Teacher Hyakuten Inamoto, (4^th in the Lineage of Dr. Mikao Usui), Japan.
	Air: Learn the Ancient Art of Himalayan & Tibetan Monks and Levitate using Ultra-Meditation Methods of TSR and work from the Deepest level of your Mind (Level -1, 2, 3). After the Research of 15 years, NOW we are able to use verses from Holy Qur’an to activate Our Cosmic Consciousness, and Pure Intelligence.
	Earth: Use your Immense Brain Power. Master the Mind & Brain Enhancement Technologies (Level 1, 2, 3). Learn Quantum (Visual, Auditory, Kinesthetic) Photo Memory, Holographic & Ultra- Speed Reading Technologies, Accelerated Learning & Super Intelligence Development Technologies. We are Certified and Expert of the above Mentioned Technologies from Japan, U.S.A.
	Fire: Unleash the Power Within - Learn to Transform Limitation into Power. Walk on Fire and Broken Glasses (You don’t have to, but you’ll want to!) (Level-1, 2, 3). We are Certified from Firewalking Institute of Research and Education, U.S.A.
	Water: Learn HADO (Level-1, 2, 3). A groundbreaking research and discovery that water is deeply connected to our individual and collective consciousness. The Hado phenomenon proves that thoughts and feelings affect PHYSICAL reality. Learn about the Power of Words and the Power of Prayers. We are Certified directly from World Renowned Dr. Masaru Emoto, Author of Message from Water, Japan, U.S.A.



	<% ' Declare our vaiables Dim objFSO, objCountFile ' object vars for FSO and File Dim strCountFileName ' filename of count text file Dim iCount ' count variable Dim bUseImages ' boolean whether or not to use images Dim I ' standard looping var ' Determine whether we use images or plain text ' You could just set this to True or False instead bUseImages = CBool(Request.QueryString("images")) ' Compute our count file's filename ' This is based on the file from which you call count.asp ' It basically takes that name and appends a .cnt so I don't ' accidently overwrite any files. If for some reason you have ' a file named script_name.asp.cnt then change this or watch out! strCountFileName = Server.MapPath(Request.ServerVariables("SCRIPT_NAME") & ".cnt") ' Create FileSystemObject to deal with file access Set objFSO = Server.CreateObject("Scripting.FileSystemObject") ' Open the file as a text stream (1 = ForReading, True = Create) Set objCountFile = objFSO.OpenTextFile(strCountFileName, 1, True) ' Read the current count from the file If Not objCountFile.AtEndOfStream Then ' Set value to contents of the file iCount = CLng(objCountFile.ReadAll) Else ' If no file exists or it's empty start at 0 iCount = 30000 End If ' Close the file and destroy the object objCountFile.Close Set objCountFile = Nothing ' Increment the count iCount = iCount + 1 ' Overwrite existing file and get a text stream to new one Set objCountFile = objFSO.CreateTextFile(strCountFileName, True) ' Write updated count objCountFile.Write iCount ' Close the file and destroy the object objCountFile.Close Set objCountFile = Nothing ' Destroy the FSO object Set objFSO = Nothing ' We're all done with the hard part ' All that's left is to display the results If bUseImages Then ' Loop through the count integer showing each digit ' You can grab the images one at a time or get the zip ' http://www.asp101.com/samples/download/counter_imgs.zip For I = 1 to Len(iCount) ' Output the IMG tag using the right digit Response.Write "" Next 'I Else ' No image wanted just show the variable Response.Write iCount End If %>