Ver Mensaje Individual
  #1 (permalink)  
Antiguo 28/09/2007, 13:52
Avatar de Uefor
Uefor
 
Fecha de Ingreso: agosto-2006
Ubicación: Murcia
Mensajes: 136
Antigüedad: 18 años, 8 meses
Puntos: 0
Borrado de registros de un select dependiente

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>