08/10/2003, 05:37
|
| | | Fecha de Ingreso: septiembre-2003 Ubicación: Nerja
Mensajes: 29
Antigüedad: 21 años, 7 meses Puntos: 0 | |
| 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%> |