spacer " TARGET="_top">Home
<%= SITE_DISPLAY_DATE %>
spacer
graphic
" Else Response.Write "" End If %>
<% If GUIDE_NAME = "Apply Now" Then Response.Write "<%= GUIDE_NAME %> - your Mining Co. Guide to:
<%= SITE_DISPLAY_NAME %>

[an error occurred while processing this directive]

How to Chat | F.A.Q. | User Agreement | Guidelines | Chat Support

<% Dim sJSKchatRoom, sJSKserverPort ' globals sJSKchatRoom = SITE_DIR_NAME sJSKchatRoom = Replace(sJSKchatRoom, "-", "") sJSKchatRoom = Replace(sJSKchatRoom, "_", "") ' simply list port nums in the array below sJSKserverPort = getPortNumRandomly( Array(8040, 8041, 8042, 8043, 8044, 8045, 8046, 8047, 8048, 8049) ) %>


If your Browser was Java enabled, you would now see the Chat Room.

<% Private Function getPortNumRandomly(ByRef portNumsArray) Dim lowerbound, upperbound, randIndex, portNum lowerbound = LBound(portNumsArray) upperbound = UBound(portNumsArray) Randomize randIndex = Int( (upperbound - lowerbound + 1) * Rnd + lowerbound ) 'formula to generate random ints in range lowerbound to upperbound portNum = portNumsArray(randIndex) getPortNumRandomly = portNum End Function %> Powered by ParaChat , 1996 Paralogic Corporation. All rights reserved.

How to Chat

ParaChat | How to Chat | F.A.Q. | User Agreement | Guidelines | Chat Support




© 2000 About.com, Inc. All rights reserved.
©   2000 About.com, Inc. "MiningCo.com" and "About.com" are trademarks of About.com, Inc.,
a publicly traded company listed on NASDAQ under the symbol "BOUT."
For more information on About.com, visit Our Story, Be a Guide, Be an Advertiser, or Investor Relations.
For rules of use, read our User Agreement; for privacy concerns, read our Privacy Policy.
Having a Problem? Report it here.