Declarações Condicionais

[Superwagtel 1]

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:

[saloeric 1]

só tem que verificar se o valor enviado é do tipo data

 

 

data = Request.QueryString("Data")

if isdate(data) then
'faz o tratamento para a sua base de dados
ano = year(data)
mes = month(data)
dia = day(data)
else

response.write "Vai passear"

end if