%OPTION EXPLICIT%> <% dim rs, sql, L_DispOrder Set rs = Server.CreateObject("ADODB.Recordset") sql= "select * from W_Listing_Details " & _ "where highlight = 1 " & _ "order by L_DispOrder " rs.Open sql,dbconn,1,1 %>