aYuda con EsTe Codigo

[Loco del Pc]

Hola amigos del foro!

consegui este codigo de asp para imprimir en la pagina los mensajes que tengo en un archivo txt ( tips.txt lo coloque en el directorio wwwroot)
Lo saque de un libro.. pero no logro que me funcione..
si encuentran algun error.. o si saben como hacerlo de otra forma.. les agradeceria.. lo dijeran..

Doy algo novato en esto..

<%
dim objarchivo
dim objcadena
set objarchivo = server.CreateObject("Scripting.FileSystemObject")
set objcadena = objarchivo.OpenTextFile("tips.txt")
Randomize Timer
intLine = Int(Rnd * 19)
objcadena.skipline
next
strtext= objcadena.ReadLine
objcadena.close
set objcadena = nothing
set objarchivo = nothing
%>
<%= strtext%>