14/04/2003, 07:22
|
| | | Fecha de Ingreso: enero-2002 Ubicación: La Rioja
Mensajes: 233
Antigüedad: 23 años, 3 meses Puntos: 0 | |
| Hola a Todos y gracias a todos por responder.
Aqui les paso el codigo:
<%@LANGUAGE="VBSCRIPT"%>
<html>
<head>
<title>Confirmación de Saludo</title>
</head>
<body bgcolor="#CFFEDD">
<%
DIM nropro, fecha, titulopro, sintesis, beneficios, apenom, direccion,
barrio, telefono, email
Dim Conexion, Tabla, Temp
Set Conexion = Server.CreateObject("ADODB.Connection")
Conexion.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\comprexweb\db\propuestaweb.mdb"))
Conexion.Open "propuestaweb"
Tabla.Open "propuesta",Conexion
Tabla.Close
Temp="Select * From propuesta order by nropro"
Tabla.Open Temp,Conexion,2,3,1
Tabla.movelast
numero=tabla("nropro")+1
Tabla.AddNew
tabla("nropro")=numero
Tabla("fecha")=date
Tabla("titulopro")=Request("titulo")
Tabla("sintesis")=Request("sintesis")
Tabla("beneficios")=Request("beneficios")
Tabla("apenom")=Request("apenom")
Tabla("direccion")=Request("direccion")
Tabla("barrio")=Request("barrio")
Tabla("telefono")=Request("telefono")
Tabla("email")=Request("email")
Tabla.Update
Tabla.Close
Conexion.Close
response.redirect("resultado.htm")
%>
</body>
</html>
SALUDOSSSSSSSS |