Ver Mensaje Individual
  #8 (permalink)  
Antiguo 23/07/2005, 16:37
Avatar de mrjhon
mrjhon
 
Fecha de Ingreso: junio-2005
Mensajes: 155
Antigüedad: 19 años, 10 meses
Puntos: 0
HUY SI METALLICK TENES RAZON ESTE ES PARA MOSTRAR JEEJJE KE DESPISTADO SOY LO KE PASA ES KE HANDO HACIENDO UN MONTON DE COSAS KE MIRA LOS ERRORES KE HAGO JEJEJ..

MIRA ESTE ES EL CODIGO EN EL CUAL KIERO PONER LA FUNCION DE LA FECHA PERO LA VERDAD NO SE COMO SE HACE

<%

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")
rs("fecha")=request.form("fecha")
comentario=replace(request.form("comentario"),chr( 10),"<br>")
rs("comentario")=comentario

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

ME PUEDE DECIR CONDE Y COMO VA ESTO ES LO UNCO KE ME FALTA PARA COMPLETAR MI TRABAJO..