hola me podrias ayudar

[antonia24]

hola mi problema es que me encargaron crear una pagina en asp que de altas,bajas,modificaciones en marcas,modelos , dispositivos tengo que hacer las 3 tablas en sql (marcas,modelos,dispositivos) yo lo habia hecho por separado de cada una pero me dijeron que la quieren en una sola pagina la verdad no entiendo como hacerla soy nueva en esto me podrias ayudar mi duda es como voy aconeptarme con las bases de datos se deben incluir o no

[u_goldman]

Que quieren en una sola página que? podrías ser más explícita en términos de qué hiciste y que te pidieron?

Saludos

[JuanRAPerez]

pues
bienvenida

puedes empezar dando una leidita para saber que es ASP y esas cosas

http://www.desarrolloweb.com/asp/

luego teniendo un poco claro podriamos ir paso a paso viendo en que se te ayuda

suerte

[antonia24]

hola me pidieron que hiciera un inventario de equipo de computo donde se de , de altas, de bajas, y modificaciones tanto marcas, modelos, dispositivos yo los realice en una pagina cada uno separado por ejemplo altas de marcas en una baja de marcas en otra y modificacion de marcas en otra y asi sucesivamente con las otras , pero el lo que quiere es que en la misma pagina del inventario tenga los botones tantos de agregar , como de borrar y modificar osea que no tenga tantas paginas que en esa misma esten todas las altas, bajas,modificaciones todo esto con el fin de no tener tantas paginas y sea tedioso el me decia que tenia que hacer un combox mira para que me entiendas el me dio un codigo de una pagina que ya habia realizado tambien de un inventario para que me de una idea pero no entiendo mucho me podrias dar tu correo para mandarte lo que yo hice y lo que el me dio para que me entiendas mas. muchas gracias y saludos

[antonia24]

Iniciado por u_goldman

Que quieren en una sola página que? podrías ser más explícita en términos de qué hiciste y que te pidieron?

Saludos

hola me pidieron que hiciera un inventario de equipo de computo donde se de , de altas, de bajas, y modificaciones tanto marcas, modelos, dispositivos yo los realice en una pagina cada uno separado por ejemplo altas de marcas en una baja de marcas en otra y modificacion de marcas en otra y asi sucesivamente con las otras , pero el lo que quiere es que en la misma pagina del inventario tenga los botones tantos de agregar , como de borrar y modificar osea que no tenga tantas paginas que en esa misma esten todas las altas, bajas,modificaciones todo esto con el fin de no tener tantas paginas y sea tedioso el me decia que tenia que hacer un combox mira para que me entiendas el me dio un codigo de una pagina que ya habia realizado tambien de un inventario para que me de una idea pero no entiendo mucho me podrias dar tu correo para mandarte lo que yo hice y lo que el me dio para que me entiendas mas. muchas gracias y saludos

[JuanRAPerez]

publica el codigo en un server par que lo descargue la gente y te trate de ayudar.

o mas o menos indica que queres que el sistema haga

- que registre el usaurio
- que liste todos los activos o que lsite tal cosa
- que al seleccionar el activo permita dar de baja o modificar datos
- que haga tal cosa
- que haga tal cosa

y pues podriamos ayudarte

[Shiryu_Libra]

ademas de lo que ya se te menciono, si tienes algun codigo, y no sabes como mezclarlo, pegalo, utiliza las etiquetas , que te provee la pagina para crear una respuesta

[JuanRAPerez]

o una imagen de la que te pasaron, subela a algun lugar y luego la vemos para poder ver como estaba o como lo quieren

suerte

[u_goldman]

Iniciado por JuanRAPerez

o una imagen de la que te pasaron, subela a algun lugar y luego la vemos para poder ver como estaba o como lo quieren

suerte

Exactamente, tener una idea de la interfaz es lo más adecuado para este caso.

Saludos

[antonia24]

Iniciado por antonia24

hola mi problema es que me encargaron crear una pagina en asp que de altas,bajas,modificaciones en marcas,modelos , dispositivos tengo que hacer las 3 tablas en sql (marcas,modelos,dispositivos) yo lo habia hecho por separado de cada una pero me dijeron que la quieren en una sola pagina la verdad no entiendo como hacerla soy nueva en esto me podrias ayudar mi duda es como voy aconeptarme con las bases de datos se deben incluir o no

