Erro em tempo de execução no While

[gubergamo 0]

Amigos, estou com um erro BEM estranho aqui.

 

vejamos:

xDate = Dateadd("d",1,xDate)
While Weekday(xDate) <> 3
  xDate = Dateadd("d",1,xDate)
Wend
Response.Write(xDate)

Funciona perfeitamente, mas eu quero que seja diferente de 3 E de 5... Então fiz:

 

96  xDate = Dateadd("d",1,xDate)
97  While (Cint(Weekday(xDate)) <> 3) OR (Cint(Weekday(xDate)) <> 5)
98   xDate = Dateadd("d",1,xDate)
99  Wend
100 Response.Write(xDate)

recebi o seguinte erro:

 

Erro de tempo de execução do Microsoft VBScript error '800a0005'

Chamada de procedimento ou argumento inválido: 'Dateadd'

acoesrh/quick_agendar.asp, line 98

 

Me dá erro na linha 98, mas se eu tirar a parte "xDate = Dateadd("d",1,xDate)" e colocar qualquer coisa, também não funciona.

Alguém sabe?

 

Esqueci de falar! nos meus "If's" também estou com esse problema, não consigo colocar "OR" nem "AND" no meio deles.

[xanburzum 169]

tente assim:

<%
xDate = Dateadd("d",1,Date)
response.write(xdate)

%>

[Mário Monteiro 179]

pode ser o cint que está dando erro