% Set Conn = Server.CreateObject("ADODB.Connection") conn.Open "DBQ=" & Server.Mappath("db1.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};" set r=server.createobject("adodb.recordset") r.activeconnection=conn a=request.querystring("daf") session("a")=a sqlstmt=" select * FROM dvarim WHERE (daf='"+a+"')" r.Open sqlstmt if r.eof then response.write "