% strDBConn4 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("..\..\Database\officers.mdb") & ";" Set application("DbConn4") = Server.CreateObject("ADODB.Connection") application("dbconn4").open strdbconn4 strSQL = "SELECT ClubName,ClubKeyNum FROM Clubdata where clubstatus = 'Active' or (clubstatus='Suspended' or clubstatus='Suspeneded') ORDER BY ClubName" Set rs = application("DBConn4").Execute(strSQL) %>