Avatar billede js17dk Nybegynder
17. januar 2001 - 22:30 Der er 3 kommentarer og
1 løsning

Forskellige farver

Hvordan laver jeg forskellige farver på tabeller, altså farven skifter fra gang til gang, unden at bruge loop??
Avatar billede lp Nybegynder
17. januar 2001 - 22:33 #1
hvad bruger du så? altså, vis en smule kode omkring det sted hvor du vil have det.......
Avatar billede js17dk Nybegynder
17. januar 2001 - 22:36 #2
<% If NOT IsNull(Rs(\"Originaltitel\")) THEN %>
        <tr>
          <td width=\"26%\" bgcolor=\"cccccc\"><font color=\"#000000\" size=\"1\" face=\"Tahoma\">Originaltitel:</font></td>
          <td width=\"74%\" bgcolor=\"cccccc\"><font color=\"#000000\" size=\"1\" face=\"Tahoma\"><%= RS(\"Originaltitel\") %></font></td>
        </tr>
<%Else%>
<%
End If
%>
forskellige hver gang, det er jo så denne linie der skal ændres hver gang <td width=\"26%\" bgcolor=\"cccccc\">
Avatar billede lp Nybegynder
17. januar 2001 - 22:42 #3
jeg forstår stadig ikke, den vises jo kun een gang......????

altså du kan gøre sådan, hvis jeg forstår dig en smule:

opret en counter variabel fx......

j

øverst før den første skriver du:
j=0
derefter indsætter du <td width=\"26%\" bgcolor=\"<%if j MOD 2 = 0 then %>#CCCCCC<%else%>#DDDDDD<%end if%>\"><font color=\"#000000\" size=\"1\" face=\"Tahoma\">Originaltitel:</font></td>
efter den skal der så være:

j=j+1

men jeg er altså ret forvirret.....jeg forstår ikke hvorfor det er den td på 26% det er jo ikke en linje over, men venstre del af siden????!?!
Avatar billede mansoor Nybegynder
18. januar 2001 - 08:48 #4
Sådan kan du også gøre det

<%

Dim DataConn
Dim rs
Dim MYSQL
RowCount = 0
   
Set DataConn = Server.CreateObject(\"ADODB.Connection\")
Set rs = Server.CreateObject(\"ADODB.Recordset\")
   
DataConn.Open \"DBQ=\" & Server.Mappath(\"news.mdb\") & \";Driver={Microsoft Access Driver (*.mdb)};\"
   
MYSQL = \"SELECT * FROM nyhed\"
   
rs.Open MYSQL, DataConn

While Not rs.EOF

If RowCount = 2 Then
RowCount = 0
End If

If RowCount = 0 Then
Cellbgcolor = \"#cdcdcd\"
Else
Cellbgcolor = \"#ffffff\"
End If

RowCount = RowCount + 1

%>

<table width=\"250\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">
  <tr bgcolor=\"<%=Cellbgcolor%>\">
    <td><font size=\"2\" color=\"#99FFFF\"><%= rs(\"ID\") %></font></td>
  </tr>
</table>
 
<%
rs.MoveNext
Wend
   
rs.Close
Set rs = Nothing
DataConn.Close
Set DataConn = Nothing
%>
Avatar billede 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.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

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