DB Feld in eine "if...else.." Anweisung einbinden

[Stefan Falz]

<%
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 ""
<%=rs.Fields("Datum")%>""
else
response.write "Das Feld ist false"
end if
%>
<%
On Error Resume Next
rs.MoveNext
n=n+1
loop
end if
%>

Hallo,

probier mal folgendes:

<%
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 rs.Fields("Datum")
         else
            response.write "Das Feld ist false"
       end if

rs.MoveNext
      n=n+1
   loop
end if
%>

Tschau, Stefan