<%
	'*************************************************************************
	'	ASP Scripting:
	'	Filename:			library_session_functions.asp
	'	Written by:			Wilbert Madarang
	'	Date:				January 4, 2003
	'*************************************************************************
	'	Description:		This function consists of a series of functions for
	'						managing the user's sessions information.
	'*************************************************************************
	'	Revision History:	
	'ay111105 Add referring code
	'*************************************************************************
%>
<%
Dim strUserId
Dim strFirstname, strLastname, strEmail, strPassword, strConfirmEmail, strConfirmPassword
Dim strAddress, strCity, strProvince, strPostalCode, strCountry
Dim strSecretPhrase, strSecretPhraseHint
Dim strReferCode
Dim bConfirmedRequiredData, bConfirmedEmail, bConfirmedPassword, bIsEmailAvailable, bHasEmailChanged
Dim bConfirmedReferCodeExists


'**************************************************************
'	FUNCTION:		persistSessionUserData
'	DESCRIPTION:	persists session data for user session
'	PARAMETERS:		none
'	RETURNS:			none
'**************************************************************
'	SIDE-EFFECTS:	Session Variables are Overwritten
'**************************************************************
Function persistSessionUserData()
	Session("MyUserId") = strUserId
	Session("MyEmail") = strEmail
	Session("MyConfirmEmail") = strConfirmEmail
	Session("MyFirstname") = strFirstname
	Session("MyLastname") = strLastname
	Session("MyPassword") = strPassword
	Session("MyConfirmPassword") = strConfirmPassword
	Session("MyAddress") = strAddress
	Session("MyCity") = strCity
	Session("MyProvince") = strProvince
	Session("MyPostalCode") = strPostalCode
	Session("MyCountry") = strCountry
	Session("MySecretPhrase") = strSecretPhrase
	Session("MySecretPhraseHint") = strSecretPhraseHint
'ay111105 Add referring code
	Session("MyReferCode") = strReferCode


	Session("ConfirmedRequiredData") = bConfirmedRequiredData
	Session("ConfirmedEmail") = bConfirmedEmail
	Session("ConfirmedPassword") = bConfirmedPassword
	Session("IsEmailAvailable") = bIsEmailAvailable
	Session("HasEmailChanged") = bHasEmailChanged		'Used only when modifying data
'ay111105 Add referring code
	Session("ConfirmedReferCodeExists") = bConfirmedReferCodeExists
End Function


'**************************************************************
'	FUNCTION:		clearSessionUserData
'	DESCRIPTION:	clears session data for user session
'	PARAMETERS:		none
'	RETURNS:			none
'**************************************************************
'	SIDE-EFFECTS:	Session Variables are Re-initialized
'**************************************************************
Function clearSessionUserData()
	Session("MyUserId") = ""
	Session("MyEmail") = ""
	Session("MyConfirmEmail") = ""
	Session("MyFirstname") = ""
	Session("MyLastname") = ""
	Session("MyPassword") = ""
	Session("MyConfirmPassword") = ""
	Session("MyAddress") = ""
	Session("MyCity") = ""
	Session("MyProvince") = ""
	Session("MyPostalCode") = ""
	Session("MyCountry") = ""
	Session("MySecretPhrase") = ""
	Session("MySecretPhraseHint") = ""
'ay111105 Add referring code
	Session("MyReferCode") = ""
	Session("ConfirmedRequiredData") = ""
	Session("ConfirmedEmail") = ""
	Session("ConfirmedPassword") = ""
	Session("IsEmailAvailable") = ""
	Session("HasEmailChanged") = ""
'ay111105 Add referring code
	Session("ConfirmedReferCodeExists") = ""
End Function


'*************************************************************************
'	FUNCTION:		retrieveSessionUserData()
'	DESCRIPTION:
'	PARAMETERS:
'	RETURNS:
'*************************************************************************
Function retrieveSessionUserData()
	'Retrieve Session Variables
	bConfirmedRequiredData = Session("ConfirmedRequiredData")
	bConfirmedEmail = Session("ConfirmedEmail")
	bConfirmedPassword = Session("ConfirmedPassword")
	bIsEmailAvailable = Session("IsEmailAvailable")
	bHasEmailChanged = Session( "HasEmailChanged" )
'ay111105 Add referring code
	bConfirmedReferCodeExists = Session( "ConfirmedReferCodeExists" )

	strUserId = Session( "MyUserId" )
	strEmail = Session( "MyEmail" )
	strConfirmEmail = Session( "MyConfirmEmail" )
	strFirstname = Session( "MyFirstname" )
	strLastname = Session( "MyLastname" )
	strPassword = Session( "MyPassword" )
	strConfirmPassword = Session( "MyConfirmPassword" )
	strAddress = Session( "MyAddress" )
	strCity = Session( "MyCity" )
	strProvince = Session( "MyProvince" )
	strPostalCode = Session( "MyPostalCode" )
	strCountry = Session( "MyCountry" )
	strSecretPhrase = Session( "MySecretPhrase" )
	strSecretPhraseHint = Session( "MySecretPhraseHint" )
'ay111105 Add referring code
	strReferCode = Session( "MyReferCode" )
End Function


'**************************************************************
'	FUNCTION:		printSessionUserData
'	DESCRIPTION:	prints session data for user session
'	PARAMETERS:		none
'	RETURNS:		none
'**************************************************************
Function printSessionUserData
	Response.Write "<H2>Printing Session User Data</H2>" & vbCrLf
	Response.Write "UserId is " & Session( "MyUserId" ) & "<BR>" & vbCrLf
	Response.Write "Email is:  " & Session("MyEmail") & "<BR>" & vbCrLf
	Response.Write "Firstname is:  " & Session("MyFirstname") & "<BR>" & vbCrLf
	Response.Write "Lastname is:  " & Session("MyLastname") & "<BR>" & vbCrLf
	Response.Write "Password is:  " & Session("MyPassword") & "<BR>" & vbCrLf
	Response.Write "Address is:  " & Session("MyAddress") & "<BR>" & vbCrLf
	Response.Write "City is:  " & Session("MyCity") & "<BR>" & vbCrLf
	Response.Write "Province is:  " & Session("MyProvince") & "<BR>" & vbCrLf
	Response.Write "PostalCode is:  " & Session("MyPostalCode") & "<BR>" & vbCrLf
	Response.Write "Country is:  " & Session("MyCountry") & "<BR>" & vbCrLf
	Response.Write "SecretPhrase is:  " & Session("MySecretPhrase") & "<BR>" & vbCrLf
	Response.Write "SecretPhraseHint is:  " & Session("MySecretPhraseHint") & "<BR>" & vbCrLf
'ay111105 Add referring code
	Response.Write "ReferCode is:  " & Session("MyReferCode") & "<BR>" & vbCrLf

	Response.Write "bConfirmRequiredData is:  " & Session("ConfirmedRequiredData") & "<BR>" & vbCrLf
	Response.Write "bConfirmedEmail is:  " & Session("ConfirmedEmail") & "<BR>" & vbCrLf
	Response.Write "bConfirmedPassword is:  " & Session("ConfirmedPassword") & "<BR>" & vbCrLf
	Response.Write "bIsEmailAvailable is:  " & Session("IsEmailAvailable") & "<BR>" & vbCrLf
	Response.Write "bHasEmailChanged is:  " & Session("HasEmailChanged") & "<BR>" & vbCrLf
'ay111105 Add referring code
	Response.Write "bConfirmedReferCodeExists is:  " & Session("ConfirmedReferCodeExists") & "<BR>" & vbCrLf
End Function
%>