Problems With Global.asax in VB

[Daniel Friend]

I am trying to add the following as my global.asax file in vb. I am getting
errors like crazy. They are as follows

* Error 1 There can be only one 'application' directive.
* Error 4 Validation (ASP.Net): This attribute name must be followed by an
equal (=) sign and a value. If the value is in quotation marks, the
quotation marks must match.
* Error 5 Validation (ASP.Net): Attribute 'Implements' is not a valid
attribute of element 'Application'.
* Error 6 Validation (ASP.Net): Attribute 'Interface' is not a valid
attribute of element 'Application'.

Please help me get this working

Thanks,

Dan

GLOBAL.ASAX
<%@ Application %>
<%@ Implements
Interface="CuteSoft.Chat.IHttpApplicationConnectio nStringProvider" %>
<%@ Implements Interface="CuteSoft.Chat.IHttpApplicationUserAdapt er" %>
<%@ Implements Interface="CuteSoft.Chat.IHttpApplicationDataProvi der" %>
<%@ Implements Interface="CuteSoft.Chat.IHttpApplicationSupportLo gin" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.SqlClient" %>
<%@ Import Namespace="CuteSoft.Chat" %>

<Script runat=server Language=VB>

#Region " IHttpApplicationConnectionStringProvider Members "
'Step 1: Let CuteChat know your databse connection string
Public Function GetConnectionString(ByVal user As
CuteSoft.Chat.UserIdentity) As String Implements
CuteSoft.Chat.IHttpApplicationConnectionStringProv ider.GetConnectionString
'Return
System.Configuration.ConfigurationSettings.AppSett ings("ConnectionString")
Return "NOT IMPLEMENTED"
End Function

#End Region
#Region " IHttpApplicationUserAdapter Members "
'Step 2: Let CuteChat know who has logged in the website
Public Function GetUserUniqueName() As String Implements
CuteSoft.Chat.IHttpApplicationUserAdapter.GetUserU niqueName
'If Not Context.Request.IsAuthenticated Then
' Return Nothing
'End If

''email
'Return Context.User.Identity.Name
Return "NOT IMPLEMENTED"
End Function

Public Function GetUserIdentity() As CuteSoft.Chat.UserIdentity
Implements CuteSoft.Chat.IHttpApplicationUserAdapter.GetUserI dentity
Dim un As String = GetUserUniqueName()
If un Is Nothing Then
Return CuteSoft.Chat.UserIdentity.CreateNull()
End If

Return New CuteSoft.Chat.UserIdentity(un, Nothing,
Context.Request.UserHostAddress)
End Function

#End Region
</Script>

[Walter Wang [MSFT]]

Hi Dan,

Thank you for posting.

From your post, my understanding on this issue is: you're trying to
implement some interfaces in the application class. If I'm off base, please
feel free to let me know.

You can place the application class in a separate file and put it in the
app_code folder, sample code:

Imports System.Web

Public Class YourGlobalClass
Inherits HttpApplication
Implements IFoo

End Class
And edit Global.asax as follows:

<%@ Application Language="VB" Inherits="YourGlobalClass" %>

Please let me know if you have any other concerns, or need anything else.

Regards,

Walter Wang
Microsoft Online Community Support
==================================================

When responding to posts, please "Reply to Group" via your newsreader so
that others may learn and benefit from your issue.

==================================================
This posting is provided "AS IS" with no warranties, and confers no rights.