Ver Mensaje Individual
  #3 (permalink)  
Antiguo 23/01/2006, 12:13
Avatar de gorka_arai
gorka_arai
 
Fecha de Ingreso: octubre-2005
Mensajes: 281
Antigüedad: 19 años, 3 meses
Puntos: 1
Hola Mplus, gracias por responder. Te resumo un poquillo el código:

<%if Request.Form("button789").Item="Enviar" then
'1. Conexión con la BD
dim conex,reg
set conex=server.CreateObject("ADODB.Connection")
set reg=server.CreateObject("ADODB.Recordset")
conex.ConnectionString="provider=microsoft.jet.ole db.4.0; data source=" & server.MapPath("Db\mibase.mdb")
conex.Open
'2. Abro la tabla de "Productos" y valido si existe en ella el código de producto introducido
reg.Open "Productos",conex,3,2
reg.Filter="Nº='"&Request.Form("cod_prod").Item&"' "
if reg.RecordCount>0 then'Si el código de producto existe...
session("descrip")=reg.Fields("Descripción").Value
'Guardo los datos introducidos para mostrarlos y pedir confirmación
session("cod_prod")=Request.Form("cod_prod")
'session("canti")=Request.Form("cantidad")
session("dimensiones")=Request.Form("dimensiones")
'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''
session("observaciones")=Request.Form("txt_observa ciones")
Reg.close
Conex.close
set reg=nothing
Set conex=nothing
'Ir a página de confirmación mostrando todos los datos
Response.Redirect("Confirmar_circuitos.asp")
else'Si el cod de prod introducido no existe
%>
<script language="VBScript">
msgbox "EL CÓDIGO DE PRODUCTO INTRODUCIDO NO EXISTE",vbexclamation,"LAU S.A"
</script>
<%end if
else%>
<script language="VBScript">
msgbox "REPASE LOS DATOS INTRODUCIDOS, DEBE RELLENAR TODOS LOS CAMPOS OBLIGATORIOS",vbinformation,"LAU S.A"
</script>
<%end if

Última edición por gorka_arai; 24/01/2006 a las 06:24