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%>

[Galx]

No te explicas mucho, asi que deduzco que quieres mostrar una frase aleatoria al cargar la página (por lo de tips.txt y randomize).

Prueba con este código:

<%
dim objarchivo
dim objcadena
set objarchivo = server.CreateObject("Scripting.FileSystemObject")
set objcadena = objarchivo.OpenTextFile(server.MapPath("tips.txt") )
'numero de lineas de tu texto
numero_lineas = 8
Randomize
tip = cint(numero_lineas * rnd)
FOR i=0 TO tip-1
objcadena.SkipLine
Next
strtext= objcadena.ReadLine
objcadena.close
set objcadena = nothing
set objarchivo = nothing
%>
<%= strtext%>