<%
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
'if not session("iden")="" then
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 "main.asp"
%>