<%
	StartedAt = Timer
	Session.Timeout = 360
    Response.Expires = 0 
    Response.Expiresabsolute = Now() - 1 
    Response.AddHeader "pragma","no-cache" 
    Response.AddHeader "cache-control","private" 
    Response.CacheControl = "no-cache"	
	
	Dim Template
	Dim Schemas
	Dim srvAction, srvOption
	Dim Users	
	Dim SiteAdmin	
	Dim Coders
	Dim HTTP
	Dim Utils
	Dim Menubuilder	
	
	Dim Pages
	Dim CasinoNews
	
	Dim Mail
	Dim Stats
	
	Dim EventManager	
	Dim CasinoManager
	Dim PokerManager
	
	Dim Tournaments
	'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~`

	Set CasinoManager 	= Server.CreateObject("WDK.EventManager")
	Set PokerManager 	= Server.CreateObject("WDK.EventManager")
	Set EventManager	= Server.CreateObject("WDK.EventManager")
	Set SiteAdmin		= Server.CreateObject("WDK.SiteAdmin")
	Set HTTP			= Server.CreateObject("WDK.HTTP")
	Set Coders			= Server.CreateObject("WDK.Coders")
	Set Utils			= Server.CreateObject("WDK.Utils")
	Set Pages			= Server.CreateObject("WDK.Pages")
	Set CasinoNews		= Server.CreateObject("WDK.Pages")
	Set PokerNews		= Server.CreateObject("WDK.Pages")
	Set Mail			= Server.CreateObject("WDK.IMS")
	Set Stats			= Server.CreateObject("WDK.Stats")
	Set MenuBuilder		= Server.CreateObject("WDK.MenuBuilder")
	Set Tournaments		= Server.CreateObject("WDK.MenuBuilder")
	Set Users			= Server.CreateObject("WDK.Users")
	Set Schemas			= Server.CreateObject("WDK.Schemas")
	
	Users.AccountsFile  = Server.MapPath("..\siteadmin\db\accounts.xml")
	Stats.CounterFile = Server.MapPath("..\siteadmin\db\counter.xcnf")
	Pages.FileName = Server.MapPath("..\siteadmin\db\pages.xml")

	EventManager.FileName = Server.MapPath("..\siteadmin\db\events.xml")
	EventManager.ListEventsSchema = "C:\sites\_databases\hosted\schemas\eventmanager\listevents.xslt"
	
	CasinoManager.FileName = "C:\sites\_databases\siteadmin\newscasino.xml"
	CasinoManager.ListEventsSchema = "C:\sites\_databases\hosted\schemas\eventmanager\events_as_links.xslt"
	
	PokerManager.FileName = "C:\sites\_databases\siteadmin\newspoker.xml"
	PokerManager.ListEventsSchema = "C:\sites\_databases\hosted\schemas\eventmanager\events_as_links.xslt"
	
	CasinoNews.FileName = "C:\sites\_databases\siteadmin\pages_gambling.xml"
	CasinoNews.ListPagesSchema = "C:\sites\_databases\hosted\schemas\pages\pages.xslt"
	
	PokerNews.FileName = "C:\sites\_databases\siteadmin\pages_poker.xml"
	PokerNews.ListPagesSchema = "C:\sites\_databases\hosted\schemas\pages\pages.xslt"	
	
	Tournaments.FileName = Server.MapPath("..\siteadmin\db\mb_tournaments.xml")
	Tournaments.MenuItemsSchemaLocation  = Server.MapPath("hosted\schemas\menubuilder\menu_tournaments.xslt")
	
	MenuBuilder.FileName = Server.MapPath("..\siteadmin\db\menubuilder.xml")
	Menubuilder.MenuItemsSchemaLocation  = Server.MapPath("hosted\schemas\menubuilder\menulist.xslt")
	
	Mail.MessagesLocation = Server.MapPath("..\siteadmin\db\mail.xml")
	Mail.MessagesLocation = Server.MapPath("..\siteadmin\db\mail.xml")
	
	Pages.ListPagesSchema = Server.MapPath ("hosted\schemas\pages\pages.xslt")
	Users.ListUSersSchema  = Server.MapPath ("hosted\schemas\users\listusers.xslt")
	
	HTTP.RSSSchemaLocation = Server.MapPath ("hosted\schemas\rss\rss.xslt")

	If Response.IsClientConnected Then
		Session("referer") = Session("referer") & " - " & Request.ServerVariables("HTTP_REFERER")
	End If
		
	srvAction		= Utils.GetValue ("a")
	srvOption		= Utils.GetValue ("o")	
	
	srvUserName		= Utils.GetValue ("username")
	srvPassword		= Utils.GetValue ("password")
	srvUserType		= Utils.GetValue ("usertype")
	srvResellerID	= Utils.GetValue ("rid")
	srvReplicaID	= Utils.GetValue ("id")

	Template = HTTP.FetchPage(Server.MapPath ("t_index.htm"))
	Template = Replace(Template, "{@menucontent}", Pages.GetPage("first.page"))
	
	Select Case srvAction
		Case "pages"
				Template = HTTP.FetchPage(Server.MapPath ("t_index1.htm"))			
				Template = Replace(Template,"{@menucontent}",Pages.GetPage(srvOption))
				Template = Replace(Template,"{@pagetitle}",Pages.GetPageTitle(srvOption))

			
		Case "casinonews"
				Template = HTTP.FetchPage(Server.MapPath ("t_index1.htm"))			
				Template = Replace(Template,"{@menucontent}", CasinoNews.GetPage(srvOption))
				Template = Replace(Template,"{@pagetitle}",CasinoNews.GetPageTitle(srvOption))
				
		Case "pokernews"
				Template = HTTP.FetchPage(Server.MapPath ("t_index1.htm"))			
				Template = Replace(Template,"{@menucontent}", PokerNews.GetPage(srvOption))
				Template = Replace(Template,"{@pagetitle}",PokerNews.GetPageTitle(srvOption))

		Case "403"
			x = Mail.SendMessage("admin","Guest","Unauthorizied Access","0","Unauthorizied access attempt from " & Request.ServerVariables("REMOTE_ADDR") & "<p/>Full referer path:<br/>" & Session("referer"))
			Template = HTTP.FetchPage(Server.MapPath ("t_index1.htm"))
			Template = Replace (Template,"{@menucontent}","<div class=""headline1""><font color='red'>Authorisation failed</font></div><p/>You trying to use expired connection or acceess to system without authentification. Your IP address and some other details logged (see more information in our " & Utils.Href("Privacy Policy", "index.asp?action=pages&option=privacy.page") & ")")		
			
			Case "403.1"
			Template = HTTP.FetchPage(Server.MapPath ("t_index1.htm"))
			Template = Replace (Template,"{@menucontent}","<div class=""headline1""><font color='red'>Not Active Account</font></div><p/>You trying to use access system with non active account. ")
		
		Case "login"			
				Template = HTTP.FetchPage(Server.MapPath ("t_index1.htm"))
				Template = Replace (Template,"{@menucontent}",HTTP.FetchPage(Server.MapPath ("templates\login.htm")))
		
		
		Case "letmein"
			If Users.Authorized(srvUserName, srvPassword) Then
				Session("username") = srvUserName
				Session("password") = srvPassword
				Session("sessionid") = Session.SessionID
				Response.Redirect "members.asp"				
			Else
				Template = HTTP.FetchPage(Server.MapPath ("t_index1.htm"))
				Template = Replace (Template,"{@menucontent}","<div class=""headline1""><font color='red'>Authorisation failed</font></div><p/>Please try again")
			End If					
			
		Case "support"
			Template = HTTP.FetchPage(Server.MapPath ("t_index1.htm"))
			Template = Replace(Template,"{@menucontent}", HTTP.FetchPage(Server.MapPath ("templates/supportform.htm")))

		Case "formsent"
			Template = HTTP.FetchPage(Server.MapPath ("t_index1.htm"))
			Template = Replace(Template,"{@menucontent}","<div class=""headline1"">Request Sent</div><p>Your request was sent successfully and will be processed in next 6-12 hours maximum.</p>")
			
		Case "gamblingnews"
			Template = HTTP.FetchPage(Server.MapPath ("t_index1.htm"))			
			Template = Replace (Template, "{@menucontent}", CasinoManager.ListEvents(20))
			Template = Replace(Template,"{@pagetitle}",CasinoNews.GetPageTitle(srvOption))

			
		Case "mb_tournaments"
			Template = HTTP.FetchPage(Server.MapPath ("t_index1.htm"))
			Template = Replace (Template,"{@text}", "Bingo Tournaments are a daily event in online bingo, with great prizes that include trips to Las Vegas, cash, cruises to the Caribbean and the excitement of competing in daily games. Check out these hot tournaments going on at our preferred online bingo games: <p/>")			
			Dim MenuID
			MenuID = Utils.GetValue("mid")			
			If MenuID = "" Then
				MenuID = "z9bH4HQrzvex"							
			End If
			Template = Replace (Template,"{@menuitems}", Tournaments.GetMenuItems(MenuID))
			Template = Replace(Template,"admin.asp?", "index.asp?")
			Template = Replace (Template,"{@menucontent}", Tournaments.GetMenuContent(MenuID))
			
		Case "contact"
			Template = HTTP.FetchPage(Server.MapPath ("t_index1.htm"))
			Template = Replace (Template, "{@menucontent}", HTTP.FetchPage(Server.MapPath("feedback.htm")))

		Case "supportrequest"
			Template = HTTP.FetchPage(Server.MapPath ("t_index1.htm"))
			tmpBuf = "<b>Full Name:</b> " & Utils.GetValue("fullname") & "<p/>"
			tmpBuf = tmpBuf & "<b>Winner's Email:</b> " & Utils.GetValue("email") & "<p/>"
			tmpBuf = tmpBuf & "<b>Subject:</b> " & Utils.GetValue("subject") & "<p/>"
			tmpBuf = tmpBuf & "<b>Message:</b><br>" & Utils.GetValue("messagetext")
			x = Utils.SendMail("Poker Links <ksenia@bingoentertainment.com>", "ksenia@bingoentertainment.com", "", "pokerlinks.com: Feedback", tmpBuf)	
			Template = Replace(Template,"{@menucontent}", "Your Request was sent.")
	
		Case "membership"
			Template = HTTP.FetchPage(Server.MapPath ("t_index1.htm"))
			Template = Replace (Template, "{@menucontent}", Pages.GetPage("membership.page"))
			Template = Replace (Template, "{@subscription}", HTTP.FetchPage(Server.MapPath ("hosted/templates/subscribeform.htm")))
			
	Case "aboutus"
			Template = HTTP.FetchPage(Server.MapPath ("t_index1.htm"))
			Template = Replace (Template, "{@menucontent}", Pages.GetPage("aboutus.page"))
			Template = Replace (Template, "{@subscription}", HTTP.FetchPage(Server.MapPath ("hosted/templates/subscribeform.htm")))
	
	Case "subscription"
			Template = HTTP.FetchPage(Server.MapPath ("t_index1.htm"))
			
			If Utils.GetValue("email") <> "" And Utils.GetValue("fullname")<>"" Then
				LoginName = Users.FindUserByProperty ("email1", Utils.GetValue("email"))
				
				Select Case srvOption
					Case "subscribe"
					Template = HTTP.FetchPage(Server.MapPath ("t_index1.htm"))						
						If LoginName <> "" Then
							If Users.GetUserDetails (LoginName, "subscriber") = "1" Then 
								Template = Replace (Template,"{@menucontent}","<div class=""headline1""><font color='red'>Already Subscribed!</font></div><p/>Our record indicated, that you have already subscribed to our newsletter.")		
							Else
								x = Users.SetUserDetails (LoginName, "subscriber", "1")
								Template = Replace (Template,"{@menucontent}","<div class=""headline1"">Subscribed!</div><p/>Thank you for taking the time to subscribe to our newsletter.")
							End If
						Else
							CurrentEmail = Utils.GetValue("email")
							CurrentUser = lcase(Trim(Replace(Utils.GetValue("fullname")," ","")))
							CurrentPassword = Utils.GeneratePassword(8)
							CurrentName = Utils.GetValue("fullname")
							
							x = Users.AddUser (CurrentUser, CurrentPassword)
							x = Users.SetUserDetails (CurrentUser, "email1", CurrentEmail)
							x = Users.SetUserDetails (CurrentUser, "firstname",CurrentName)							
							x = Users.SetUserDetails (CurrentUser, "subscriber", "1")
							
							Template = Replace (Template,"{@menucontent}","<div class=""headline1"">Subscribed!</div><p/>Thank you for taking the time to subscribe to our newsletter.")
						End If
				
					Case "unsubscribe"
						If LoginName = "" Then
							Template = Replace (Template,"{@menucontent}","<div class=""headline1""><font color='red'>Failed</font></div><p/>Can't find your account information in our records.")
						Else
							If Users.GetUserDetails (LoginName, "subscriber") = "0" Then 
								Template = Replace (Template,"{@menucontent}","<div class=""headline1""><font color='red'>UnSubscription failed</font></div><p/>Our records indicate, that you not subscribed to our newsletter.")	
							Else
								x = Users.SetUserDetails (LoginName, "subscriber", "0")
								Template = Replace (Template,"{@menucontent}","<div class=""headline1"">UnSubscribed!</div><p/>You have been successfuly unsubscribed from our newsletter.")
							End If
						End If
					Case Else
						Template = Replace (Template,"{@menucontent}","<div class=""headline1""><font color='red'>Failed</font></div><p/>You have not specified what you going to do with your subscription. You have not selected subscribe or unsubscribe action in a list of choices, please " & Utils.Href("go back", Utils.urlBack) & " and try again.")
				End Select
			Else
			Template = Replace (Template,"{@menucontent}","<div class=""headline1""><font color='red'>Failed</font></div><p/>You can't subscribe/unsubscribe if have not entered your email address, please " & Utils.Href("go back", Utils.urlBack) & " and try again.")
			End If
		
		'menubuilder			
		Case Else 
			Dim PageTitle
			If Utils.GetValue("mid")<>"" Then
				Template = HTTP.FetchPage(Server.MapPath ("t_index1.htm"))	
				Template = Replace (Template,"{@menucontent}", MenuBuilder.GetMenuContent(Utils.GetValue("mid")))
				PageTitle = "Poker Links - " & (Menubuilder.GetField (Utils.GetValue("mid"),"title"))
				
				If Left(MenuContent,4) = "http" Then
					Template = Replace(Template, "{@menucontent}", HTTP.GetRSSNews(MenuContent, 10))
				Else
					Template = Replace(Template, "{@menucontent}", MenuContent)
				End If
			Else				
				Template = Replace (Template,"{@menucontent}", EventManager.ListEvents(10))
			End if
	End select
			
	Template = Replace (Template, "{@gambling_news}", CasinoManager.ListEvents(10))
	Template = Replace (Template, "{@poker_news}", PokerManager.ListEvents(10))
	Template = Replace (Template,"{@pagetitle}", PageTitle)
	
	Template = Replace (Template, "{@advert}", Pages.GetPage("ad.page"))
	Template = Replace(Template, "{@date}", Formatdatetime(Date,1))
	Template = Replace(Template, "{@formaction}", Mid(Request.ServerVariables("SCRIPT_NAME"),2))
	Template = Replace(Template, "{@counter}", Stats.Counter)	
	Template = Replace (Template,"{@menuitems}", MenuBuilder.GetMenuItems(Utils.GetValue("mid"))) 
	Template = Replace(Template, "{@text}", "")
	Template = Replace(Template, "{@announcement}", Pages.GetPage("announcement.page"))
		
	Response.Write(Template)
%>