fechas

[Chalagauch]

gente..., como hago para guardar en una base la un registro con la fecha en que se guardó..., osea la fecha actual del sistema..., para despues mostrarlo.

Lo que tengo es esto, pero hay algo que hago mal....

<%
@LCID = 1034

strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/Foros/bases/base.mdb")
set my_Conn = Server.CreateObject("ADODB.Connection")
my_Conn.Open strConnString


nombre = Request.Form("nombre")
apellido = Request.Form("apellido")
matricula = Request.Form("matricula")
dni = Request.Form("dni")
email = Request.Form("email")
opinion = Request.Form("opinion")
fecha = FormatDate(now(),vbshortdate)

SQL = "INSERT INTO Respuestas (Nombre, Apellido, Matricula, DNI, email, Opinion, Fecha) VALUES ('"&nombre&"', '"&apellido&"', "&matricula&", "&dni&", '"&email&"', '"&opinion&"', "&fecha&")"

my_Conn.Execute(SQL)
my_Conn.Close
set my_Conn = nothing
Response.Write "Los datos fueron guardados con exito"
%>

Alguien me puede ayudar?

[bakanzipp]

prueba asi:

Código:

SQL = "INSERT INTO Respuestas (Nombre, Apellido, Matricula, DNI, email, Opinion, Fecha) VALUES ('"&nombre&"', '"&apellido&"', "&matricula&", "&dni&", '"&email&"', '"&opinion&"','"&fecha&"')"

[ElAprendiz]

por que no utilizas simplemente

fecha=now

[bakanzipp]

ke contai educanet....como te ha ido

[ElAprendiz]

bien po loco ahora si tengo internet todo el dia jejeje

[Chalagauch]

Bueno..., agregue lo que me sugirieron...., y quedo asi

<%
@LCID = 1034

strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/Foros/bases/css.mdb")
set my_Conn = Server.CreateObject("ADODB.Connection")
my_Conn.Open strConnString


nombre = Request.Form("nombre")
apellido = Request.Form("apellido")
matricula = Request.Form("matricula")
dni = Request.Form("dni")
email = Request.Form("email")
opinion = Request.Form("opinion")
fecha = now

SQL = "INSERT INTO Respuestas (Nombre, Apellido, Matricula, DNI, email, Opinion, Fecha) VALUES ('"&nombre&"', '"&apellido&"', "&matricula&", "&dni&", '"&email&"', '"&opinion&"','"&fecha&"')"

my_Conn.Execute(SQL)
my_Conn.Close
set my_Conn = nothing
Response.Write "Los datos fueron guardados con exito"
%>

Pero me tira este error.....

Active Server Pages error 'ASP 0221'

Invalid @ Command directive

/Foros/guarda.asp, line 4

The specified 'strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/Foros/bases/css.mdb") set my_Conn = Server.CreateObject("ADODB.Connection") my_Conn.Open strConnString nombre = Request.Form("nombre") apellido = Request.Form("apellido") matricula = Request.Form("matricula") dni = Request.Form("dni") email = Request.Form("email") opinion = Request.Form("opinion") fecha = now SQL = "INSERT INTO Respuestas (Nombre, Apellido, Matricula, DNI, email, Opinion, Fecha) VALUES ('"&nombre&"', '"&apellido&"', "&matricula&", "&dni&", '"&email&"', '"&opinion&"','"&fecha&"')" my_Conn.Execute(SQL) my_Conn.Close set my_Conn = nothing Response.Write "Los datos fueron guardados con exito" ' option is unknown or invalid.

Por queeeee????

[ElAprendiz]

cambia esto @LCID = 1034
por esto
session.LCID = 1034

[Chalagauch]

Ahi funcionó ....

pero ahora para mostrarla como hago?

[ElAprendiz]

strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/Foros/bases/base.mdb")
set my_Conn = Server.CreateObject("ADODB.Connection")
'Set rs = Server.CreateObject("ADODB.Recordset")
my_Conn.Open strConnString



SQL = "select * from respuestas where dni="&dni&""
my_Conn.Execute(SQL)
my_Conn.Close
'set my_Conn = nothing
Response.Write my_conn("nombre")
.
.
..

[Chalagauch]

hay que transformarlo de alguna forma??

Response.Write( "<TD> & rs.Fields("Fecha") </TD>" & vbCrlf )

[Chalagauch]

la coneccion y todo lo demas lo tengo hecho....

[Chalagauch]

ya lo solucioné, muchas gracias por todo...