% set cn = server.CreateObject("ADODB.Connection") cn.open StrCon sql = "select * from tnoticies order by tn_data DESC" set rs = cn.execute( sql ) %>