Tom Kruse: DB Feld in eine "if...else.." Anweisung einbinden

Beitrag lesen

Hallo Stefan,

vielen Dank für Deine Hilfe. Dein Code funktioniert.

Allerdings habe ich einen Denkfehler gemacht. Um mein Problem zu lösen muß ich wohl etwas weiter ausholen.

Ich möchte eine unterschiedliche Anzeige, die von dem Inhalt "true" abhängt. D. h. ist der Wert des DB Feldes "true", soll die Anzeige z. B. fett dargestellt werden. Ist der Wert "false", soll die Anzeige "normal" sein.

Ich lasse mir nur die letzten beiden neuesten Einträge anzeigen. Nun kann es sein, daß einer von den Einträgen den Wert "true" hat und der andere Eintrag nicht. Jetzt soll der "true" Eintrag fett sein und der Andere "normal".

(Kurzform: Zeige mir die letzten beiden Einträge an. Hat einer davon den Wert "true", mache die Ausgabe fett. Hat einer davon den Wert "false", mache die Ausgabe normal.)

Anbei der ganze Code, wie ich es mir vorstelle (im Code ist der <font size="1"/"2"> der entscheidende Unterschied). Vielleicht gibt es ja noch eine andere Lösung, um die unterschiedliche Darstellung zu realisieren..?!?!?

<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "Lundbeck News"
SQL = "SELECT * FROM News where Abteilung = 'IM' AND Freigabe = 1 AND Datum<= Date() Order by Datum DESC"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3, 3
rs.MoveFirst
n=0
If rs.eof then
response.write "<i><font size=1>Sorry, zur Zeit sind keine Nachrichten vorhanden.</font></i>"
else
do while (Not rs.eof) AND (n<2)
if rs.Fields("high") = true then
response.write <font size="2"><%=rs.Fields("Datum")%><img border="0" src="../../Lu-D_1/images/Abstand_breite_10.JPG" width="10" height="5"><a href="display/display_news.asp?newsid=<%=rs.Fields("ID")%>"><%=rs.Fields("Ueberschrift")%></a></font><br>
else
response.write "<font size="1"><%=rs.Fields("Datum")%><img border="0" src="../../Lu-D_1/images/Abstand_breite_10.JPG" width="10" height="5"><a href="display/display_news.asp?newsid=<%=rs.Fields("ID")%>"><%=rs.Fields("Ueberschrift")%></a></font><br>
end if%>
<%
On Error Resume Next
rs.MoveNext
n=n+1
loop
end if
%>

Tom