HTML Frames Example

News

<% dim actdate,criteria,tot1 actdate="#" & month(date) & "/" & day(date) & "/" & year(date) & "#" SQL = "SELECT * FROM News WHERE Not(vip) and Not(nascosto) and Descr<>'' and (idate+7>=" & actdate & " OR deadline>=" & actdate & " OR always) ORDER BY idate desc;" Set rec = Server.CreateObject("ADODB.Recordset") rec.CursorLocation = 3 rec.open SQL, oConn dim fcolor tot1=0 DO WHILE NOT rec.eof if (tot1 mod 2)=0 then fcolor="#0000FF" 'if (tot1 mod 2)=1 then fcolor="#FF0000" if (tot1 mod 2)=1 then fcolor="#0000FF" if tot1 = 0 then %>