MSGBOX
Publicado por Estibi Wonder (1 intervención) el 06/06/2003 23:30:13
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<%
Dim oConn, rs, SQL
codigo= request.form ("codigo")
articulo= request.form ("articulo")
set oConn = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.Recordset")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("base de datos\SICSIL.mdb")
SQL="SELECT * FROM Historia "
rs.Open SQL, oConn, 1, 2
rs.AddNew
if ((articulo="") and (codigo="") then
response.redirect ("Movimiento.asp")
else
rs("codigo_articulo")=codigo
rs("articulo")=articulo
rs.update
rs.close
response.redirect ("nuevo inventario.asp")
end if
rs.Close
%>
</body>
</html>
hola tengo un problema cuando a este codigo le agrego los msgbox para que me indique que se ha encontrado la BD para luego modificarlo gracias
aqui les mando este codigo para ver si me pueden ayudar..
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<%
Dim oConn, rs, SQL
codigo= request.form ("codigo")
articulo= request.form ("articulo")
set oConn = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.Recordset")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("base de datos\SICSIL.mdb")
SQL="SELECT * FROM Historia "
rs.Open SQL, oConn, 1, 2
rs.AddNew
if ((articulo="") and (codigo="") then
response.redirect ("Movimiento.asp")
else
rs("codigo_articulo")=codigo
rs("articulo")=articulo
rs.update
rs.close
response.redirect ("nuevo inventario.asp")
end if
rs.Close
%>
</body>
</html>
hola tengo un problema cuando a este codigo le agrego los msgbox para que me indique que se ha encontrado la BD para luego modificarlo gracias
aqui les mando este codigo para ver si me pueden ayudar..
Valora esta pregunta
0