<%
Response.Buffer = True
'=========================================
'This code is copyright (c) Internet Business Solutions SL, all rights reserved.
'The contents of this file are protect under law as the intellectual property
'of Internet Business Solutions SL. Any use, reproduction, disclosure or copying
'of any kind without the express and written permission of Internet Business
'Solutions SL is forbidden.
'Author: Vince Reid, vince@virtualred.net
%>
<%
if storesessionvalue="" then storesessionvalue="virtualstore"
if SESSION("loggedon") <> storesessionvalue AND trim(request.cookies("WRITECKL"))<>"" AND disallowlogin<>TRUE then
Set cnn=Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.RecordSet")
cnn.open sDSN
sSQL="SELECT adminID FROM admin WHERE adminUser='" & Replace(request.cookies("WRITECKL"),"'","''") & "' AND adminPassword='" & Replace(request.cookies("WRITECKP"),"'","''") & "' AND adminID=1"
rs.Open sSQL,cnn,0,1
if NOT (rs.EOF OR rs.BOF) then
SESSION("loggedon") = storesessionvalue
SESSION("loggedonpermissions") = "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
end if
rs.Close
if SESSION("loggedon") <> storesessionvalue then
sSQL="SELECT adminloginid,adminloginname,adminloginpermissions FROM adminlogin WHERE adminloginname='" & Replace(request.cookies("WRITECKL"),"'","''") & "' AND adminloginpassword='" & Replace(request.cookies("WRITECKP"),"'","''") & "'"
rs.Open sSQL,cnn,0,1
if NOT (rs.EOF OR rs.BOF) then
SESSION("loggedon") = storesessionvalue
SESSION("loggedonpermissions") = rs("adminloginpermissions")
end if
rs.Close
end if
cnn.close
set cnn=nothing
set rs=nothing
end if
if SESSION("loggedon") <> storesessionvalue OR disallowlogin=TRUE then response.redirect "login.asp"
isprinter=false
%>
Admin CMS Content Region
>
<% if NOT isprinter then %>
