18/07/2005, 16:44
|
 | | | Fecha de Ingreso: junio-2005
Mensajes: 155
Antigüedad: 19 años, 10 meses Puntos: 0 | |
| OKE ASI LO TENGO
<%
set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("librovisitas.mdb")&"")
set RS = Server.CreateObject("ADODB.RecordSet")
RS.Open "formulario", Conn, 2, 3
RS.AddNew
rs("nombre")=request.form("nombres")
rs("apellidos")=request.form("apellidos")
rs("empresa")=request.form("empresa")
rs("telefono")=request.form("telefono")
rs("mail")=request.form("mail")
comentario=replace(request.form("comentario"),chr( 10),"<br>")
rs("comentario")=comentario
RS.Update()
RS.Close()
conn.Close()
set conn = nothing
set conexion = nothing
Response.Redirect("index.html")
%> |