[QUOTE=este es el codigo de como lo estoy haciendo pero no me da de altas , ni bajas ni modificaciones me podrias decir que me falta.QUOTE]
<!--#include file="conepta1.asp"-->
<%
'declaracion de variables
dim pagina
dim marco
dim rs
dim tipomar
dim tipomod
dim tipodis
pagina="indexad.asp"
marco="_parent"
%>
<style type="text/css">
<!--
}
-->
</style>
<body bgcolor="#99CCFF">
<form name="forma" method="post" action="contraseña1.asp" enctype="multipart/form-data">
<p align="right"><strong><u>
<input type="button" value="Salir" name="B1" onClick="window.close()">
</u></strong></p>
<p align="center"><img src="images/menu11_b1.gif" width="62" height="21"><img src="images/menu11_b2.gif" width="62" height="21"><img src="images/menu13_b3.gif" width="62" height="21"><a href="menu.asp"><img src="images/menu12_b4.gif" width="62" height="21" border="0"></a></p>
<p align="center"><tt><strong><em><font color="#0000FF" size="+2" face="Arial, Helvetica, sans-serif">INVENTARIO
DE EQUIPO</font></em></strong></tt></p>
<table width="828" height="1027" border="1" align="center" cellpadding="15">
<!--DWLayoutTable-->
<tr>
<td height="170" colspan="2"> <div align="center">
<p align="left"><strong><font color="#0000FF"><u>MARCAS</u></font></strong></p>
<p><strong>ID_MARCA </strong>
<%
'conexion con la base de datos
sqltxt="select id_marca from marcas order by id_marca"
set rs=createobject("ADODB.Recordset")
rs.open sqltxt,Conn
%>
<select name="id_marca" id="select5">
<%
response.write "<option value=0 selected>***SELECCIONE LA CLAVE DE LA MARCA ***"
response.write "<option value=1 selected>1452"
response.write "<option value=2 selected>4875"
response.write "<option value=3 selected>1257"
Do while not rs.eof
completa=cstr(rs("id_marca"))
if len(completa)=1 then
completa="0"&completa
end if
Response.Write " <option value='" & completa & "' >" & rs("id_marca") &"</option>"
rs.movenext
completa=""
Loop
%>
</select>
<%
rs.close
set rs = nothing
%>
</p>
<p> </p>
<p> </p>
</div>
<td width="143"> <div align="center"><strong>MARCA
<%
'conexion con la base de datos
sqltxt="select marca from marcas"
set rs=createobject("ADODB.Recordset")
rs.open sqltxt,Conn
%>
<select name="marca" id="select6">
<%
response.write "<option value=0 selected>***SELECCIONE UNA MARCA ***"
response.write "<option value=1 selected>olivetti"
response.write "<option value=2 selected>LG"
' completar un campo
do while not rs.eof
completa=cstr(rs("marca"))
if len(completa)=1 then
completa="0"&completa
end if
Response.Write " <option value='" & completa & "' >" & rs("marca") &"</option>"
rs.movenext
completa=""
Loop
%>
</select>
<%
rs.close
set rs = nothing
%>
</strong></div></td>
<td colspan="2"><div align="center">
<p><strong>ACTIVO</strong>
<input type="checkbox" name="checkbox" value="checkbox">
</p>
<p>
<input type="submit" name="Submit" value="Agregar">
</p>
<p>
<input type="submit" name="Submit2" value="Borrar">
<input type="submit" name="Submit4" value="Modificar">
</p>
<p> </p>
<p> </p>
</div></td>
</tr>
<tr>
<td height="327" colspan="3">
<p align="left"><font color="#0000FF"><strong><u>MODELOS</u></strong></font></p>
<p align="center"><strong>MODELO:</strong>
<%
'conexion con la base de datos
sqltxt="select * FROM modelo order by modelo"
set rs=createobject("ADODB.Recordset")
'abrir la base de datos
rs.open sqltxt,Conn
%>
<select name="modelo" id="select7">
<%
response.write "<option value=0 selected>***SELECCIONE UN MODELO ***"
response.write "<option value=1 selected>2001"
response.write "<option value=2 selected>4120"
response.write "<option value=3 selected>7841"
do while not rs.eof
completa=cstr(rs("modelo"))
if len(completa)=1 then
completa="0"&completa
end if
Response.Write " <option value='" & completa & "' >" & rs("modelo") &"</option>"
rs.movenext
completa=""
Loop
%>
</select>
<%
rs.close
set rs = nothing
%>
</p>
<p></p>
<p> <strong>
<label></label>
</strong> </p>
<td width="154"><div align="center">
<p><strong>MARCA:
<%
'conexion con la base de datos
sqltxt="select marca from modelo order by modelo"
set rs=createobject("ADODB.Recordset")
rs.open sqltxt,Conn