Erro em tempo de execução no While

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.