I've written a COM Object that I cant call one of the methods from an ASP
Page.

I get the Following Error:
Microsoft VBScript runtime (0x800A01AE)
Class doesn't support Automation: 'objMyCoolObject.DoIt'

After I compile the Class I Copy the .DLL over to the Web Server and  issue
the command:
   regsvcs comMyCom.dll
I get the Following Back:
   WARNING: The assembly does not declare an ApplicationAccessControl
Attribute.  Application security will be enabled by default.
Installed Assembly:
       Assembly: comMyCom.dll
       Application: ComMyCom
       TypeLib: comMyCom.tlb

I've included the AssemblyInfo.vb and the comMyCom.vb files.

Any Help would be appreciated.
Thanks,
 Scott<-

AssemblyInfo.vb File
#Region "COM+ Registration details "

'Supply the COM+ application name

<Assembly: ApplicationNameAttribute("ComMyCom")>

<Assembly: ApplicationActivation(ActivationOption.Library)>

'Supply a strong-name assembly

<Assembly: AssemblyKeyFileAttribute("..\\..\\comMyCom.snk")>

comMyCom.vb File

Imports System

Imports System.web.mail

Imports System.EnterpriseServices

Imports System.EnterpriseServices.ActivationOption

Imports System.EnterpriseServices.EventTrackingEnabledAttribute

Imports System.Reflection

Imports System.Runtime.InteropServices

Imports System.Runtime.InteropServices.ClassInterfaceType

' I've Tried the Three Class Declarations all with the same Results

'<ComClass(comSMSvCard.ClassId, comSMSvCard.InterfaceId,
comSMSvCard.EventsId)> _

'Public Class comSMSvCard

'<ClassInterfaceAttribute(ClassInterfaceType.AutoDual)> _

'Public Class comSMSvCard

<TransactionAttribute(TransactionOption.Required)> _

Public Class comSMSvCard

   Inherits EnterpriseServices.ServicedComponent

   Public Const ClassId As String = "6983A5C3-6E8A-46d9-90B3-4426BE69588C"

   Public Const InterfaceId As String =
"5203E497-075F-4f6f-9A25-B697A0C38A6D"

   Public Const EventsId As String = "F871F568-5407-4f34-BF00-1A2BDAEC03F1"

   Public Sub New()

       MyBase.New()

   End Sub

   Public Function Send(ByVal strEmailAddress As String, ByVal
strEmailServer As String) As Integer

       Dim Message As System.Web.mail.MailMessage = New
System.Web.Mail.MailMessage

       Dim myMailServer As System.Web.Mail.SmtpMail

       Dim iIndex As Integer

       Message.To = strEmailAddress

       Message.From = strEmailAddress

       Message.Subject = ""

       myMailServer.SmtpServer = strEmailServer

       Message.Body = "Test"

       myMailServer.Send(Message)

   End Function

End Class