Ver Mensaje Individual
  #22 (permalink)  
Antiguo 09/07/2005, 16:09
Avatar de mrjhon
mrjhon
 
Fecha de Ingreso: junio-2005
Mensajes: 155
Antigüedad: 19 años, 10 meses
Puntos: 0
BUENO AHORA SOLUCIONADO EL DE ARRIBA

AHORA ME SALE PROBLEMA EN ESTA LINEA

RS.Update()
__________________________________________________ ______________________


<%
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, 1, 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")
rs("comentario")=request.form("comentario")
comentarios=replace(request.form("comentarios"),ch r(10),"<br>")
rs("comentario")=comentarios

RS.Update()
RS.Close()
conexion.Close()
set RS = nothing
set conexion = nothing
%>

AHORA KE SERA LA VERDAD ES KE SOLO NESECITO KE ME FUNCIONE ESTE Y YA NO MAS...