<%
session.timeout=100
if session("A_user")="" or session("A_pass")="" then
response.redirect "admin_login.asp"
response.end
end if

sql="Select * from SL_admin Where A_login='"&session("A_user")&"'"
set rs=Server.CreateObject("ADODB.RecordSet")
rs.open sql,conn,1,1
if not rs.eof then
CA_part=rs("A_part")
CA_a0=split(CA_part,"|")(0)
CA_a1=split(CA_part,"|")(1)
CA_a2=split(CA_part,"|")(2)
CA_a3=split(CA_part,"|")(3)
CA_a4=split(CA_part,"|")(4)
CA_a5=split(CA_part,"|")(5)
CA_a6=split(CA_part,"|")(6)
CA_a7=split(CA_part,"|")(7)
CA_a8=split(CA_part,"|")(8)
CA_a9=split(CA_part,"|")(9)
CA_a10=split(CA_part,"|")(10)
CA_a11=split(CA_part,"|")(11)
rs.close
end if
D_domain=split(split("http://"&LCase(Request.ServerVariables("HTTP_HOST")&Request.ServerVariables("URL")),"http://")(1),"/"&C_admin)(0)
%>