
21/07/2005, 16:27
|
 | | | Fecha de Ingreso: junio-2005
Mensajes: 155
Antigüedad: 20 años Puntos: 0 | |
SI , ESPERA TE MUESTRO EL CODIGO
<%
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
%> |