IDEA
<%
Set fs = CreateObject("Scripting.FileSystemObject")
Set readfile=fs.OpenTextFile(filename,1,False)
reemplaza = 2
busquedauno = 9
busquedados = 15
i = 0
Do while not readfile.atendofstream
on error resume next
if err <> 0 then
Response.Write(err.description)
exit do
else
if i = reemplaza then
paso = readfile.readline
end if
if i = busquedauno then
reemplaza(paso)
end if
if i = busquedados then
modifica
end if
loop
readfile.close
set readfile=nothing
set fs=nothing
%>
El resto es tuyo
