Editar campo tipo "Fecha" en BD Accses - ASP

[Edyvargas]

Este es el código:

<form method="post" action="prueba2.asp">
Actual: <%if fecha2="" then
response.write(fecha)
else
response.write(fecha2)
end if
%>
<br>
Nueva Fecha: <input type="text" name="fecha2">
<input type="hidden" name="fecha" value="<%=fecha%>">
<input type="hidden" name="resultado" value="editado">
<input type="submit" value="Guardar"><br><br>
</form>


<%if fecha2="" then
else

strSQL = "UPDATE NOTICIAS1 set FECHA='"& fecha2 &"' where FECHA= '" & fecha & "';"
objrs.Open strSQL, oConn

response.write("se editó con éxito")

end if%>