Pues no consigo que borre los registros... le he dado varias vueltas pero sin resultados, ¿me dais una ayudita con el formulario please?
Esto es parte de el... donde creo que está el problema
Código:
<%
Dim RS_buzos, SQL_buzos, socio
SQL_buzos=" SELECT TOP 12 buzos_incl.*, Socios.*"
SQL_buzos=SQL_buzos&" FROM buzos_incl INNER JOIN Socios"
SQL_buzos=SQL_buzos&" ON buzos_incl.Socio=Socios.socio "
SQL_buzos=SQL_buzos&" WHERE IdSalidas="&IdSalidas&""
SQL_buzos=SQL_buzos&" ORDER BY Id ASC"
set RS_buzos=createobject("ADODB.Recordset")
RS_buzos.open SQL_buzos,conn
do while not RS_buzos.eof
%>
<input TYPE="text" CLASS="fc_dateHover" VALUE="<%=RS_buzos("Socio")%>" SIZE="7" READONLY="true">
<input TYPE="text" CLASS="fc_dateHover2" VALUE="<%=RS_buzos("Nombre")%>" SIZE="53" READONLY="true">
<input NAME="Id" TYPE="hidden" VALUE="<%=RS_buzos("Id")%>" >
<%
Dim RS_del, SQL_del
SQL_del="DELETE FROM buzos_incl WHERE buzos_incl.Socio=Socios.socio AND IdSalidas="&IdSalidas&""
set RS_del=createobject("ADODB.Recordset")
RS_del.open SQL_del,conn
do while not RS_del.eof
%>
<input TYPE="submit" NAME="Submit" VALUE="Quitar buzo">
<input TYPE="hidden" NAME="MM_delete" VALUE="formulario">
<input TYPE="hidden" NAME="MM_recordId" VALUE=<%=RS_del("Id")%> >
<br />
<%
RS_buzos.movenext
loop
RS_buzos.close
set RS_buzos = nothing
RS_del.movenext
loop
RS_del.close
set RS_del = nothing
end if
Conn.close()
Set Conn = nothing
%>
SaLu2
