%@CODEPAGE="1255"%>
<%
'#==============================================================================#
'# Unit Name: index.asp #
'# Author: Valentin Green - The Brand Factory Group Ltd. #
'# Date: 27.07.2006 #
'# Purpose: #
'#==============================================================================#
'# History: #
'# Ver Date Name Description #
'# 1.xx 00.00.00 yyyyyy z #
'# 1.12 22.10.06 valieg Added subpage for Yonit. #
'# 1.11 22.10.06 valieg Changed activex_workaround.js library with swfobject#
'# 1.10 18.10.06 valieg Added the flash movie. #
'# 1.00 27.07.06 valieg Creation of the unit #
'#==============================================================================#
%>
The Brand Factory Group
_
<%
Session("AccessLevel") = ""
' BYPASSING USERNAME- MASTER HARD CODED USER:
dim strTemp, strTemp1
strTemp = request("username")
strTemp1 = request("password")
select case strTemp
case "press"
if strTemp1 = "press" then
Session("AccessLevel") = "full permission"
Session("Name") = "press"
Session.Timeout = 60
if Session("AccessLevel") = "full permission" then
response.Redirect("download.asp")
end if
else
' Not redirected = access denied:
response.write "Wrong user name and/or password ! Please retry !"
end if
case "yonit"
if strTemp1 = "yonit" then
Session("AccessLevel") = "read"
Session("Name") = "yonit"
Session.Timeout = 60
if Session("AccessLevel") = "read" then
response.Redirect("subpages/yonit/index.html")
end if
else
' Not redirected = access denied:
response.write "Wrong user name and/or password ! Please retry !"
end if
case Else
end select
%>