Hallo zusammen,
zuerst einmal möchte ich mich kurz vorstellen. Ich bin ein Mittvierziger, der sich an ASP versucht. Da ich doch einige Fragen habe, hoffe ich, diese hier stellen zu dürfen und natürlich auch beantwortet zu bekommen.
Komme ich also gleich zu meinem ersten Problem:
Ich habe eine Tabelle. In jeder Zeile soll sich die Hintergrundfarbe ändern.
Das Script sieht folgendermaßen aus:
zuerst einmal möchte ich mich kurz vorstellen. Ich bin ein Mittvierziger, der sich an ASP versucht. Da ich doch einige Fragen habe, hoffe ich, diese hier stellen zu dürfen und natürlich auch beantwortet zu bekommen.
Komme ich also gleich zu meinem ersten Problem:
Ich habe eine Tabelle. In jeder Zeile soll sich die Hintergrundfarbe ändern.
Das Script sieht folgendermaßen aus:
Code:
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Argus online</title>
<!--#include file="../connect/connect.asp" -->
<!--#include file="../css/css.asp" -->
</head>
<body style="text-align:center; background-color:#a0a0a1">
<div id="hauptcontainer">
<div id="kopfzeile">
<!--#include file="../~include/kopfzeile.asp" -->
</div>
<div id="menue_anzeige">
</div>
<div id="navi_top">
<!--#include file="../navigation/navi_top.asp" -->
</div>
<div id="navi_li">
<!--#include file="../navigation/navi_mitfahrzentrale.asp" -->
</div>
<div id="inhalt">
<h2> Mitfahrzentrale </h2>
<h2> -alle Angebote / alle Anfragen-</h2>
<div style="text-align:center">
<img src="../images/Car00011.gif">
</div>
<%
Const farbe1="#a0a0a1"
Const farbe2="#e0a0ce"
Dim farbe
farbe=farbe2
Dim sqlBefehl
sqlBefehl = "SELECT ID, SucheBiete, Datum, Von, Nach, Name, VName, Geb, Zimmer, Handy, Preis FROM Mitfahrzentrale"
Dim RS
set RS = Server.CreateObject ("ADODB.Recordset")
RS.Open sqlBefehl, "Argus"
Response.Write "<table>" & vbCrLf
Response.Write "<tr bgcolor=""#a0a0a1"">" & vbCrLf
Response.Write " <th>Nr.</th>" & vbCrLf
Response.Write " <th>Suche / Biete</th>" & vbCrLf
Response.Write " <th>am</th>" & vbCrLf
Response.Write " <th>von</th>" & vbCrLf %><br /><%
Response.Write " <th>nach</th>" & vbCrLf
Response.Write " <th>Name</th>" & vbCrLf
Response.Write " <th>Vorname</th>" & vbCrLf
Response.Write " <th>Gebäude</th>" & vbCrLf
Response.Write " <th>Zimmer</th>" & vbCrLf
Response.Write " <th>Handy</th>" & vbCrLf
Response.Write " <th>Preis</th>" & vbCrLf
Response.Write "</tr>" & vbCrLf
While Not RS.EOF
Response.Write "<tr bgcolor=farbe; height=""40"">" &vbCrLf
Response.Write " <td>" & _
RS.Fields("ID") & _
"</td>" & vbCrLf
Response.Write " <td>" & _
RS.Fields("SucheBiete") & _
"</td>" & vbCrLf
Response.Write " <td>" & _
RS.Fields("Datum") & _
"</td>" & vbCrLf
Response.Write " <td>" & _
RS.Fields("Von") & _
"</td>" & vbCrLf
Response.Write " <td>" & _
RS.Fields("Nach") & _
"</td>" & vbCrLf
Response.Write " <td>" & _
RS.Fields("Name") & _
"</td>" & vbCrLf
Response.Write " <td>" & _
RS.Fields("VName") & _
"</td>" & vbCrLf
Response.Write " <td>" & _
RS.Fields("Geb") & _
"</td>" & vbCrLf
Response.Write " <td>" & _
RS.Fields("Zimmer") & _
"</td>" & vbCrLf
Response.Write " <td>" & _
RS.Fields("Handy") & _
"</td>" & vbCrLf
Response.Write " <td>" & _
RS.Fields("Preis") & _
"</td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
RS.MoveNext
if farbe=farbe1 then farbe=farbe2 else farbe=farbe1
response.write farbe
wend
Response.Write "</table>" &vbCrLf
Also, der Response.write funktioniert, aber nicht der Farbwechsel in der Tabelle.
Gruß
Roggi
%>
<p>Euer Intranetteam </p>
</div></div></div>
</div>
</div>
</body>
</html>