Data evento ... problema

[yoyo87]

alloraaaaa...guardiamo questo codice:

<%
' se non passiamo nessun valore parte dalla data odierna
If Request("data") ="" then
  data = Date()
else
  data = CDate(Request("data"))
end if

mese = Month(data)
anno = Year(data)

' conta il numero di giorni in un mese
function giornidelmese(mese, anno)
  DataInizio = CDate("01/" & mese & "/" & anno)
  DataFine = DateAdd("m", 1, DataInizio)
  giornidelmese = DateDiff("d", DataInizio, DataFine)
end function

%>
<table style="width:152;background-color:#0C4285;border: 1px solid #000000">
<tr>
	<td align="center">#calendario" onclick="precedente()" class="cal"><</td>
	<%
			mese = MonthName(month(data))
			lettera = ucase(mid(mese,1,1))
			mese = lettera & mid(mese,2,len(mese))
			anno = year(data)
		%><td colspan="5" align="center" height="5px">
				<form name='selectMese'>
					<SELECT id='mese' onchange='cambiaMeseAnno()'>
		<%
				for i = 1 to 12
					nomeDelMese = MonthName(month("01/" & i & "/04"))
					lettera = ucase(mid(nomeDelMese,1,1))
					nomeDelMese = lettera & mid(nomeDelMese,2,len(nomeDelMese))
		%>
					<OPTION VALUE=<%=nomeDelMese%>><%=nomeDelMese%>
		<%
				next
		%>
				</select>
        </form></td>
	<td align="center">#calendario" onclick="successivo()" class="cal">></td>
</tr>
<tr bgcolor="#C0C0C0">
	<td class="CalendarioNomeGiorno"><font color="#FFFFFF">Do</font></td>
	<td class="CalendarioNomeGiorno"><font color="#FFFFFF">Lu</font></td>
	<td class="CalendarioNomeGiorno"><font color="#FFFFFF">Ma</font></td>
	<td class="CalendarioNomeGiorno"><font color="#FFFFFF">Me</font></td>
	<td class="CalendarioNomeGiorno"><font color="#FFFFFF">Gi</font></td>
	<td class="CalendarioNomeGiorno"><font color="#FFFFFF">Ve</font></td>
	<td class="CalendarioNomeGiorno"><font color="#FFFFFF">Sa</font></td>
</tr>
<%
dim cn, rs
set cn = Server.CreateObject("ADODB.Connection")
cn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("/mdb-database/calendario.mdb")
set rs = cn.Execute("SELECT * FROM eventi")
DataInizio = CDate("01/" & mese & "/" & anno)

' saltiamo primi giorni della settimana
for i = 1 to WeekDay(DataInizio)-1
  if i = 1 then Response.Write "<tr>"
  Response.write "<td bgcolor=#0C4285 align=center>-</td>"
next

'mostriamo il calendario
giornoScelto = Request("data")
if giornoScelto = "" then
	giornoScelto = date()
end if
for i = 1 to giornidelmese(mese,anno)
  data = Cdate(( i & "/" & mese & "/" & anno))
  if WeekDay(data) = 1 then Response.Write "<tr>"
	if i = day(giornoScelto) then
	Response.Write("<td id='giorno" & i & "' align='center' class='CalendarioOggi'><a href=javascript:EVENTI('evento2.asp?data=" & Server.HTMLEncode(data) & "') class='cal'><font color=#FFFFFF>" & i & "</font></a></td>")
	Elseif data = Cdate(rs("dataevento")) then  
	Response.Write("<td id='giorno" & data & "' align='center' class='CalendarioGiornoEvento'><a href=javascript:EVENTI('evento2.asp?data=" & Server.HTMLEncode(data) & "') class='cal'>" & i & "</a></td>") 
	Else
	Response.Write("<td id='giorno" & data & "' align='center' class='CalendarioGiorno'><a href=javascript:EVENTI('evento2.asp?data=" & Server.HTMLEncode(data) & "') class='cal'>" & i & "</a></td>")
	    end if
		
  if WeekDay(data) = 7 then Response.Write "</tr>"
next

' saltiamo primi giorni della settimana
for j = WeekDay(Data)+1 to 7
  Response.write "<td bgcolor=#0C4285 align=center>-</td>"
  if j mod 7 = 0 then Response.Write "</tr>" : exit for
next
%>
<td colspan="7">Eventi della settimana</td>
</table>
<script language="vbscript">
 
<% if data > "" then
	mese1 = month(data) - 1
	anno1 = year(data) - 1900
%>
	meseCorrente = <%=mese1%>
	annoCorrente = <%=anno1%>
	document.selectMese.mese.selectedIndex = meseCorrente
<% else %>
	meseCorrente = month(date()) - 1
	document.selectMese.mese.selectedIndex = meseCorrente
<% end if%>
	function cambiaMeseAnno()
		meseSelezionato = document.selectMese.mese.selectedIndex + 1
		annoSelezionato = <%=anno1%> + 1900
		giornoSelezionato = <%=day(data_sel)%>
		window.top.location.href="home.asp?data=" & giornoSelezionato & "/" & meseSelezionato & "/" & annoSelezionato & ""
	end function
	function precedente()
		document.selectMese.mese.selectedIndex = document.selectMese.mese.selectedIndex - 1
	end function
	function successivo()
		document.selectMese.mese.selectedIndex = document.selectMese.mese.selectedIndex + 1
	end function
</script>

La riga che ho evidenziato in rosso in pratica dice che se la data è uguale a quella inserita nel Db colora lo sfondo in rosso...però il problema è che mi evidenzia il la data solo del primo record del DB...come mai? cosa manca? mi sono spiegato bene :P

[yoyo87]

Forse con un Loop? Ma come metterlo all'interno di un If..Else