<% set conn = server.createObject("ADODB.connection") conn.open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\") & "\data\NothingToIt.mdb;UID=;PWD=;" Set RS=server.createobject("ADODB.recordset") SQLstr = "SELECT * FROM users" RS.open SQLstr, conn ,2 while not rs.eof response.write "yes " rs.movenext wend for each sessprop in session.contents if session.contents(sessprop) <> "" then SQL = SQL & " or class_id = " & sessprop 'response.write ("Item # "& sessprop &"Product Item Number " & Session.Contents(SessProp) & " -
") end if next rs.close %>