errore su calendario

[Starky]

Ciao a tutti,

non riesco a capire l'errore che viene fuori quando carico questa pagina.

Si tratta di un calendario eventi che in locale non genera errore mentre sul server si !!

Non riesco a capire il perchè!!

questa è la parte incriminata e la riga che da errore è evidenziata in rosso

<%
Set RSEVENT = Server.CreateObject("ADODB.RecordSet")
RSEVENT.Open "SELECT Date FROM Events GROUP BY Date", Conn, 1, 3

'Do while NOT RSEVENT.EOF
rsdate = RSEVENT("Date") 

If (Day(rsdate) = dateCounter) AND (Month(rsdate) = CInt(navmonth)) AND (Year(rsdate) = CInt(navyear)) Then%>
					
<a href="eventi.asp?date=<%=dateSelect%>" target="top
<%=dateCounter%>

<%Else%>
<span class="nero"><%=dateCounter%></span>
<%End If

'RSEVENT.movenext
'Loop
RSEVENT.close					
%>

Dove sto sbagliando??

[GudFella]

qual'è l'errore?
io visualizzo correttamente la pagina
(apparte che se clicchi su di un giorno nel calendario carica l'intera pagina nel frame del calendario)

[Starky]

Allora,
ho risolto il problema dell'errore

Solo che ora voglio fare in modo che il giorno che contiene un evento sia cliccabile e senza il foglietto mentre gli altri dovrebbero rimanere non cliccabili ....

ci provo con questo codice ...

<td height="17" valign="top">
<a href="eventi.asp?date=<%=dateSelect%>" target="_top">
<%=dateCounter%>
<font face="Verdana" size="1">

<%
Set RSEVENT = Server.CreateObject("ADODB.RecordSet")
RSEVENT.Open "SELECT Date FROM Events GROUP BY Date", Conn, 1, 3

Do while NOT RSEVENT.EOF
rsdate = RSEVENT("Date")
If (Day(rsdate) = dateCounter) AND (Month(rsdate) = CInt(navmonth))
AND (Year(rsdate) = CInt(navyear)) Then%>



<%If RSBODY("Event_Display") = True Then%>
<%=RSEVENT("Category")%>
<%Else%>
[img]evento.gif[/img]
<% End If

End If
RSEVENT.movenext
Loop
RSEVENT.close
%>

</font></a></td>

[GudFella]

if giorno_contiene_evento then
response.write "" & Giorno_mese & ""
else
response.write Giorno_mese
end if

[Starky]

Esatto GudFella ... ho fatto un ragionamento così
guarda

<td valign="top">
<a href="eventi.asp?date=<%=dateSelect%>" target="_top">
<%=dateCounter%>

<%
Set RSEVENT = Server.CreateObject("ADODB.RecordSet")
RSEVENT.Open "SELECT Date FROM Events GROUP BY Date", Conn, 1, 3
Do while NOT RSEVENT.EOF
rsdate = RSEVENT("Date")
If (Day(rsdate) = dateCounter) AND (Month(rsdate) = CInt(navmonth))
AND (Year(rsdate) = CInt(navyear)) Then%>



<%=dateCounter%>
</font></a>
					
<%
End If
RSEVENT.movenext
Loop
RSEVENT.close
%>

</td>

solo che quando il giorno ha un evento viene fuori 2 volte il numero ....

[GudFella]

<td valign="top">
<%
Set RSEVENT = Server.CreateObject("ADODB.RecordSet")
RSEVENT.Open "SELECT Date FROM Events GROUP BY Date", Conn, 1, 3
Do while NOT RSEVENT.EOF
	rsdate = RSEVENT("Date")
	If (Day(rsdate) = dateCounter) AND (Month(rsdate) = CInt(navmonth)) AND (Year(rsdate) = CInt(navyear)) Then
		response.write "" & dateCounter & ""
	else
		response.write "" & dateCounter & ""
	End If
	RSEVENT.movenext
Loop
RSEVENT.close
%>
</td>

[Starky]

esce una roba stranissima VVoVe:

[GudFella]

vengono scritti tutti i giorni su di una sola riga?

[Starky]

vengono ripetuti i numeri di ogni giorno per 5 volte

[Starky]

non ho proprio capito perchè scrivendo così mi visualizza sempre una marea di numeri!!

<td valign="top" class="nero">
<%
Set RSEVENT = Server.CreateObject("ADODB.RecordSet")
RSEVENT.Open "SELECT Date FROM Events GROUP BY Date", Conn, 1, 3
Do while NOT RSEVENT.EOF
rsdate = RSEVENT("Date")
If (Day(rsdate) = dateCounter) AND (Month(rsdate) = CInt(navmonth))
AND (Year(rsdate) = CInt(navyear)) Then%>



<%=dateCounter%>
<%else%>
<%=dateCounter%>
					
<%
End If
RSEVENT.movenext
Loop
RSEVENT.close
%>

</td>

in fondo ho messo l'if ...!
se la data contiene un evento mi fai vedere il numerino così altrimenti me lo fai vedere così ... :master: