<!--#include file="../../inc/kontrola.asp" --> 
<% 
'response.write request.servervariables("SERVER_NAME") & ", " & session("server") & " ," & session("admin_bikestore_id2")
'response.end


'kontrola přihlášení
if instr(request.servervariables("SERVER_NAME"),session("server")) = 0 or session("admin_bikestore_id2") = "" then
	if request.Cookies ("admin_" & session("server"))("admin_" & session("server") & "_id2") = "" then
		Response.Clear
		Response.Redirect "index-kontrola.asp?odhlasit=1"
	else
		'nahrani session z cookies
		session("admin_bikestore_ip") = request.Cookies ("admin_" & session("server"))("admin_" & session("server") & "_ip")
		Session("admin_bikestore_server") = request.servervariables("SERVER_NAME")
		session("admin_bikestore_id2") = request.Cookies ("admin_" & session("server"))("admin_" & session("server") & "_id2")
		session("admin_bikestore") = request.Cookies ("admin_" & session("server"))("admin_" & session("server"))
		session("admin_bikestore_hlavni") = request.Cookies ("admin_" & session("server"))("admin_" & session("server") & "_hlavni")
		session("admin_bikestore_omezeni1") = request.Cookies ("admin_" & session("server"))("admin_" & session("server") & "_omezeni1")
		session("admin_bikestore_omezeni2") = request.Cookies ("admin_" & session("server"))("admin_" & session("server") & "_omezeni2")
		session("admin_bikestore_omezeni3") = request.Cookies ("admin_" & session("server"))("admin_" & session("server") & "_omezeni3")
	end if
End if


'kontrola zruseneho uctu a ip adresy
Set rs = CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM admin WHERE id_admin = " & session("admin_bikestore_id2")
rs.Open strSQL, conn, 1, 1
If rs.EOF then
	'kontrola zruseni uctu
	Response.Clear
	Response.Redirect "index-kontrola.asp?odhlasit=1"
else
	'kontrola IP adresy
	if rs("ip_adresa") <> "" and isnull(rs("ip_adresa")) = false then
		if request.servervariables("REMOTE_ADDR") <> rs("ip_adresa") then
			Response.Clear
			Response.Redirect "index-kontrola.asp?odhlasit=1"
		end if
	end if
	
	'kontrola zmeny
	if rs("zmena") = true then
		Response.Clear
		Response.Redirect "index-kontrola.asp?odhlasit=1"
	end if
End if
rs.Close
conn.Close
 %>