<%

'------ Class eventsBase ------
Class eventsBase
	Public events
	Public captchas
	public function exists_p1(ByVal var_event)
		exists_p1 = eventsBase_exists(me,var_event)
	end function 
	public function existsCAPTCHA_p1(ByVal page)
		existsCAPTCHA_p1 = eventsBase_existsCAPTCHA(me,page)
	end function 
	public function callCAPTCHA_p1(ByRef pageObject)
		eventsBase_callCAPTCHA me,pageObject
	end function 
	Public Function init_eventsBase()
		set events = CreateDictionary()
		set captchas = CreateDictionary()
	end function
end class

Function eventsBase_exists(byref obj, ByVal var_event)
	eventsBase_exists = not IsFalse(asp_array_key_exists(var_event,obj.events))
End Function

Function eventsBase_existsCAPTCHA(byref obj, ByVal page)
	eventsBase_existsCAPTCHA = not IsFalse(asp_array_key_exists(page,obj.captchas))
End Function

Function eventsBase_callCAPTCHA(byref obj, ByRef pageObject)
	if IsEqual(pageObject.pageType,"add") then
		obj.displayCaptchaOnAdd 
	else
		if IsEqual(pageObject.pageType,"edit") then
			obj.displayCaptchaOnEdit 
		else
			if IsEqual(pageObject.pageType,"register") then
				obj.displayCaptchaOnRegister 
			end if
		end if
	end if
End Function


'------ Class class_GlobalEvents extends eventsBase ------
Class class_GlobalEvents
	Public events
	Public captchas
	public function exists_p1(ByVal var_event)
		exists_p1 = eventsBase_exists(me,var_event)
	end function 
	public function existsCAPTCHA_p1(ByVal page)
		existsCAPTCHA_p1 = eventsBase_existsCAPTCHA(me,page)
	end function 
	public function callCAPTCHA_p1(ByRef pageObject)
		eventsBase_callCAPTCHA me,pageObject
	end function 
	Public Function init_class_GlobalEvents()
	set events = CreateDictionary()
	set captchas = CreateDictionary()
		me.events("AfterSuccessfulLogin")=true

	End Function
'	handlers

		
		
		
		
		
		
				' After successful login
Function AfterSuccessfulLogin(username,password,ByRef data)

		
'**********  Send simple email  ************
' do not forget to setup email parameters like From, SMTP server etc
' on 'Security->User login settings' dialog

dim tmpDict
set tmpDict = CreateObject("Scripting.Dictionary")
tmpDict("to")="asonze@yahoo.com"
tmpDict("subject")="Sample subject"
tmpDict("body")="Hello there" & vbcrlf & "Best regards"
set ret=runner_mail(tmpDict)
if not ret("mailed") then
	response.write ret("message")
end if



'**********  Insert a record into another table  ************
' set dal_table=dal.Table("TableName")
' dal_table.Field1="Value1"
' dal_table.Field2="Value2"
' dal_table.Add()



'**********  Redirect to another page  ************
Response.Redirect "anypage.asp"


End Function ' AfterSuccessfulLogin

		
		
		
		
		
		
		
		
		
		
		
		
		
		
		
'	handler wrappers

		
		
		
		
		
		
				function AfterSuccessfulLogin_p3(username,password,ByRef data)
		doAssignmentByRef AfterSuccessfulLogin_p3, AfterSuccessfulLogin(username, password, data)
		end function

		
		
		
		
		
		
		
		
		
		
		
		
		
		
		

'	onscreen events

End Class

%>