HomeHitech SpiritualityInner PeaceWorld PeaceSuper LearningInstructorTechnologiesElementsBenefitsMediaWorkshopsOur PartnersTSR SchoolsTSR ClinicsExpress CareContact Us

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 
Text Box: Technology of Self-Realization©
 

 

Our Partners

 

We are working toward the goal of

Creating and Attaining World Peace

through

Mind - Brain Coherence Technologies, Heart- Brain Coherence Technologies,

Understanding the Dynamics of Emotional Physiology (Heart-Based Feelings), 

Spirit-Soul-Heart-Mind-Brain-Body Interaction, and Enhancement Technologies.

 

OUR FUTURE WORLD FOUNDATION®, USA

OUR FUTURE WORLD FOUNDATION®, PAKISTAN

Activating the Seed of Our Potentials and Building High-Performance People

 Presents The

Technology of Realization©

The Science of Cosmic Consciousness, Enlightenment and Pure Intelligence.

An Integral Operating System For Humans. Meta-Physical Health Solutions.

Improved Academic Performance in Education with Greater Intellectual and Scientific Orientation.

Get Your Desires Fulfilled. Become a Spiritual Millionaire.

Synchronize with the Universal Holographic Quantum Energy Fields and Utilize 100 % of Your Brain Capability. (Instead of 5%~15%).

Master All the Six Elements of this Universe & Go Beyond the Four Dimensional

(3-D Space & 1-D Time) Realm.

In Collaboration with

OUR FUTURE WORLD CORPORATION®, U.S.A.

Research and Development of Heart-Based Feelings, Life, Mind and

Brain Enhancement Technologies.

EXPRESS CARE INCORPORATE®, U.S.A.

OUR FUTURE WORLD PRODUCTIONS®, U.S.A.

A Center of Creativity, Imagination and Performance

 

 

 

_____________________________________________________________________________________________________
 © 2008 Our Future World Foundation. All rights reserved.

  

 

 

 

 

 

            

                         

   <% ' 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 %>
 

Our Future World Corporation