RE: iis 6.0 error - the complete code

Tech-Archive recommends: Speed Up your PC by fixing your registry

From: Andrew (Andrew_at_discussions.microsoft.com)
Date: 08/21/04 

Date: Sat, 21 Aug 2004 11:13:01 -0700

WebClass1.ASP
<%
Response.Buffer=True
Response.Expires=0

If (VarType(Application("~WC~WebClassManager")) = 0) Then
        Application.Lock
        If (VarType(Application("~WC~WebClassManager")) = 0) Then
                Set Application("~WC~WebClassManager") =
Server.CreateObject("WebClassRuntime.WebClassManager")
        End If
        Application.UnLock
End If

Application("~WC~WebClassManager").ProcessNoStateWebClass
"Project1.WebClass1", _
                Server, _
                Application, _
                Session, _
                Request, _
                Response
%>

This is the source code of Project1.dll (Visual Basic 6.0)

VERSION 5.00
Begin {17016CEE-E118-11D0-94B8-00A0C91110ED} WebClass1
   ClientHeight = 5445
   ClientLeft = 750
   ClientTop = 1425
   ClientWidth = 7320
   _ExtentX = 12912
   _ExtentY = 9604
   MajorVersion = 0
   MinorVersion = 8
   StateManagementType= 1
   ASPFileName = ""
   DIID_WebClass = "{12CBA1F6-9056-11D1-8544-00A024A55AB0}"
   DIID_WebClassEvents= "{12CBA1F5-9056-11D1-8544-00A024A55AB0}"
   TypeInfoCookie = 0
   BeginProperty WebItems {193556CD-4486-11D1-9C70-00C04FB987DF}
      WebItemCount = 0
   EndProperty
   NameInURL = "WebClass1"
End
Attribute VB_Name = "WebClass1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit
Option Compare Text

Private Sub WebClass_Start()
    
    'Write a reply to the user
    With Response
        .Write "<html>"
        .Write "<body>"
        .Write "<h1><font face=""Arial"">WebClass1's Starting
Page</font></h1>"
        .Write "<p>This response was created in the Start event of
WebClass1.</p>"
        .Write "</body>"
        .Write "</html>"
    End With

End Sub
It builds without errors, and runs without errors under iis 4.0.