Errore eccezione

[yoyo87]

for i = 1 to giornidelmese(mese,anno)
  data = Cdate(( i & "/" & mese & "/" & anno)) 
  if WeekDay(data,VbMonday) = 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 
	Do while not rs.EOF
  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>") 
	rs.movenext
	Loop
	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,VbMonday) = 7 then Response.Write "</tr>"
next

In rosso la riga dell'errore...

[salvod]

ke tipo di errore ti da?

[yoyo87]

appunto...
(0x80020009)
Eccezione.

[yoyo87]

HelP

[steweb]

Ma il campo dataevento è in formato testo ?

Prova senza usare cDate !!

Ciao Steweb

[yoyo87]

Si è in formato Test, ma se levo CDate non posso determinare se la data è uguale a quella inserita nel Db.

Se io non metto il ciclo Do while...Loop, mi funziona perfettamente solo che mi viene visualizzato solo il primo record nell Db, invece io li vorrei tutti

[steweb]

Si non li visualizzi tutti xchè hai creato una variabile fuori dal ciclo quindi mantiene sempre lo stesso valore !!

Inoltre se è testo molto probabilmente ti restituisce errore xchè è formattato in modo diverso dal sistema ossia considera prima il mese e poi i giorni ...

Inserisci in testa un session.LCID=1040 oppure inverti il formato della data in mese e giorno ..

Cioa steweb

[yoyo87]

Ma se io metto:

Elseif data = Cdate(rs("dataevento")) then 
	  Response.Write("<td id='giorno" & data & "' align='center' class='CalendarioGiornoEvento'>" & i & "</td>") 
	Else

FUNZIONA
Il problema è che non so dove e come mettere il ciclo Loop

[yoyo87]

Ora mi spiego bene

Elseif data = Cdate(rs("dataevento")) then 
	  Response.Write("<td id='giorno" & data & "' align='center' class='CalendarioGiornoEvento'>" & i & "</td>") 
	Else

Con questo codice faccio in modo che se la data corrisponde alla data inserita nel DB, colora la cella di rosso...però ho notato che se nel DB c'è più di una data Codice sopra colora di rosso solo il primo Record...allora ho pensato fare un ciclo Loop:

Elseif data = Cdate(rs("dataevento")) then 
	Do while not rs.EOF
  Response.Write("<td id='giorno" & data & "' align='center' class='CalendarioGiornoEvento'>" & i & "</td>") 
	rs.movenext
	Loop

Ma mi da errore ECCEZIONE alla riga:

Elseif data = Cdate(rs("dataevento")) then

[steweb]

Scusami ! son dovuto fuggire ...

Se devi fare un controllo io fare una funzione esterna del tipo :


Function Check_data(data)
SQL = "SELECT * FROM ---- WHERE data =#"&Data&"#"
Set forRS = cn.Execute(SQL)
IF not forRS.EOF then
if forRS("Data") then
Check_data = true
else
Check_data = false
end if
end if
Set forRS = Nothing
end function


he poi richiami :

....
Elseif Check_data(data)= true then
Response.Write("<td id='giorno" & data & "' align='center' class='CalendarioGiornoEvento'>" & i & "</td>")
Else
Response.Write("<td id='giorno" & data & "' align='center' class='CalendarioGiorno'>" & i & "</td>")
end if


...


Ho fatto di fretta posso aver commesso errori verifica un attimo ...

Data è il parametro che passi alla funzione che verifica la presenza nel DB se è true esiste quindi scrivi quello che ritieni altrimenti NO ...


Ciao Steweb.net