|
Team Sabotage
Adventures
Unlimited!
5 Minutes!
The
official club about nothin'
Still
Ad-Free! - Guido Sabio
|
|
Largest
Wisconsin-Based PWC Club!|
|
|
SABI
TIP!
|
<%
' Pick a tip between 1 and 10 to display in the page
Randomize
TipNumber = Int(Rnd*10)
' Open the file with the 10 tips in it
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
Set Instream = FileObject.OpenTextFile (Server.MapPath ("/teamlist") & "\tips.txt", 1, FALSE, FALSE)
' Skip the tips before the tip you want to display in the page
For i = 1 to TipNumber -1
InStream.SkipLine()
Next
' Assign the variable TipOfTheDay to the tip randomly selected above
TipOfTheDay = Instream.ReadLine
%>
<%= TipOfTheDay %>
|
 Sabonauts
have visited
Send mail to teamsabotage@hotmail.com
with questions or comments about this web site.
Last modified: April 10, 2009
|
Copyright 1994, 1995, 1996, 1997, 1998, 1999,
2000, 2001, 2002, 2003, 2004
TeamSabotage.com; Team-sabotage.com; "Team Sabotage";
"Sabi"; "Sabocazzi" and all associated logos are
copyrights of Teamsabotage.com and can not be reproduced in any way without
written permission from teamsabotage.com.
Hosted by BlastPlanet.com
