troubleshooting Question

Use a VB.NET class from a classic ASP page

Avatar of jpbivona
jpbivona asked on
Assembly.NET ProgrammingVisual Basic.NET
1 Comment1 Solution315 ViewsLast Modified:
I am trying to create a very simple VB.net Class Library, compile it into a dll, and use its function in an asp page. I am following the following examples:
http://weblogs.asp.net/dneimke/archive/2004/01/31/65330.aspx
http://www.codeproject.com/useritems/dotnetcomponentandasp.asp

MY PROBLEMS:
1) I cannot see it in my registry after compiling and running RegASM /tlb /codebase
2) My asp page code gives an error:
Error Type:
Server object, ASP 0177 (0x800401F3)
Invalid class string
/sar/test.asp, line 7

MY VB CLASS CODE: (Project - MyClass)
Imports System.EnterpriseServices
Imports System.Runtime.InteropServices
Public Class Class1
Public Function Print(ByRef Text As String) As String
Return Text
End Function
End Class

MY ASP PAGE CODE:
Dim Obj
Set Obj = Server.CreateObject("MyClass.Class1")
Response.write Obj.Print("Jeremy")

ASSEMBLY CODE: (AssemblyInfo.vb)
Imports System
Imports System.Reflection
Imports System.EnterpriseServices
Imports System.Runtime.InteropServices

' General Information about an assembly is controlled through the following
' set of attributes. Change these attribute values to modify the information
' associated with an assembly.

' Review the values of the assembly attributes

<Assembly: AssemblyTitle("MyClass")>
<Assembly: AssemblyDescription("")>
<Assembly: AssemblyCompany("")>
<Assembly: AssemblyProduct("MyClass")>
<Assembly: AssemblyCopyright("Copyright ©  2007")>
<Assembly: AssemblyTrademark("")>
<Assembly: AssemblyKeyFile("C:\MyClass.snk")>
<Assembly: ComVisible(False)>
<Assembly: ApplicationName("MyClass")>
<Assembly: ApplicationActivation(ActivationOption.Server)>
<Assembly: ApplicationAccessControl(False, AccessChecksLevel:=AccessChecksLevelOption.ApplicationComponent)>

I have created a strong name for this build.

Can someone please help?
Join the community to see this answer!
Join our exclusive community to see this answer & millions of others.
Unlock 1 Answer and 1 Comment.
Join the Community
Learn from the best

Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.

Andrew Hancock - VMware vExpert
See if this solution works for you by signing up for a 7 day free trial.
Unlock 1 Answer and 1 Comment.
Try for 7 days

”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.

-Mike Kapnisakis, Warner Bros