code for representing "Events" for a custom control in classic ASP

[murtyin]

Hi to All,

I created one ClassLibrary in .Net using VB.Net, which is configured for COM InterOP. In this Library, I created 3 classes and below they are.

(1) Document class: which is having 2 properties
(a) AddPage : function for adding a Page to the Document.
(b) DrawToFile : method which 'll draw the output to the specified file.
(2) Page class: Having a AddLabel function used for adding a Label to the Page.
(3) Label class: having 2 functions and 1 Event.
(a) Text function: which is used to Set or Get the Text of the Label.
(b) TextColor function , which is used to Set or Get the Text of the Label.
(c) TextColorChanged event


Now, In Vb 6, by referencing the TypeLibrary for the .Net ClassLibrary, I am able to code as I required. And the code , what I have written in Vb 6 is below.


Public WithEvents mylabel As ClassLibrary1.Label
Public doc As New Document

Private Sub Command1_Click()
Dim page As page
Set page = doc.AddPage
Set mylabel = page.AddLabel("ceTe Software,Mysore,India", 10, 10, 300, 20)
doc.DrawToFile ("c:\t.pdf")
End Sub

Private Sub Command2_Click()
mylabel_TextColorChanged (Text1.Text)
doc.DrawToFile ("c:\t.pdf")
End Sub

Private Sub mylabel_TextColorChanged(ByVal value As String)
mylabel.TextColor = value
End Sub


My need is to implement the same in Classic ASP.

Anyone, write the code in Classic ASP for me, as I donot know how to do this in Classic ASP.

Thanks in Advance,
Murty