[QUOTE=antonia24;2206727] QUOTE]
hola mira este es el codigo que estoy haciendo para un inventario que de altas,bajas y modificaciones pero ya me hice bolas me podrias decir que ,me falta porque no me da altas ni nada gracias
<!--#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="752" 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 ***"
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="142"> <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 ***"
' 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="135" 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 ***"
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
%>
<select name="marca" id="select6">
<%
response.write "<option value=0 selected>***SELECCIONE UNA MARCA ***"
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></p>
<strong>
<label> </label>
</strong> </div>
<p align="center"><strong> </strong></p></td>
<td width="180" colspan="2"><div align="center"><strong> DESCRIPCION: </strong>
<p><strong>
<label>
<input name="descripcion" type="text" id="descripcion" size="30" maxlength="15">
</label>
</strong></p>
<p><strong>
<label></label>
</strong><strong>
<input type="button" name="Submit3" value="Agregar" onClick="vacio()">
</strong></p>
<p><strong>
<input type="submit" name="Submit22" value="Borrar">
<input type="submit" name="Submit5" value="Modificar">
</strong><strong>
<label> </label>
</strong></p>
<strong> </strong></div></td>
</tr>
<tr>
<td height="396" colspan="5" align="right"> <p align="left"><strong>
<label><font color="#0000FF"><u>DISPOSITIVOS</u></font></label>
</strong><u><strong>
<label></label>
</strong></u><strong>
<label></label>
</strong></p>
<p align="center"><strong>
<label>DISPOSITIVO </label>
<%
'conexion a la base de datos
sqltxt="select * FROM dispositivo order by modelo"
set rs=createobject("ADODB.Recordset")
rs.open sqltxt,Conn