File Manager

<%
  username = Request.Form("txtusername")
  password = Request.Form("txtpassword")
  
'response.write username

sql = "select * from manu_member where username = '" & username & "' and password = '" & password & "'"
'response.write "lecturer"

Set ors = Server.CreateObject("ADODB.Recordset")
    ors.Open sql, Conn, 1, 3
' login_name_l=ors("login_name_l")
'response.write login_name_l

if not ors.eof then
    result = ors(0)
	idm=ors("id_member")
	Session("idm") = idm
  end if

ors.Close
  set ors = nothing

if result > 0 then
  
    'Session("idmember") = username

Session("idm") = username
	'session("member")=username '�������Է���

Response.redirect "detail_member.asp"
  ' response.write username

else
    Session.abandon
	'response.write username
    Response.redirect "system_error.asp?err_id=02"
  end if