21. december 2004 - 18:58Der er
5 kommentarer og 1 løsning
Problemer med at farve en tekst rød hvis fyldt
Hej jeg skal have lavet en tekst rød hvis der er nok folk der har meldt sig til en event i en kalender på en specifik dag:
De forskellige brugere har nogle gruppenumre og der er et forskelligt max antal for hver gruppe:
Jeg har forsøgt sådan her men får fejl:
---------------------------------------------------- dim talRoedt
Select Case Session("gruppe") case 6 talRoedt = 25 case 7 talRoedt = 25 case 8 talRoedt = 25 case 9 talRoedt = 25 case 10 talRoedt = 25 case 11 talRoedt = 25 case 13 talRoedt = 25 case 15 talRoedt = 25 case 16 talRoedt = 25 case 19 talRoedt = 25 end select
roedTekstSQL = "SELECT dte,Count(id) as antalRoed from yearlycal WHERE year(dte) = " & year(dtCurViewMonth) &" AND month(dte)= " & month(dtCurViewMonth) &" AND gruppe= '" & session("gruppe")& "' GROUP by dte" set roedTekst = my_conn.Execute(roedTekstSQL)
linje 226>> If roedTekst("antalRoed") = talRoedt and Not roedTekst.EOF Then sFontColor = "#FF0000" Else sFontColor = "#FFFFFF" End If -------------------------------------------------------
Støv, fibre og metalliske partikler kan påvirke både uptime, levetid og driftssikkerhed. Derfor arbejder flere datacentre systematisk med contamination control.
roedTekstSQL = "SELECT dte,Count(id) as antalRoed from yearlycal WHERE year(dte) = " & year(dtCurViewMonth) &" AND month(dte)= " & month(dtCurViewMonth) &" AND gruppe= '" & session("gruppe")& "' GROUP by dte" set roedTekst = my_conn.Execute(roedTekstSQL)
If roedTekst("antalRoed") = session("tal") and Not roedTekst.EOF Then sFontColor = "#FF0000" Else sFontColor = "#FFFFFF" End If
men det er det samme.... og jeg får samme fejl!
nogle der kan se hvad den der fejl '80020009 går ud på??
roedTekstSQL = "SELECT dte,Count(id) as antalRoed from yearlycal WHERE year(dte) = " & year(dtCurViewMonth) &" AND month(dte)= " & month(dtCurViewMonth) &" AND gruppe= '" & session("gruppe")& "' GROUP by dte" set roedTekst = my_conn.Execute(roedTekstSQL)
If Not roedTekst.EOF Then if CInt(roedTekst("antalRoed")) = CInt(session("tal")) then sFontColor = "#FF0000" Else sFontColor = "#FFFFFF" End If end if
Jeg er ved at lave siden sammen med lllund.... jeg har prøvet at implementere koden, men den virker stadig ikke. hvis jeg prøver at lave en response.write(roedTekst("antalRoed")) viser den kun een. Den tæller kun op en gang. Jeg tror det er noget med sql sætningen, men jeg er ik sikker..
roedTekstSQL = "SELECT dte,Count(id) as antalRoed from yearlycal WHERE year(dte) = " & year(dtCurViewMonth) &" AND month(dte)= " & month(dtCurViewMonth) &" AND gruppe= '" & session("gruppe")& "' GROUP by dte" response.write roedTekstSQL &"<br>" set roedTekst = my_conn.Execute(roedTekstSQL)
If Not roedTekst.EOF Then if CInt(roedTekst("antalRoed")) = CInt(session("tal")) then sFontColor = "#FF0000" Else sFontColor = "#FFFFFF" End If end if
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
