<!--#include file="variables.asp"--> 

<!--#include file="guvenlik.asp"--> 

Temizle(request.form("password"))

<%'Check if the login and password exist. If yes then login otherwise error. 
open_recordset    rs_getAdmin,"select * from admin where login = '"&request.form("login")&"' and password = '"&request.form("password")&"' "  

if rs_getAdmin.eof then 
    open_recordset    rs_getInfo,"select active,id,pending from members where login = '"&request.form("login")&"' and password = '"&request.form("password")&"' "  
    if not rs_getInfo.eof then  
        if rs_getInfo("pending") <> true then 
            session("userid") = rs_getInfo("id") 
            response.redirect "index.asp" 
        else 
            response.redirect "login.asp?error=2" 
        end if 
    else 
        response.redirect "login.asp?error=1" 
    end if 
    rs_getInfo.close 
    set rs_getInfo = nothing 
else     
    session("admin") = "1" 
    response.redirect "admin.asp" 
end if 

rs_getAdmin.close 
set rs_getAdmin = nothing 

conn.close 
set conn = nothing%>

<!--#include file="variables.asp"--> 

<!--#include file="guvenlik.asp"--> 


<%'Check if the login and password exist. If yes then login otherwise error. 
open_recordset    rs_getAdmin,"select * from admin where login = '"&request.form("login")&"' and password = '"&Temizle(request.form("password"))&"' "  

if rs_getAdmin.eof then 
    open_recordset    rs_getInfo,"select active,id,pending from members where login = '"&request.form("login")&"' and password = '"&Temizle(request.form("password"))&"' "  
    if not rs_getInfo.eof then  
        if rs_getInfo("pending") <> true then 
            session("userid") = rs_getInfo("id") 
            response.redirect "index.asp" 
        else 
            response.redirect "login.asp?error=2" 
        end if 
    else 
        response.redirect "login.asp?error=1" 
    end if 
    rs_getInfo.close 
    set rs_getInfo = nothing 
else     
    session("admin") = "1" 
    response.redirect "admin.asp" 
end if 

rs_getAdmin.close 
set rs_getAdmin = nothing 

conn.close 
set conn = nothing%>