Declarações Condicionais

[wagtel]

Estou com dificuldades para entender as "Declarações Condicionais"

Na página modelo abaixo descrita, quando o cliente clinca em "Buscar" e envia um

valor inválido ou qualquer valor diferente de Ex: 06/03/2012

a página "agenda_2.asp" que recebe aparece como:

Tipo de erro:

Erro de tempo de execução do Microsoft VBScript (0x800A000D)

Tipos incompatíveis: '[string: "dd/mm/aaaa"]'

agenda_2.asp, line 7

ou

Tipo de erro:

Erro de tempo de execução do Microsoft VBScript (0x800A000D)

Tipos incompatíveis: '[string: ""]'

agenda_2.asp, line 7

Etc...

http://www.wagtel.com/agenda_0.asp

para sanar este problema eu inseri no código ASP a declaração condicional:

<% 
Data = Date
If Request.QueryString <> "" Then

hData = Request.QueryString("Data")
aData = dateadd("d", -2, Request.QueryString("Data"))
bData = dateadd("d", -1, Request.QueryString("Data"))
cData = dateadd("d", +1, Request.QueryString("Data"))
dData = dateadd("d", +2, Request.QueryString("Data"))

Else Request.QueryString()

Response.write ("Valor Digitado Inválido")
hData = Date
aData = Date
bData = Date
cData = Date
dData = Date


End If
 %>

Mas não deu certo, alguém pode me explicar onde estou errando:

Edited March 13, 2012 by wagtel

[bareta]

experimente usar o isdate():

<%
    Dim dateString

    dateString = Now

    Response.Write(IsDate(dateString))

    dateString = "August 10, 2008 11:10 PM"

    Response.Write(IsDate(dateString))

    dateString = "8/11/2008"

    Response.Write(IsDate(dateString))

    dateString = "12:15 PM"

    Response.Write(IsDate(dateString))

    Response.Write(IsDate("IsDate Function"))
%>