Calendario! Cor De Fundo Diferente!

[X-MAN]

Ola, tenho este codigo que gera um calendario: (imagem do calendario apos o codigo)

<%
valor = request("valor")
ano = request("ano")

if valor = "" then
valor = month(now)
end if

if ano = "" then
ano = year(now)
end if

if valor = 12 Then
Valor_Mais = 1 & "&ano=" & ano + 1
else
Valor_Mais = Valor + 1 & "&ano=" & ano
End if

if valor = 1 Then
Valor_Menos = 12 & "&ano=" & ano - 1
else
Valor_Menos = Valor - 1 & "&ano=" & ano
End if
    
Select Case valor
Case 1,3,5,7,8,10,12
mês = 31
Case 4,6,9,11
mês = 30
Case Else
If ano Mod 4 = 0 And (ano Mod 100 <> 0 Or ano Mod 400 = 0) Then
mês = 29
Else
mês = 28
End If
End Select

Select Case Valor 
case 1
tmes = "Janeiro"
case 2
tmes = "Fevereiro"
case 3
tmes = "Março"
case 4
tmes = "Abril"
case 5
tmes = "Maio"
case 6
tmes = "Junho"
case 7
tmes = "Julho"
case 8
tmes = "Agosto"
case 9
tmes = "Setembro"
case 10
tmes = "Outubro"
case 11
tmes = "Novembro"
case 12
tmes = "Dezembro"
End Select

j1=1
j2=1
    
Total = 1
Dia = 1
data = "1/" & valor & "/" & ano
data2 = mês & "/" & valor & "/" & ano
X = weekday(cdate(data)) - 1 'em que dia da semana começa o mês
Colunas = Fix(mês + X) / 7 'numero de colounas que terá a tabela

If Colunas > 5 Then
Colunas = 6
Else
Colunas = 5
End if
%>

<style type="text/css">
<!--
.style2 {font-family: Arial, Helvetica, sans-serif}
.style3 {font-size: 10px}
.style4 {
    font-size: 11px;
    font-weight: bold;
}
.style6 {
    font-family: Arial, Helvetica, sans-serif;
    font-weight: bold;
    color: #333333;
    font-size: 12px;
}
.style8 {
    font-family: Arial, Helvetica, sans-serif;
    font-weight: bold;
    font-size: 11px;
    color: #000000;
}
-->
</style>


<table width="255" border="1" cellpadding="0" cellspacing="0" bordercolor="#E9E9E9">
<tr>
<td align="center">
<table width="100%" border="0" cellpadding="0" cellspacing="1" bordercolor="#CBCBCB" background="../Imagens/fd_topo_calendario.gif" bgcolor="#CCCCCC">
<tr>
<td align="center" valign="middle" bgcolor="#E9E9E9"><span class="style6"><%=tmes%></span></td>
</tr>
</table></td>
</tr>
<tr>
<td align="center"><table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#999999">
<tr align="center" bgcolor="EAE0C8" class="texto_marrom_01">
<td width="36" height="18" bgcolor="#EDEDED" class="style3 style2 texto_marrom_01_bold" ><span class="style4">Dom</span></td>
<td width="36" height="18" bgcolor="#EDEDED" class="style3 style2 texto_marrom_01_bold" ><span class="style4">Seg</span></td>
<td width="36" height="18" bgcolor="#EDEDED" class="style3 style2 texto_marrom_01_bold" ><span class="style4">Ter</span></td>
<td width="36" height="18" bgcolor="#EDEDED" class="style3 style2 texto_marrom_01_bold" ><span class="style4">Qua</span></td>
<td width="36" height="18" bgcolor="#EDEDED" class="style3 style2 texto_marrom_01_bold" ><span class="style4">Qui</span></td>
<td width="36" height="18" bgcolor="#EDEDED" class="style3 style2 texto_marrom_01_bold" ><span class="style4">Sex</span></td>
<td width="36" height="18" bgcolor="#EDEDED" class="style3 style2 texto_marrom_01_bold" ><span class="style4">Sab</span></td>
</tr>
</table></td>
</tr>
<tr>
<td><table width="255" border="0" cellpadding="0" cellspacing="0" bordercolor="#000000" bgcolor="#E9E9E9">
<tr>
<td>
<%  
FOR I = 1 TO Colunas
%>
<table width="100%" border="1" cellpadding="3" cellspacing="0" bordercolor="#FFFFFF">
<tr align="center" class="texto_marrom_01">
<%
FOR S = 1 TO 7
IF Dia <= mês AND Total > x Then
mostra = Dia
cor="#FFFFFF"
Dia = Dia + 1
Else
Mostra = "&nbsp;"
cor = "#E9E9E9"
End IF
%>
<td width="26" height="26" valign="middle" bordercolor="#E9E9E9" bgcolor="<%=cor%>"><span class="style8"><%=mostra%></span></td>
<%
Total = Total + 1
NEXT
%>  
<%
NEXT
%>
</tr>
</table>
</td>
</tr>
</table></td>
</tr>
</table>

