DOY PERMISO A TODOS LOS QUE HAN PARTICIPADO EN ESTE POST PARA QUE ME INSULTEN:
SE ME HABÍA OLVIDADO PONERLE method='post' A LA ETIQUETA DEL FORM
En fin...
Dejo los códigos por si alguien los necesita en el futuro...
Código:
Formulario para buscar el registro (se genera desde un asp, porque viene de usuario/clave, pero esa es otra guerra...)[resumido]
<HTML>
<HEAD>
</HEAD>
<BODY>
<FORM METHOD='POST' name='formu' ACTION='buscaborrar.asp'>
<b>Indique el CODIGO que desea localizar para borrar y pulse "Localizar"</b>
<b>CODIGO:</b>
<INPUT NAME='codigo' size='12' class='campo'>
<b>D.N.I.:</b>
<input type='text' name='dni1' size='9' class='campo'>
<input type='submit' value='Localizar' name='localizar'>
<input type='button' value='Salir' onclick='fuera()'>
</FORM>
</BODY>
Código:
Código del asp que busca el registro y "crea" el segundo formulario "oculto" [resumido]
<%
Dim Conex
Dim rs
Dim sSQL
Set Conex = Server.CreateObject("ADODB.Connection")
Conex.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../datos/mibase.mdb"))
codigo=Request.form("codigo")
sSQL = "SELECT * FROM registro WHERE ((registro.codigo)='"&codigo&"') ORDER BY codigo"
Set rs = Conex.Execute(sSQL)
%>
<%if rs.eof then%>
<p>No se ha encontrado ningún registro con el codigo facilitado</p>
<%else%>
<%do while not rs.eof%>
<form name='formborra' method='post' action='borrar.asp'>
<b>CODIGO:</b></font> <%=rs("codigo")%>
<DIV ID='paracodigo' style='position:absolute; left:-100px; top:-100px'>
<select name="codigo">
<option selected><%=rs("codigo")%></option>
</select>
</DIV>
<b>Nombre:</b></font> <%=rs("nombre")%>
<p><input type='submit' value='¡BORRAR!' name='borrar'></p>
</FORM>
Código:
<%
codigo = Request.form("codigo")
Set conexion=Server.CreateObject("adodb.connection")
conexion.Open"driver={Microsoft Access Driver (*.mdb)}; ; DBQ="+server.mappath ("../datos/mibase.mdb")
sSQL = "delete * from registro where codigo like '" & codigo & "';"
conexion.execute (sSQL)
response.write "Se ha borrado el registro"
conexion.close
%>
Muchas gracias por vuestra paciencia y aportaciones
