:: Our Future World Corporation :: <---Heart, Mind, Brain, Life Enhancement Technologies--->

Text Box: Technology of Self-Realization©

Element of Earth

Master All the Six ELEMENTS of this Universe &

Go Beyond the Four Dimensional (3D Space & 1D Time) Realm.

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.

What if you were brighter than you think?

Experience the

BRAIN ACCELERATION BREAKTHROUGH

..... and do just about

EVERYTHING FASTER, EASIER, AND BETTER

than you do now!

Your brain is sending you secret, vitally important messages...

Will you......

A. Decode them for the key to super performance, higher IQ, and more?

---or---

B. Ignore them and just accept more of the same out of life?

__________________________________

Choose 'A' and learn the intriguing Technology of Super Learning

___________________________________________________________________

In Quantum (Visual, Auditory, Kinesthetic) Photo Memory, you'll learn:

· how your brain operates!

· to improve your decision making powers!

· the exciting world of mnemonic symbols!

· a powerful way to remember directions!

· to develop laser-sharp concentration!

· how to ace a tough job interview!

· developing a mental fact file!

· an increased sense of self-confidence!

Holographic & Ultra- Speed Reading Technologies, you'll improve :

· concentration and focus!

· peripheral vision!

· self-esteem and confidence!

· hand-eye coordination!

· eye-brain connection!

· family productivity (kids do homework faster and parents can spend more time with the family)!

Accelerated Learning & Super Intelligence Development Technologies were developed because we live in a world where the ability to absorb information rapidly and to think logically and creatively are the most important skills that you can possess.

Accelerated Learning & Super Intelligence Development Technologies are helping parents develop their pre-school children, students to get better results, and teachers and trainers to better motivate their learners using multiple intelligence techniques.

Accelerated Learning & SID methods are also making learning another language easier and quicker than ever before. And they are giving organizations the competitive advantage of a faster learning workforce.

“Once you have unleashed your memory power there will be no limits to the type or quantity of information you wish to store.”

This intensive workshop is only for those who are DETERMINED to Improve Their Quality of Life,

who want to BECOME an Instrument for the Betterment of Their Family, Workplace, Environment

and Country.



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