20/11/2003, 11:32
|
 | | | Fecha de Ingreso: octubre-2001
Mensajes: 1.376
Antigüedad: 23 años, 6 meses Puntos: 0 | |
| <%
Set Conn = Server.CreateObject ("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.RecordSet")
Conn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("prueba.mdb")
consulta = "SELECT * FROM tabla1
rs.Open consulta,Conn,3,3
id=Request.Form("id")
nombre=Request.Form("nombre")
apellidos=Request.Form("apellidos")
comentarios=Request.Form("comentarios")
rs("id") = id
rs("nombre") = nombre
rs("apellidos") = apellidos
rs("comentarios") = comentarios
rs.Update
%> |