APRESENTAR DIA DA SEMANA
Pessoal gostaria de fazer um calendário semana em meu site.
Seria uma agenda
Segunda - feira (dia X) Terça-feira (dia Y) Quarta-feira (dia D) Quinta-feira (Dia ...) Sexta-feira (dia ...) Sabado (Dia ...) Domingo (Dia ...)
Observação: Gostaria que esse processo fosse automatizado e exibisse somente as data dos dias de uma semana.
Seria uma agenda
Segunda - feira (dia X) Terça-feira (dia Y) Quarta-feira (dia D) Quinta-feira (Dia ...) Sexta-feira (dia ...) Sabado (Dia ...) Domingo (Dia ...)
Observação: Gostaria que esse processo fosse automatizado e exibisse somente as data dos dias de uma semana.
Segue o que consegui no momento.
Segue o arquivo com o código.
Não esquece de renomear o TXT para ASP.
Não esquece de renomear o TXT para ASP.
Realmente é isso que preciso, porém, está dando o erro:
Número de argumentos incorreto ou atribuição de propriedade inválida: [ô]Date[ô]
Na linha 60 que é essa
Case vbSaturday
sab = Date()
dom = DateAdd([Ô]d[Ô], -6 , sab)
seg = Date([Ô]d[Ô], 1, dom) [ô] linha 60
ter = Date([Ô]d[Ô], 1, seg)
qua = Date([Ô]d[Ô], 1, ter)
qui = Date([Ô]d[Ô], 1, qua)
sex = Date([Ô]d[Ô], 1, qui)
Número de argumentos incorreto ou atribuição de propriedade inválida: [ô]Date[ô]
Na linha 60 que é essa
Case vbSaturday
sab = Date()
dom = DateAdd([Ô]d[Ô], -6 , sab)
seg = Date([Ô]d[Ô], 1, dom) [ô] linha 60
ter = Date([Ô]d[Ô], 1, seg)
qua = Date([Ô]d[Ô], 1, ter)
qui = Date([Ô]d[Ô], 1, qua)
sex = Date([Ô]d[Ô], 1, qui)
Acrescentei o Add e deu certo!!
Tópico encerrado , respostas não são mais permitidas