No consigo introducir una fecha valida en una DB

[ciberpata]

Saludos:

El caso es que estoy intentando validar que el campo "fechavalidezoferta" sea una fecha.

Cuando tecleo un valor del tipo "12/10" al guardarse en la DB lo hace como 12/10/2004 cuando estimo que debería dar un error ¿no?. Sin embargo si meto "12/" o "dfldf" o lo dejo blanco, entonces me devuelve el siguiente error en vez de poner "campo "fechavalidezoferta" contiene una fecha incorrecta".





Tipo incorrecto. /gestion_mayoristas/ofertas/insertar/insertar_ofertas_result.asp, line 55


Les quedaría muy agradecido si le paso el código y me dan una pista de donde puedo estar metiendo la pata.

Código:

 
<!--#INCLUDE file="../../../adovbs.asp"-->
<% 
Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.Save("c:\obradoiroweb\obradoiroweb\turofertas\images\prueba")
%>
<%
set Conn= Server.CreateObject("ADODB.Connection")
Conn.ConnectionString = "DSN=clubviajesoferta.com.turofertas"
Conn.open
Set RS=Server.CreateObject("ADODB.Recordset")
rs.activeconnection=conn 
rs.source="ofertasmayoristas"
rs.Locktype = adLockOptimistic
rs.CursorType = adOpenDinamic
rs.open
'Recupera las variables del formulario
referenciaoferta= Trim(upload.Form("referenciaoferta"))
fechavalidezoferta= Trim(upload.form("fechavalidezoferta"))
imagenproducto=trim(upload.form("imagenproducto"))
insertar="True"
'Validamos el formulario
if referenciaoferta= "" then
 response.write("<ul><div align=""center""><font face= ""Arial, Helvetica, sans-serif"" size=""2"" color=""#FB4C50"">" & "El campo <em>""Referencia""</em> está vacio</font></div>")
 insertar="False"
end if

If NOT IsDate(fechavalidezoferta) then
 response.write("<div align=""center""><font face= ""Arial, Helvetica, sans-serif"" size=""2"" color=""#FB4C50"">" & "El campo <em>""Fecha Validación""</em> contiene una fecha incorrecta </font></div>")
 insertar="False"
end if
'Añadimos el registro
 rs.addnew
rs("referenciaoferta")=upload.form("referenciaoferta")
rs("fechapublicacionoferta")=upload.form("fechapublicacionoferta")
5rs("fechavalidezoferta")=upload.form("fechavalidezoferta")
'Este For-Next hace que el fichero se suba al servidor
ruta="../images/prueba/"
For Each File in Upload.Files
  rs(File.name)=ruta & (File.filename)
Next
If Insertar="True" then
 rs.Update
%>
	  <p><strong>LA OFERTA SE HA AÑADIDO A LA BASE DE DATOS CORRECTAMENTE</p></strong></font>
<%
else
 rs.cancelupdate
 response.write("<div align=""center""><br><strong><font face= ""Arial, Helvetica, sans-serif"" size=""3"" color=""#FB4C50"">" & "El producto no se ha añadido a la base de datos. <br>El/los campo/s arriba indicados no contienen datos o no son correctos. <p> <a href=""javascript:history.back()"">Pulse aquí para poder completar los datos correctamente</strong></font></a></div>")
End if
rs.close
conn.close
%>

Muchas gracias