Please Introduce yourself!

Thank you for taking the time to sign our guest book.  Whenever we change or add to our site, we would like to let our visitors know.  We will publish Dickie's Mystic Message weekly to allow us the opportunity to share articles, insights and psychic information which would be of interest to our clients and friends. 

If you would like for us to contact you in regards to scheduling a reading or receiving additional information, please indicate in the "comments" section below.

Please sign my guest book and Receive a "FREE MYSTIC MESSAGE".   Thank you!

First Name

Last Name

E-Mail Address (Required for Response)

Mailing Address (Optional)

City (Optional)

State or Province (Optional)

Country (Optional)

Postal Code (Optional)

Telephone (Optional):  A/C PHONE #

Web Site URL

Comments

Privacy Policy

Verification code <% 'Dimension variables Dim lngVisitorNumber 'Holds the visitor number Dim intWriteDigitLoopCount 'Loop counter to display the graphical hit count Dim intLowerBound ' Lower bound of the random number range Dim intUpperBound ' Upper bound of the random number range Dim intRangeSize ' Size of the range Dim sngRandomValue ' A random value from 0 to intRangeSize Dim intRandomInteger ' Our final result - random integer to return Randomize() ' Find range size intRangeSize = 5000 - 1000 + 1 ' Get a random number from 0 to the size of the range sngRandomValue = intRangeSize * Rnd() ' Center the range of possible random numbers over the desired result set sngRandomValue = sngRandomValue + intLowerBound ' Convert our value to an integer intRandomInteger = Int(sngRandomValue) For intWriteDigitLoopCount = 1 to Len(intRandomInteger) 'Display the graphical hit count Response.Write("") Next %>

Purchase an E-Mail question!

...and try my new game.