Problema Codice calendario

[yoyo87]

Ho un calendario con gli eventi fatto da due pagine:

PRIMA PAGINA (calendario.asp )
Quella del calendario che ha questo codice:

 <script>

function EVENTI(arco) {

        searchWin = window.open(arco,'EVENTI','scrollbars=yes,resizable=no,width=400,height=200,status=no,location=no,toolbar=no');

}

</script>
<div id="calendario">
<%
If Request("data") ="" then
  data = Date()
else
  data = CDate(Request("data"))
end if

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

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">
				<form name='selectMese' ID=Form1>
					<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>
<%
DataInizio = CDate("01/" & mese & "/" & anno)

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

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('evento.asp?data=" & Server.HTMLEncode(data) & "') class='cal'><font color=#FFFFFF>" & i & "</font></a></td>")
	else
		Response.Write("<td id='giorno" & i & "' align=""center"" class='CalendarioGiorno'><a href=javascript:EVENTI('evento.asp?data=" & Server.HTMLEncode(data) & "') class='cal'>" & i & "</a></td>")
	end if
  if WeekDay(data) = 7 then Response.Write "</tr>"
next

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="calendario.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>
</div>

SECONDA PAGINA (evento.asp )
Visualizza l'evento presente in una determinata data. Ecco il codice:

<%
dim data
data = Request.QueryString("data")
if IsDate(data) = false then
Response.End
else
Response.Write "Evento della data " & data & "

"
dim cn, rs
set cn = Server.CreateObject("ADODB.Connection")
cn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("/mdb-database/calendar2.mdb")
set rs = cn.Execute("SELECT * FROM eventi WHERE dataevento = '" & data & "'")
if rs.EOF then
Response.Write "Nessun evento"
else
Response.Write rs("titolo") & "

" & rs("descrizione")
end if
cn.Close
set cn = nothing
end if
%>

Poi ho un DB che contiene:
ID 1
DATAEVENTO 20050712
TITOLO PROVA
DESCRIZIONE speriamo che funziona
(tutti come tipo di dati testo a parte, logicamente, l'ID)

Ora io mi chiedo, come mai ogni volta che clicco sulla data 12/07/05 mi da come risultato "Nessun evento" ????????? Ho provato anche a mettere nella query "DATAEVENTO" la data scritta "050712" invece di "20050712", ma niente. In cosa sbaglio?

[cavicchiandrea]

Nella tabella eventi come è impostato il campo dataevento "testo" o "data/ora"

Se è impostato "data/ora" prova cosi la select

set rs = cn.Execute("SELECT * FROM eventi WHERE dataevento = '#" & data & "#'")

[yoyo87]

Come ho scritto ora ho impostato il campo come testo. Ho fatto così dopo aver fatto un po' di ricerche nel Forum