Notifikationer

Markér alle som læst Log ud

cdc Novice

21. april 2004 - 12:46 Der er 23 kommentarer og
1 løsning

Fontfarve efter hvad der står i tabel

Har nedenstående script, hvordan kan man få den til at lave font i en farve efter hvad der står i tabellen.

det er 3 muligheder i udtrækket; Junior, Dame og Senior i tabellen klasse. Og det er kun farven på fonten der skal laves om:

<%
bgskift=0
SQL = "select * from spillere order by klasse ASC"
Set rs=Conn.Execute(SQL)
do while not RS.EOF
bgskift=bgskift + 1

if bgskift = 2 then
bgskift = 0
end if

if bgskift = 0 then
color="bgcolor='#eeeeee'"
else
color="bgcolor='#ffffff'"
end if
%>
<tr>
<td class="copy" align="center" <%=color%>><input type="checkbox" name="spiller" value="<%=rs("sid")%>"></td>
<td class="copy" <%=color%>><%=rs("spillernavn")%></td>
<td class="copy" <%=color%>><%=rs("klasse")%></td>
</tr>
<%
RS.MoveNext
loop
%>
<%
conn.Close
Set conn = nothing
Set SQLstmt = nothing
%>

Synes godt om

fennec Nybegynder

21. april 2004 - 12:56 #1

<%
if rs("klasse") = "Junior" then
fontColor = "blue"
elseif rs("klasse") = "Dame " then
fontColor = "red"
elseif rs("klasse") = "Senior " then
fontColor = "yellow"
else
'default farve
fontColor = "black"
end if
%>
<tr>
<td class="copy" align="center" <%=color%>><input type="checkbox" name="spiller" value="<%=rs("sid")%>"></td>
<td class="copy" <%=color%> style="color:<%= fontColor %>;"><%=rs("spillernavn")%></td>
<td class="copy" <%=color%> style="color:<%= fontColor %>;"><%=rs("klasse")%></td>
</tr>

Synes godt om

cdc Novice

21. april 2004 - 13:56 #2

Den virker kun på junior

Synes godt om

fennec Nybegynder

21. april 2004 - 13:59 #3

Min fejl.... Der er lige kommet et mellemrum med efter Dame og Senior. Fjer det, så skulle det virke.

Synes godt om

cdc Novice

21. april 2004 - 14:05 #4

samme problem:

<%
bgskift=0
SQL = "select * from spillere order by klasse ASC"
Set rs=Conn.Execute(SQL)
do while not RS.EOF
bgskift=bgskift + 1

if bgskift = 2 then
bgskift = 0
end if

if bgskift = 0 then
color="bgcolor='#eeeeee'"
else
color="bgcolor='#ffffff'"
end if
%>
<%
if rs("klasse") = "Junior" then
fontColor = "blue"
elseif rs("klasse") = "Dame" then
fontColor = "red"
elseif rs("klasse") = "Senior" then
fontColor = "yellow"
else
'default farve
fontColor = "black"
end if
%>

Synes godt om

fennec Nybegynder

21. april 2004 - 14:09 #5

er der et sted det kan ses???

Synes godt om

cdc Novice

21. april 2004 - 14:10 #6

http://www.hillerodgolf.dk/dream/OpretHold_02.asp

Synes godt om

fennec Nybegynder

21. april 2004 - 14:14 #7

prøv lige at udskrive klassen lige inden if sætningen hvor fontColor bliver sat i.

response.write rs("klasse") &"<br>"
if rs("klasse") = "Junior" then

Synes godt om

cdc Novice

21. april 2004 - 14:16 #8

?? ikke forstået

Synes godt om

cdc Novice

21. april 2004 - 14:18 #9

Det ser ikke får godt ud

Synes godt om

cdc Novice

21. april 2004 - 14:19 #10

hedder det: elseif ?

Synes godt om

fennec Nybegynder

21. april 2004 - 14:19 #11

jeg vil bare gerne se hvad rs("klasse") indeholder for den enkelte bruger.

Synes godt om

cdc Novice

21. april 2004 - 14:21 #12

den kommer ikke frem nu efter jeg prøver med fontfarven af en mærkelig årsag men du kan se det her: http://www.hillerodgolf.dk/dream/OpretHold.asp

Synes godt om

fennec Nybegynder

21. april 2004 - 14:29 #13

prøv at gemme rs("klasse") i en variabel.

