In einer Tabelle 2 versch. Farben benutzen wg. Übersicht

[Ralf]

Hallo,

Ich möchte in einer Tabelle wegen der Übersicht für jede Zeile eine andere Farbe als für die vorgehende Zeile verwenden z.b. Grau und hellgrau. Das schaffe ich auch , aber sobald in meiner Datenbank eine ungerade Zahl an Einträgen auftritt kommt der Fehler : EOF ist True (ist ja auch logisch weil die db.EOF ist True aber ch sage ihm das er zum nächsten Datensatz springen soll) Aber wie kann ich es machen dass er vorher erkennt dass meine db.eof true ist und dann die db schließt ?

Hier mein Code :

<% set db=Server.CreateObject("ADODB.Recordset")
db.open "SELECT * FROM tabelle ORDER BY ID", Application("db"), 3, 1

do until db.eof %>
  <table bgcolor="#b1b1be" width="100%" border="0">
    <tr>
      <td width="2%" ><b><%= db("name") %></b></td>
         </tr>
  </table>

<% db.movenext %>

<table bgcolor="#c0c0ca" width="100%" border="0">
   <tr>
      <td width="2%" ><b><%= db("name") %></b></td>
         </tr>
  </table>

<% db.MoveNext
loop
db.Close%>

Bitte helft mir ich verzweifle schon !!!

Gruß

Ralf

[Cheatah]

Hi,

Ich möchte in einer Tabelle wegen der Übersicht für jede Zeile eine andere Farbe als für die vorgehende Zeile verwenden z.b. Grau und hellgrau. Das schaffe ich auch , aber sobald in meiner Datenbank eine ungerade Zahl an Einträgen auftritt kommt der Fehler : EOF ist True

Du machst den Fehler, zwei Mal exakt das selbe zu machen, nur mit einer anderen Farbe. Behandle statt dessen jede Ergebniszeile identisch, mit nur einem einzigen Code, und wähle abhängig von der Zeilennummer (also davon, ob sie gerade oder ungerade ist) die Farbe aus.

Cheatah

[Stefan]

Hi Ralf,

Versuchs mal so:

<% set db=Server.CreateObject("ADODB.Recordset")
db.open "SELECT * FROM tabelle ORDER BY ID", Application("db"), 3, 1

do until db.eof
   i = i + 1
   if i/2 = fix(i/2) then
      strBgColor = "red"
   else
      strBgColor = "blue"
   end if%>
   <table bgcolor="<%=strBgColor%>" width="100%" border="0">
     <tr>
       <td width="2%" ><b><%= db("name") %></b></td>
     </tr>
   </table>
<% db.movenext
loop
db.Close%>

Gruß
Stefan

[Ralf]

WOW!!!

Klappt super, habe nicht gedacht dass es die Möglichkeit gibt die Geraden und Ungeraden Zeilen bzw. Zahlen anzusprechen !

Vielen Vielen Dank!

Gruß

Ralf

[Cheatah]

Örgl...

if i/2 = fix(i/2) then

...sag bloß, ASP kennt keine Modulo-Rechnung?!

Cheatah

[Stefan]

Hi Cheatah,

Örgl...

if i/2 = fix(i/2) then

...sag bloß, ASP kennt keine Modulo-Rechnung?!

Cheatah

doch ASP kennt auch Modulo:
if i mod 2 = 0 then

Stefan