% Response.Buffer = True Response.Expires = 0 database = "..\database\morrislevin.mdb" %> <% ' *** for not using global.asa *** accessdb = server.mappath(database) strconn = "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" & accessDB & ";" Set rs=Server.CreateObject("adodb.RecordSet") Set conn=Server.CreateObject("adodb.Connection") 'conn.open session ("morris") conn.open strconn Q = "Select [JobTitle],[JobOpeningID],[JobLocation] From [tblJobs] Group by [JobTitle],[JobLocation],[JobOpeningID] Order by [JobTitle]" rs.open Q, conn, adOpenDynamic if not rs.eof and not rs.bof then recFound = true else recFound = false end if %>