No sale nada.... la prueba la hago con la fecha
01/07/2006
Cuando ingreso la noticia lo hago asi...
<%
Function FechaGenerica(fecha)
If IsDate(fecha) = True Then
DIM dteDay, dteMonth, dteYear
dia = Day(fecha)
mes = Month(fecha)
ano = Year(fecha)
FechaGenerica = Right(Cstr(dia + 100),2) & "/" & Right(Cstr(mes + 100),2) & "/" & ano
Else
FechaGenerica = Null
End If
End Function
fecha= Cdate(Request.form("fecha"))
fecha= FechaGenerica(fecha)
set con = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.RecordSet")
con.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("bd.mdb")
SQL = "SELECT * FROM noticias"
rs.Open SQL,con,3,3
rs.AddNew
rs("fecha") = fecha
rs.update
rs.Close
set rs=nothing
set con=nothing
%>
Al abrir la tabla de igual manera la fecha aparece 07-01-2006
lo hago tambien cuando leo la noticias
<%
Session.LCID = 1034
Function FechaGenerica(fecha)
If IsDate(fecha) = True Then
DIM dteDay, dteMonth, dteYear
dia = Day(fecha)
mes = Month(fecha)
ano = Year(fecha)
FechaGenerica = Right(Cstr(dia + 100),2) & "/" & Right(Cstr(mes + 100),2) & "/" & ano
Else
FechaGenerica = Null
End If
End Function
Dim con, rs, SQL
pase=Request.QueryString("id")
set con=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
con.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("bd.mdb")&";"
SQL="SELECT * FROM noticias WHERE id LIKE '%"&pase&"%';"
rs.Open SQL, con, 1, 2
fecha=Cdate(rs("fecha"))
fecha= FechaGenerica(fecha)
%>
lo imprimo con
<%
<%Response.Write(fecha)%>
%>
y la fecha que me muestra es 07/01/2006
