<% On Error Resume Next Set InStream = Server.CreateObject("MS.TextStream") Randomize TipNumber = Int(Rnd*10) Instream.OpenTextFile Server.MapPath ("/advworks") + "\tips.txt", 1, FALSE, FALSE, FALSE InStream.SkipLines(TipNumber) TipOfTheDay = Instream.ReadLine Instream.CloseTextFile %>
<%= TipOfTheDay %>