Set Rs3 = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM trad where org=0 AND svarpa='"&rs("id")&"' order by datum desc"
Rs3.Open SQL, Connect, 1, 2
antalsvar=rs3.recordcount
if session("fon")="1" then
Set Rs5 = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM lasta where vem="&session("fid")&" AND trad="&rs("id")&" order by nar desc"
Rs5.Open SQL, Connect, 1, 2
if NOT Rs5.eof then
if CDate(rs5("nar")) > CDate(rs3("datum")) then 'Rad 37
bg="#BBBBBB"
else
bg="#CCCCCC"
end if
else
bg="#BBBBBB"
end if
end if