Calendario ASP

[brunozero2 0]

Bom dia Galera, sou novo aqui e to precisando de uma ajuda quem puder dar um força ae desde já agradeço

 

Abaixo estou postando o cosigo do calendario

O codigo que eu vou usar é para um unico cliente especifico, quando esse logar no sistema.

O calendario tem de que mostrar somente 7 dias pra frente.

 

Ex: hoje é dia 22 ele so mostra a partir do dia 29.

 

1º- Durante o mês de janeiro ele funcionou direitinho e tudo mais, so que quando você clica pra mudar o mes de fevereiro ele ta sumindo com a primeira semana q nao era pra sumir era pra mostrar os dias. O certo é ele sempre pegar o dia de hoje e mostra somente a partir de 7 dias pra frente

 

2º - Quando clica dezembro (2008) ele mostra os dias do mes e não pode pq é retroativo e não se pode fazer, assim como meses anteriores nao podem ser mostrados os dias.

 

Resumindo: No codigo tem que mostra 7 dias pra frente do dia de hoje e meses anteriores nao podem mostra nem dia habilitado, e corrigir para que nao suma os dias da a primeira semana do mes seguinte

 

 

Segue codigo ASP:

<%
mes = Request.QueryString("m")
ano = Request.QueryString("y")
CampoRetorno = Request.QueryString("c")
if cint(mes) = 12 then
Proximo = "&m=1&y="+ cstr(ano+1)
else
Proximo = "&m="+ cstr(mes+1) + "&y="+ cstr(ano)
end if
Proximo = "<a href='ssvcalend.asp?c="+CampoRetorno + Proximo + "'>>></a>"
if cint(mes) = 1 then
Anterior = "&m=12&y="+ cstr(ano-1)
else
Anterior = "&m="+ cstr(mes-1) + "&y="+ cstr(ano)
end if
Anterior = "<a href='ssvcalend.asp?c="+CampoRetorno + Anterior + "'><<</a>"
select case cint(mes)
case 1 sMes = "Janeiro"
uMes = "Jan"
dias = 31
case 2 sMes = "Fevereiro"
uMes = "Fev" '"Feb"
if cint(ano) mod 4 = 0 then
dias = 29
else
dias = 28
end if
case 3 sMes = "Março"
uMes = "Mar"
dias = 31
case 4 sMes = "Abril"
uMes = "Abr" ' "Apr"
dias = 30
case 5 sMes = "Maio"
uMes = "Mai" '"May"
dias = 31
case 6 sMes = "Junho"
uMes = "Jun"
dias = 30
case 7 sMes = "Julho"
uMes = "Jul"
dias = 31
case 8 sMes = "Agosto"
uMes = "Ago" '"Aug"
dias = 31
case 9 sMes = "Setembro"
uMes = "Set" '"Sep"
dias = 30
case 10 sMes = "Outubro"
uMes = "Out" ' "Oct"
dias = 31
case 11 sMes = "Novembro"
uMes = "Nov"
dias = 30
case else sMes = "Dezembro"
uMes = "Dez" '"Dec"
dias = 31
end select
mmaaaa = "/" + right("00"+cstr(mes),2) + "/" + right("00"+cstr(ano),4)
titulo = sMes + "/" + ano
desloc = cint(Weekday("01-" + uMes +"-"+ ano))
dd = 2-desloc
calen = ""
while dd <= dias
calen = calen + "<tr>"
for i = 0 to 6
if dd < 1 or dd > dias then
calen = calen + "<td> </td>"
else
calen = calen + "<td align=right><a href='.' onclick=""java script:return Click('" + right("0"+cstr(dd),2) + "');"">" + cstr(dd) + "</a></td>"
end if
dd=dd+1
next
calen = calen + "</tr>" + vbcrlf
wend
%>

[filipescoob 1]

Cara, posta o codigo completo, debuguei seu codigo aqui mas só com esta parte da confuso.

 

abraços

[xanburzum 169]

procura no fórum que postei um exemplo para isso, caso não localize,

se quiser me enviar uma mensagem usando o fórum, posso te enviar para fins didáticos um ótimo

exemplo, onde você poderá implementar no seu.