<%@ CodePage="65001" %>
<%
Response.Buffer = EW_RESPONSE_BUFFER
%>
<!--#include file="ewcfg.asp"-->
<!--#include file="aspfn.asp"-->
<!--#include file="userfn.asp"-->
<%
Dim csession
Set csession = New cewsession
Call csession.Page_Main
Set csession = Nothing

'
' Page class for session
'
Class cewsession

	' Page ID
	Dim PageID

	' Project ID
	Dim ProjectID

	' Page object name
	Dim PageObjName

	' Page name
	Function PageName()
		PageName = ew_CurrentPage()
	End Function

	' Page URL
	Function PageUrl()
		PageUrl = ew_CurrentPage() & "?"
	End Function

	' Initialize
	Private Sub Class_Initialize()
		PageID = "session"
		ProjectID = "{8003004D-83C2-4A95-B99C-604B4C198F71}"
		PageObjName = "session"
	End Sub

	' Main
	' Uncomment '** for database connectivity / Page_Loading / Page_Unloaded server event
	Sub Page_Main()

		'**Set Conn = ew_GetConn(0)
		' Global Page Loading event (in userfn*.asp)
		'**Call Page_Loading

		Session("EW_LAST_REFRESH_TIME") = ew_StdCurrentDateTime()
		Response.Write ew_CreateToken()

		' Global Page Unloaded event (in userfn*.asp)
		'**Call Page_Unloaded
		' Close connection
		'**Call ew_CloseConn

	End Sub
End Class
%>