assim é o calendario gerado: http://img301.imageshack.us/img301/1370/calendar1me0.jpg a minha duvida é o seguinte: nesta parte do codigo onde é gerado a tabela que mostra os dias:

<%
FOR S = 1 TO 7
IF Dia <= mês AND Total > x Then
mostra = Dia
cor="#FFFFFF"
Dia = Dia + 1
Else
Mostra = "&nbsp;"
cor = "#E9E9E9"
End IF
%>
<td width="26" height="26" valign="middle" bordercolor="#E9E9E9" bgcolor="<%=cor%>"><span class="style8"><%=mostra%></span></td>
<%
Total = Total + 1
NEXT
%>  
<%
NEXT
%>

Como faço para que cada fundo fique de uma cor diferente? ogual a imagem abaixo??

http://img100.imageshack.us/img100/7837/calebdar2kk6.jpg

Agradecia a ajuda!!

[.Andreia.]

vai ser padronizado o dia com uma cor ou será aleatório??

Se for padronizado, por exemplo, que seja os dias pares. então, dentro do LOOP, voce verifica se o numero é par e determina a cor dele.

Bom, se for aleatorio, por exemplo, pelos dias comemorativos... Voce teria que ter uma base de dados para saber se o dia que entrou no loop pertence a uma data da base, e colori-lo.

[victormartins]

tenta assim:

if cor ="#8acfff" then
cor = "#d7ebff"
else
cor ="#8acfff"
end if

ai onde você chama a cor da tabela você coloca assim:

<%= cor %>

[X-MAN]

é o seguinte, tenho na base de dados um campo chamado setembro, e dentro dele tenho os valores 1 2 2 12 1 2 3 2 1 0 2 1 0 1 2 0 1 2 0 1 2 3 4 2 0 1 0 2 3

São 30 valores, cada valor representar um dia e os seu respectivo numero representa uma cor:

0 - azul

1 - preto

2 - roxo

3 - vermelho

Uso a função Split para separar os valores, tipo:

var10=RS("setembro")

j=Split(var10)

j1=(j(0)) //ou seja, a variavel j1 vai ser igual ao primeiro valor do campo setembro, que é 1

j2=(j(1))

ate o j30 que é os valores que tem no campo setembro

é assim que quero colocar a cor de cada celula da tabela, de acordo com esses numeros que cada um representa a cor do seu dia.

Agradecia a ajuda!

[.Andreia.]

um exemplo do que você pode aplicar:

<%
function DeterminaCor(dia)

select case dia
case "1"
    cor = "#0099ff"
case "2"
    cor = "#CCCCCC"
case else
    cor = "#000000"
end select

DeterminaCor = cor

end function


for contador = 1 to 5
    response.write DeterminaCor(contador)
next    

%>

[X-MAN]

Andreia, porque o contador seria de 1 a 5??

for contador = 1 to 5
    response.write DeterminaCor(contador)
next   

Não seria de 1 a mês

variavel mês que pega o numero de dias que o mês tem!

[X-MAN]

Como ficaria no codigo?? é não consegui por isso a funcionar!! agradecia a ajuda!!

[X-MAN]

obrigado pela sua ajuda, já consegui, era isso mesmo!!!!

obrigadão!!!