Ver Mensaje Individual
  #10 (permalink)  
Antiguo 10/12/2007, 11:25
antonia24
 
Fecha de Ingreso: diciembre-2007
Mensajes: 12
Antigüedad: 17 años, 4 meses
Puntos: 0
Re: hola me podrias ayudar

Cita:
Iniciado por antonia24 Ver Mensaje
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>