Marcar data em calendario

[Marinho 0]

Oi a todo.

Vamos lá !

Peguei um codigo aqui no forum, mais não estou conseguindo marcar os

dias entre essas datas Ex: 10/12/05 a 25/12/05

Gostaria que no calendario entre essa duas datas ficasse marcados os dias com uma cor diferente

Tipo cor "Vermelha" -> Indisponibilidade do imovel

 

Aqui vai o codigo do calendario

 

 

<%

'Primeiro

valor = month(now)

ano = year(now)

 

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 = Valor1 - 1 & "&ano=" & ano

 

End if

 

 

 

Select Case valor

 

Case 1,3,5,7,8,10,12

 

Mes = 31

 

Case 4,6,9,11

 

Mes = 30

 

Case Else

 

If ano Mod 4 = 0 And (ano Mod 100 <> 0 Or ano Mod 400 = 0) Then

 

Mes = 29

 

Else

 

Mes = 28

 

End If

 

End Select

 

 

 

Total = 1

 

Dia = 1

 

data = "1/" & valor & "/" & ano

 

data2 = mes & "/" & valor & "/" & ano

 

X = weekday(cdate(data)) - 1

 

 

 

Colunas = Fix(Mes + X) / 7

 

 

 

If Colunas > 5 Then

 

Colunas = 6

 

Else

 

Colunas = 5

 

End if

 

%>

 

<table width="137" border="0" cellspacing="0" cellpadding="0">

 

<form method="post" action="../entrada.asp" name="form" onSubmit="return enviar();">

 

 

 

<tr>

 

<td width="137" align="center">

 

<table width="99%" border="0" cellpadding="0" cellspacing="0" bgcolor="#077AB1" class="mes">

<tr>

<td width="86" align="left" valign="top"><div align="center">

<%=MonthName(valor)%> </div></td>

</tr>

</table></td>

 

</tr>

 

<tr>

 

<td align="center"><table width="99%" border="0" cellpadding="0" cellspacing="1" bgcolor="#05487A" class="agenda">

<tr align="center" class="texto_marrom_01">

<td width="17" height="18" class="regulatabela" ><font color="#FFFFFF">D</font></td>

<td width="17" height="18" class="regulatabela" ><font color="#FFFFFF">S</font></td>

<td width="17" height="18" class="regulatabela" ><font color="#FFFFFF">T</font></td>

<td width="17" height="18" class="regulatabela" ><font color="#FFFFFF">Q</font></td>

<td width="17" height="18" class="regulatabela" ><font color="#FFFFFF">Q</font></td>

<td width="17" height="18" class="regulatabela" ><font color="#FFFFFF">S</font></td>

<td width="25" height="18" class="regulatabela" ><font color="#FFFFFF">S</font></td>

</tr>

</table></td>

 

</tr>

 

<tr>

 

<td><table width="137" border="0" cellpadding="0" cellspacing="1" class="agenda">

<tr>

 

 

<td width="135" height="58" bgcolor="#F2F9FF">

<%

 

FOR I = 1 TO Colunas

 

%>

<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="agenda">

<tr align="center" class="texto_marrom_01">

 

<%

 

FOR S = 1 TO 7

 

IF Dia <= Mes AND Total > x Then

 

Mostra = Dia

 

Cor = "#056DBA"

 

Dia = Dia + 1

 

Else

 

Mostra = " "

 

Cor = "#ffffff"

 

End IF

 

%>

 

 

<td width="133" height="20" bgcolor="<%=Cor%>" class="regulatabela"><%=mostra%></td>

 

<%

 

Total = Total + 1

 

NEXT

 

%>

 

</tr>

 

</table>

 

 

<%

 

NEXT

 

%>

</td>

 

</tr>

 

</table></td>

 

</tr>

 

 

 

</form>

 

</table>

Me dá uma força ai por favor, infelizmente tem que ser esse o calendario.

Obrigado !

[Mário Monteiro 179]

bem seu colendario monta certinho né??certo então...esse teste para ver se a data é para ser marcada ou não deve ser feito em cada celula de preferencia...senão seu codigo ira ficar mais complexo ainda se a consulta for feita antes...