<% session("lession")=request.querystring("les") application("total")=0 session("n")=0 dim t,t1 dim temp dim a Set Conn = Server.CreateObject("ADODB.Connection") DSNtest="DRIVER={Microsoft Access Driver (*.mdb)}; " DSNtest=dsntest & "DBQ=" & Server.MapPath("gracious.mdb") Conn.Open DSNtest set rs = Conn.execute("select * from marks where username='"&session("iden")&"'") 'b= not rs.eof 'if (b=true) then 'if session("iden")="" then 'response.write"           Session expired please login " %> <% response.redirect "main1.asp" %>