hola estoy haciendo un inventario de equipo de computo el cual me tiene que dar altas, bajas y modificaciones de marcas, de modelos y de dispositivos lo estoy haciendo con un combox que me jala los registros que tengo en mis tablas pero al momento de que ya selecciono el boton de agregar no me agrega nada aqui les mando mi codigo para ver si me `pueden echar una mano. porfavor otra pregunta puedo usar 2 formularios en una misma pagina es decir el uso del metodo post.<%@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>
<title>ALTA DE MARCAS</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#99CCFF">
<p align="left"><strong>La fecha actual es <%=date()%><br>
<%
Dim hora
'declaramos nuestra variable hora
hora = Hour(Time())
'Empezamos la comprobaciones de tiempo.
If hora > 6 and hora < 11 then
'si hora es mayor de 6 y hora es menor de once entonces
Response.Write ("</BR><center>Buenos Dias</B>, son las: " & Time())
'imprimimos buenos dias son las:
ElseIf hora > 12 and hora < 18 then
'si hora es mayor de 12 y hora es menor de diesiocho entonces
Response.Write ("</BR><center>Buenas Tardes</B>, son las: "& Time())
'imprimimos buenas tardes son las:
ElseIf hora > 19 and hora < 24 then
'sino si hora es mayor de 19 y menos de 24 entonces
Response.Write ("</BR><center>Buenas Noches</B>, son las: "& Time())
'imprimimos buenas noches son las:
ElseIf hora >= 0 and hora < 7 then
'sino si hora es menor o igual a cero y hora es mayor a 7 entonces
Response.Write ("</BR><center>Buenas Noches</B>, son las: "& Time())
'imprimimos buenas noches son las:
End If
'fin de la condicion
%>
<%
'detectar el idioma de nuestros usuarios
Dim pais, idioma
'declaramos nuestras variables
'Detectamos el pais del usuario
pais = Request.ServerVariables("HTTP_ACCEPT_LANGUAGE")
'A partir de los dos primeros caracteres detectamos el idioma
idioma = Left(pais, 2)
'inicio de la funcion case
select case idioma
case "es"
idioma = "</BR><center>En Español: Bienvenido a nuestra pagina web"
'si idioma es "es" imprimeme el mensaje de bienvenida en español
case "pt"
idioma = "</BR><center>En Portugués Bem-vindo a nostra pagina web"
'si el idioma es "pt" imprimeme el mensaje de bienvenida en portugues
case "en"
idioma = "</BR><center>En Inglés: Welcome to your pages web"
'si idioma es "en" imprimeme en mensaje de bievenida en ingles
end select
response.write idioma
'imprimeme en pantalla el idioma en que se recibira al usuario
%>
<%
'contador de visitas a la pagina
Application.Lock
Application("visitas") = Application("visitas")+1
Application.Unlock %>
<BR>
Eres el visitante numero </strong><%= Application("visitas") %>
</p>
<p align="center"><strong><u><font color="#0000FF" size="4"><a href="nueva.asp"><em><strong><font color="#0000FF" face="Arial, Helvetica, sans-serif">ALTA
DE MARCAS</font></strong></em><font color="#0000FF" face="Arial, Helvetica, sans-serif"><strong></strong></font></a></font></u></strong></p>
<p align="center">
<%
<!-- include file="nueva.asp" -->
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("El id_marca y la marca que esta intentando agregar ya existen, por favor verifique los datos")</script>
<%else
isql="Insert into marcas ( '"&id_marca&"' ,'"&marca&"') "
id_marca="60"
marca="compaq"
conn.execute(isql)%>
<script>window.alert("Nuevo registro agregado")</script>
<%
Response.Write(" Ultima marca que se dio de alta: "& marca)
end if
rs.close
conn.close
set rs=nothing
set conn=nothing
else
response.Write("Datos no insertados")
end if
%>
</p>
<p align="center"> </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"
set rs = conn.execute(csql)
%>
<form name="forma" method="post" action="nueva.asp" enctype="multipart/form-data">
<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>
<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>
</p>
<p align="center"><a href="nueva.asp" target="_self"><strong>Regresar </strong></a></p>
</body>
</html>
