<% MyFile = Server.MapPath("/database/houseview.mdb") Set DataConnection = Server.CreateObject("ADODB.Connection") DataConnection.ConnectionTimeout = 20 DataConnection.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & MyFile & ";" Set cmdDC = Server.CreateObject("ADODB.Command") cmdDC.ActiveConnection = DataConnection SQL2 = "SELECT * FROM groupemails WHERE grouping = 1" cmdDC.CommandText = SQL2 Set RecordSet2 = Server.CreateObject("ADODB.Recordset") RecordSet2.Open cmdDC, , 2, 2 If RecordSet2.BOF AND RecordSet2.EOF Then Response.Write("not found") Else Response.Write("found it") End if RecordSet2.Close Set RecordSet2 = Nothing Set cmdDC = Nothing DataConnection.Close Set DataConnection = Nothing %>