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

Text Box: Technology of Self-Realization©

Only peaceful individuals can make a peaceful world.

Create World Peace Through Technology of Realization Program

If You Believe that
War, Killing, Crime, Violence, Poverty and Sickness
is Wrong than We Invite You
to

for
the Sake of Your Family
Your Children, Yourself
Your Country and Your World

to
Implement

TECHNOLOGY OF REALIZATION

and

KUN - TOTAL KNOWLEDGE BASED

(The Origin of Natural Law of Unified Field in this Universe)

Permanent World Peace and Invincibility

Prevention of Crime and Violence

Pure Consciousness-Based Education
Elimination of Poverty and Illness

Construction of Peace Cities

Growth of Food

in
Our Society, City, Country and World.

After the implementation of the Technology of Realization within a few months, no one will remember the history of negativity and suffering.
Everyone in every nation will be blessed with positivity.
Everyone will live the truth that life is bliss.

PEACE IS A CHEAPER COMMODITY THAN WAR.



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