
<html>
<head>

<%Response.Expires


              set conn=server.CreateObject ("adodb.connection")
			 dbpath=server.MapPath ("hwgoktom.mdb")
			connstr="Driver={Microsoft Access Driver (*.mdb)};dbq="&dbpath
			CONN.Open connstr
			if isobject(session("flag")) then
            set rs=server.CreateObject("adodb.recordset")
			sql="select * from user where ע='"&session("flag")("ע")&"'"
			rs.open sql,conn,1,3
			title="𾴵"
			titlemid=""
			titlemidend=""
			titlefoot="ιٱ̳"
			end if   
%>
<%
set RS=nothing  
   Conn.close
   set Conn=nothing
%>
</head>
<body leftmargin="0" bgcolor="#339933">
<br>

              <center><font color="#FFFFFF">ӭ٣</font><br>
              <font color="#FFFFFF"><%Response.Expires
              set conn=server.CreateObject ("adodb.connection")
			 dbpath=server.MapPath ("hwgoktom.mdb")
			connstr="Driver={Microsoft Access Driver (*.mdb)};dbq="&dbpath
			CONN.Open connstr
			if isobject(session("flag")) then
            set rs=server.CreateObject("adodb.recordset")
			sql="select * from user where ע='"&session("flag")("ע")&"'"
			rs.open sql,conn,1,3
			title="𾴵"
			titlemid=""
			titlemidend=""
			titlefoot="ιٱ"
			end if
%> 𾴵<%
response.write(""&session("flag")("")&"")
%><br>
              <%
response.write(""&session("flag")("һεʱ")&"")
%><br>
              <%
response.write(""&session("flag")("")&"")
%>ιٱ <%
set RS=nothing  
   Conn.close
   set Conn=nothing
%></font> <br></center>
              </body></html>