Dono este codigo pa quien lo nesesite
<%
fechahoy=clng(date)
response.write date&"<br>"
response.write fechahoy&"<br>"
MiFecha = "05/03/2002"
response.write mifecha&"<br>"
MiHoraCorta = CDate(MiFecha)
fecha=clng(MiHoraCorta)
response.write fecha
set o=Server.CreateObject("ADODB.Connection" )
o.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../ofertas.mdb")
set sco=Server.CreateObject("ADODB.Recordset" ;)
SQL2="SELECT * FROM ofertas;"
sco.Open SQL2, o, 2, 2
sco.AddNew
sco.Fields("codprod")="12"
sco.Fields("fvigencia")="05/03/02"
sco.Update
sco.Close
set sco = nothing
o.Close
set o = nothing
%>