Ver Mensaje Individual
  #6 (permalink)  
Antiguo 21/07/2005, 16:27
Avatar de mrjhon
mrjhon
 
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
%>