Problema urgente!!

[jose15001]

Poz ya está...el archivo eliminar.asp es algo tal que así

<%


xTotal=request.querystring("total") 'Número total de registros
xLinea=request.querystring("linea") 'Linea a eliminar


Dim objFSO
Dim NomFichero, NomFichero2, objTextStream

NomFichero1=Server.MapPath("usuarios.txt")
NomFichero2=Server.MapPath("temp.txt")

'Objeto FSO
Set objFSO=Server.CreateObject("Scripting.FileSystemOb ject")


'________________Leeo todo el archivo antes de borrarlo y lo guardo como medida de seguridad__________
'________________Leer
Set objTextStream=objFSO.OpenTextFile(NomFichero1,1)
seguridad=objTextStream.ReadAll
'Cierro e inicializo objetos
objTextStream.Close
Set objTextStream=nothing
'________________Guardar
Set objTextStream=objFSO.OpenTextFile(NomFichero2,2)
objTextStream.write seguridad
'Cierro e inicializo objetos
objTextStream.Close
Set objTextStream=nothing
'_________________________________________________ __________________________________________________ __

'_________________Guardo en una variable todos los registros excepto el que kiero borrar______________
Set objTextStream=objFSO.OpenTextFile(NomFichero1,1)

for i = 1 to xTotal ' Un bucle que recorre todos los registros del archivo
if i=int(xLinea) then 'Convierto xLinea a entero ya que como la he cogido como queystring, es una cadena y no podría igualarla a ningún número
objTextStream.SkipLine
else
l= l & objTextStream.ReadLine & vbcrlf
end if
next

'Cierro e inicializo objetos
objTextStream.Close
Set objTextStream=nothing
'_________________________________________________ __________________________________________________ __

'_____________________Reescribo el archivo con los nuevos datos_______________________________________
Set objTextStream=objFSO.OpenTextFile(NomFichero1,2)
objTextStream.write l
'Cierro e inicializo objetos
objTextStream.Close
Set objTextStream=nothing
Set objFSO=nothing
'_________________________________________________ __________________________________________________ __

response.redirect("leer.asp") 'Actualizo la página de registros

%>


De una página anterior cojo como datos el número total de registros y el que kiero eliminar. Guardo todos los datos por si las moscas...y leeo toto el archivo excepto la línea a borrar (utilizando un skipline)...la variable que me da como resultado la utilizo para reescribir el archivo con los datos y actualizo la página.

Por ahora funciona...gracias a todos.

Yo también sugerí lo de la base de datos, pero no está por la labor de gastarse los cuartos

Un Saludo y hasta la próxima....

Bueno, una cosa...¿en ASP se pueden hacen ventanas de alarma como en java??

José Manuel