este es mi codigo para dar de altas
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>
<head>
<script>
function vacio(){
if(document.form1.id_marca.value==""){
alert("No has escrito un ID para marca");
document.form1.id_marca.focus();
}
if(document.form1.marca.value==""){
alert("No has escrito una marca")
document.form1.marca.focus();
return false;
}
document.form1.submit();
}
</script>
<%
id_marca=request.form("Id_Marca")
marca=request.form("Marca")

correcto=True
'Comprobamos que no hay campos vacíos
if Id_Marca="" then correcto=false end if
if Marca="" then correcto=False end if


if correcto=true then

set conn = server.CreateObject("ADODB.Connection")
conn.CommandTimeout=0
conn.ConnectionTimeout=300
conexion="Driver={SQL Server};Server=MAGICDP111;Database=inventario; Uid=sa;PWD=sa"
'conexion a la base de datos
conn.open conexion
isql="SELECT * FROM marcaS WHERE (Id_marca='"& Id_Marca &"') OR (Marca='"& Marca &"');"
'consulta de tablas
set rs=conn.Execute(isql)

if not rs.EOF then%>
<script>window.alert("La ID o Marca que esta intentando agregar ya existe, por favor verifique los datos")</script>
<%else
isql="Insert into marcas values ('" & Id_Marca & "','" & Marca & "')"
'Agregar campos a las tablas
conn.execute(isql)%>
<script>window.alert("Nuevo registro agregado")</script>
<%
Response.Write(" Ultima marca que se dio de alta: "& marca)
'muestra la ultima marca que se dio de alta
end if

rs.close
conn.close
set rs=nothing
set conn=nothing

else

response.Write("Datos no insertados")
end if
%>
</p>
<p align="center"><a href="pagina.asp" target="_self"><strong>Regresar </strong></a></p>
<hr align="center" size="5" id="r1">
<% set conn= server.CreateObject("ADODB.Connection")
conexion="Driver={SQL Server};Server=MAGICDP111;Database=inventario; Uid=sa;PWD=sa"
conn.open conexion
csql = "Select * from marcas order by MARCA"
'seleccionar la tabla de marcas y ordenarlas por clave de marca
set rs = conn.execute(csql)
%>
<form action="altamarca.asp" name="form2" id="form2">
<table width="296" height="85" border="1" align="center" bordercolor="#000000" bgcolor="#0099FF">
<tr bgcolor="#0000FF">
<th width="128" align="center"><font color="#333333"><em><strong>ID MARCA</strong></em></font></th>
<th width="152" align="center"><font color="#333333"><em><strong>MARCA</strong></em></font></th>
</tr>
<%Do while not rs.eof%>
<tr onMouseOver="this.bgColor='#0033FF'" onMouseOut="this.bgColor='#996666'">
<td><div align="center"><font color="#FFFFFF" size="2"><strong><em><%=rs("id_marca")%></em></strong></font></div></td>
<td><div align="center"><font color="#FFFFFF" size="2"><strong><em><%=rs("marca")%></em></strong></font></div></td>
</tr>
<%rs.movenext
loop
conn.close%>
</table>
</form></p>
<script>
function letras(){
CadenaValida = 'abcdefghijklmnñopqrstuvwxyz ';
var Caracter = String.fromCharCode(window.event.keyCode);
Caracter = Caracter.toLowerCase();
var a = CadenaValida.indexOf(Caracter);
if (a == -1) {
window.event.keyCode = 0;
}
}
</script>

<script>
function numeros(){
CadenaValida = '0123456789 ';
var Caracter = String.fromCharCode(window.event.keyCode);
Caracter = Caracter.toLowerCase();
var a = CadenaValida.indexOf(Caracter);
if (a == -1) {
window.event.keyCode = 0;
}
}
</script>
</body>
</html>

[antonia24]

[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>&nbsp;</p>
<p>&nbsp; </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>&nbsp; </p>
<p>&nbsp; </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

[antonia24]

[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>&nbsp;</p>
<p>&nbsp; </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>&nbsp; </p>
<p>&nbsp; </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