validação de data

Estou tentando fazer validação de data em meu código ASP e não consigo. Tentei usar a função isdate() mas parece que o ASP não aceita.

Segue abaixo o código (a dúvida está em negrito)

>
<%

dim conexao

dim consulta

dim cod_inc

dim descricao

dim data

dim vhd80

dim vhd120

dim vmonitorlg

dim vmonitorsan

dim vmemoria

dim vimpressorahp

dim vimpresdsoraepson

dim cartucho

dim estabilizador

dim placa

dim processador

Set conexao = Server.CreateObject("ADODB.Connection")

Set consulta = Server.CreateObject("ADODB.Recordset")

conexao.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Inetpub\wwwroot\Projeto_Final_II\gerinc2.mdb"

codigo = request.Form ("codincidente")

descricao = request.Form ("descricao")

data = request.Form ("data")

vhd80 = request.Form ("hd80gb")

vhd120 = request.Form ("hd120gb")

vmonitorlg = request.Form ("monitorlg17")

vmonitorsan = request.Form ("monitorsamsung17")

vmemoria = request.Form ("memoria256mb")

vimpressorahp = request.Form ("impressoahp")

vimpresdsoraepson = request.Form ("impressoaepson")

vcartucho = request.Form ("cartuchoimpressorahp")

vestabilizador = request.Form ("estabilizador")

vplaca = request.Form ("placamaeintel")

vprocessador = request.Form ("processadorintel")

if codigo = "" then

response.write"Código Em Branco!!!! Volte e insira os dados corretamente!!!!"

else

if descricao = "" then

response.Write"Descrição Em Branco!!!! Volte e insira os dados corretamente!!!!"

else

if data = "" then

response.Write"Data Em Branco!!!! Volte e insira os dados corretamente!!!!"

else

if not isdate(data) then

response.Write"Data inválida"

else

if vhd80 = "" and vhd120 = "" and vmonitorlg = "" and vmonitorsan = "" and vmemoria = "" and vimpressorahp = "" and vimpresdsoraepson = "" and vcartucho = "" and vestabilizador = "" and vplaca = "" and vprocessador = "" then

response.Write"Você esqueceu de escolher e/ou digitar a quantidade do(s) equipamento(s) ligados ao incidente!!!"

else

consulta.Open "select * from incidente where codinc='" & request.Form ("codincidente") & "'", conexao

if consulta.EOF then

conexao.Execute "INSERT INTO incidente(codinc,descricao,data,hd80gb,HD_120B,Monitor_LG_17,Monitor_Sansung_17,

Memoria_256MB,Impressora_HP,Impressora_Epson,Cartucho_Impressora_HP,Estabilizado

r,Placa_Mae_Intel,Processador_Intel) VALUES ('"&codigo&"','"&descricao&"','"&data&"','"&vhd80&"','"&vhd120&"','"&vmonitorlg&"','"&vmonitorsan&"','"&vmemoria&"','"&vimpressorahp&"','"&vimpresdsoraepson&"','"&cartucho&"','"&estabilizador&"','"&placa&"', '"&processador&"')"

response.Write"Cadastro feito com sucesso!!!!"

else response.Write ("Este código de incidente ja existe!!! Crie outro!!!")

end if

end if

end if

end if

end if

%>