klasse = rs("klasse")
if klasse = "Junior" then
fontColor = "blue"
elseif klasse = "Dame" then
fontColor = "red"
elseif klasse = "Senior" then
fontColor = "yellow"
else
'default farve
fontColor = "black"
end if

Synes godt om

dr-data Nybegynder

21. april 2004 - 14:30 #14

evt. prøv med
rs_klasse = LCase(rs("klasse"))
if rs_klasse = "junior" then
fontColor = "blue"
elseif rs_klasse = "dame" then
fontColor = "red"
elseif rs_klasse = "senior" then
fontColor = "yellow"
else
'default farve
fontColor = "black"
end if

Synes godt om

cdc Novice

21. april 2004 - 14:31 #15

Sådan, men hvorfor forsvinder min text sidst i cellen hvor der skulle stå junior osv

Synes godt om

cdc Novice

21. april 2004 - 14:31 #16

fennec's virkede

Synes godt om

dr-data Nybegynder

21. april 2004 - 14:32 #17

cool.. nogle gange kikser det når amn benytter rs("noget") mere end 1 gang.. :D

Synes godt om

cdc Novice

21. april 2004 - 14:33 #18

din virkede også dr-data kan jeg se, men er der en der kan forklare mig hvorfor texten forsvinder

Synes godt om

dr-data Nybegynder

21. april 2004 - 14:35 #19

hvordan "forsvinder" ?

Synes godt om

cdc Novice

21. april 2004 - 14:38 #20

Her er orginalen, der står der dame junior senior til sidst efter navnet:
http://www.hillerodgolf.dk/dream/OpretHold.asp

På test siden er det væk:
http://www.hillerodgolf.dk/dream/OpretHold_02.asp

Synes godt om

fennec Nybegynder

21. april 2004 - 14:41 #21

Det er bare noget der sker. Jeg har prøvet at finde ud af det, men er ikke kommet frem til en forklaring. Jeg har dog fundet en løsning når det sker.

Jeg gemmer alle mine data i et array og bruger array'et i scriptet. Det skal dog gemmes i samme rækkefølge som de står i SQL strengen.
Din ville så blive noget i denne retning:

dim MyArr(3)
SQL = "select * from spillere order by klasse ASC"
Set rs=Conn.Execute(SQL)
do while not RS.EOF
MyArr(0) = rs("sid")
MyArr(1) = rs("spillernavn")
MyArr(2) = rs("klasse")

...

rækkefølgen skal bare være den samme som i spillere tabellen.

Synes godt om

cdc Novice

21. april 2004 - 14:46 #22

så er vi der ude hvor jeg ikke kan følge helt med....er jo ikke en haj til det her, hvad mener du med array'et i scriptet?

Synes godt om

fennec Nybegynder

21. april 2004 - 14:50 #23

så dan her:

bgskift=0
dim MyArr(3)
SQL = "select * from spillere order by klasse ASC"
Set rs=Conn.Execute(SQL)
do while not RS.EOF
MyArr(0) = rs("sid")
MyArr(1) = rs("spillernavn")
MyArr(2) = rs("klasse")
bgskift=bgskift + 1

if bgskift = 2 then
bgskift = 0
end if

if bgskift = 0 then
color="bgcolor='#eeeeee'"
else
color="bgcolor='#ffffff'"
end if
%>
<%
if MyArr(2) = "Junior" then
fontColor = "blue"
elseif MyArr(2) = "Dame" then
fontColor = "red"
elseif MyArr(2) = "Senior" then
fontColor = "yellow"
else
'default farve
fontColor = "black"
end if
%>
<tr>
<td class="copy" align="center" <%=color%>><input type="checkbox" name="spiller" value="<%=MyArr(0)%>"></td>
<td class="copy" <%=color%> style="color:<%= fontColor %>;"><%=MyArr(1)%></td>
<td class="copy" <%=color%> style="color:<%= fontColor %>;"><%=MyArr(2)%></td>
</tr>

Synes godt om

cdc Novice

21. april 2004 - 14:58 #24

sådann :o) tak for det

Synes godt om

Ny bruger Nybegynder

Din løsning...

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.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
ASP classic kopiere database fil på server Af bsn i ASP	7	31/10/202610:20	01/11/202620:28
Persits.Upload Af bsn i ASP	9	17/09/202611:37	21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	10	25/06/202622:20	04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS