<% Set rsol = Server.CreateObject("ADODB.Recordset") strQry="SELECT * FROM tblOurListings WHERE lom='1'" rsol.Open strQry, Con, 1 ,3 %>

Select your Criteria