% dim rs,strSQL Set rs = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT * FROM INFO WHERE INFO_TYPE =1 order by DT desc" rs.Open strSQL,conn,1,1 %>