Hola...
Tengo un código adaptado de select dependientes en los que el usuario selecciona un número en el select y aparecen los registros relacionados en campos de texto, necesito poder borrar uno de ellos respetando al resto obviamente.
He pensado incluir checkbox, pero no me termina de funcionar, ¿alguna idea?
El formulario que quiero usar es este:
Código:
<form name=formulario>
<select name=IdSalidas SIZE="1" CLASS="fc_dateHover" onChange="location.href('borrar.asp?IdSalidas='
+ formulario.IdSalidas.options[formulario.IdSalidas.selectedIndex].value)">
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open = MM_cnx_salidas_STRING
Dim RS_insc, SQL_insc, IdSalidas
SQL_insc="SELECT IdSalidas FROM salidas ORDER BY IdSalidas DESC"
IdSalidas = request.querystring("IdSalidas")
set RS_insc = createobject("ADODB.Recordset")
set RS_insc = Conn.execute(SQL_insc)
if isNumeric(IdSalidas) then
end if
if RS_insc.EOF then
response.write("<option value=="""">-- No hay datos --</option>")
else
do while not RS_insc.eof
response.write("<option value="""&RS_insc("IdSalidas")&"""")
if CLng(IdSalidas) = CLng(RS_insc("IdSalidas")) then
response.Write(" selected")
response.Write(">"&RS_insc("IdSalidas")&"</option>")
RS_insc.movenext
loop
end if
RS_insc.close
set RS_insc = nothing
%>
</select>
<%
if IdSalidas <> "" then %>
<%
Dim RS_buzos, SQL_buzos
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_dateHover" VALUE="<%=RS_buzos("Nombre")%>" SIZE="53" READONLY="true">
<input TYPE="text" CLASS="fc_dateHover" VALUE="<%=RS_buzos("DNI")%>" SIZE="12" READONLY="true">
<input TYPE="text" CLASS="fc_dateHover" VALUE="<%=RS_buzos("TIT")%>" SIZE="21" READONLY="true">
<%
RS_buzos.movenext
loop
RS_buzos.close
set RS_buzos = nothing
%>
</form>