23/11/2004, 10:10
|
| | | Fecha de Ingreso: noviembre-2004 Ubicación: trelew - chubut
Mensajes: 134
Antigüedad: 20 años, 5 meses Puntos: 0 | |
| proba a ver si te funciona
<%
Dim fso
Dim sRead1, i
Const ForReading = 1, ForWriting = 2, ForAppending = 8
set fso = server.CreateObject("Scripting.FileSystemObject")
set f = fso.GetFile("Server.MapPath & "/db/recetas.txt"")
set ts = f.OpenAsTextStream(ForReading, -2)
Do While not ts.AtEndOfStream
sRead1(i) = ts.Read(20) <-- aca le pones la cantidad de caracteres a leer
si no readline o read all
sread1=trim(sread1)
Response.Write(sread1)
Loop
ts.Close
%> |