varannan färg

8 svar · 172 visningar · startad av crisse6 10 feb. 2001

crisse6Medlem sedan dec. 20002 526 inlägg

Frågan10 feb. 2001 11:51#1

jag vet att det finns i faq och att ämnet har varit uppe.... men hur gör man nu då för att allt ska funka att få varannan rad när man listar databas i typ grått...?? jag har försökt att göra det, men inte blivit något... här är koden jag vill att det ska bli varannan färg i:

<%
Set Databas = Server.CreateObject("ADODB.Connection")
MdbFilePath = Server.MapPath("kompis.mdb")
Databas.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ= " & MdbFilePath & ";"
Set RS = Databas.execute("SELECT username, kompis FROM kompisar WHERE username = '" & Session ("Username") & "' ")
response.write "Du " & "<br>"
do until RS.EOF
response.write"<b>" & (RS("username") & " är kompis med " & RS("kompis") & "<br>" & "</b>")
RS.MoveNext
loop
%>

pellsäterMedlem sedan aug. 2000526 inlägg

10 feb. 2001 11:54#2

counter = counter + 1
If counter Mod 2 = 0 then
color = "990000"
Else
color = "330000"
End If

detta har jag använt mig av

crisse6Medlem sedan dec. 20002 526 inlägg

10 feb. 2001 12:50#3

men hur ska jag gå till väga för att få det att funka i det skript jag skrivit?

RossifumiMedlem sedan okt. 20001 558 inlägg

10 feb. 2001 13:05#4

Du får använda tables!

Sätt sedan bakgrunds färgen i td till <% = Color %> :)

------------------
"I have to return some video tapes" - Patrick Bateman, American Psycho

Erik JuhlinMedlem sedan maj 200010 687 inlägg

10 feb. 2001 13:09#5

Glöm bara inte #. I Internet Explorer spelar det ingen roll, men i Netscape måste det vara med. Exempel:

<td bgcolor="#<%=color%>">..</td>

------------------
/Erik
www.juhlin.nu /sk8files/ /mp2d/

crisse6Medlem sedan dec. 20002 526 inlägg

10 feb. 2001 13:18#6

alltså... vadå? kan ingen vara lite mer exakt... hur i det skript jag skrev, var jag ska lägga allt för att få fram det?

RossifumiMedlem sedan okt. 20001 558 inlägg

10 feb. 2001 14:29#7

Set Databas = Server.CreateObject("ADODB.Connection")
MdbFilePath = Server.MapPath("kompis.mdb")
Databas.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ= " & MdbFilePath & ";"
Set RS = Databas.execute("SELECT username, kompis FROM kompisar WHERE username = '" & Session ("Username") & "' ")

Response.Write "<table width=""300"" border=""0"">" & VbCrLf

Do While Not RS.EOF

counter = counter + 1
If counter Mod 2 = 0 then
color = "990000"
Else
color = "330000"
End If

Response.Write "<tr>" & VbCrLf
Response.Write "<td bgcolor=""#" & Color & """><b>" & RS("username") & "</b> är kompis med <b>" & RS("kompis") & "</b></td>" & VbCrLf
Response.Write "</tr>" & VbCrLf

RS.MoveNext
Loop

Response.Write "</table>"

Med risk för en massa fel, skrev bara ur huvudet :)

------------------
"I have to return some video tapes" - Patrick Bateman, American Psycho

[Redigerat av Rossifumi den 10 feb 2001]

crisse6Medlem sedan dec. 20002 526 inlägg

10 feb. 2001 14:38#8

gött!

det funkar!
det verkar inte ha varit något drickande igår för dig? (tänker på att du tänker väldigt klart :e )

RossifumiMedlem sedan okt. 20001 558 inlägg

10 feb. 2001 14:41#9

Nope, var barnvakt :e

------------------
"I have to return some video tapes" - Patrick Bateman, American Psycho