by Anton Oey (2 Submissions)
Category: Active Server Pages
Compatability: ASP (Active Server Pages)
Difficulty: Unknown Difficulty
Originally Published: Mon 23rd April 2001
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
Using class in ASP instead of COM
VBcoders
Class Records
Dim L_id
Public Property Let UserID(tempUser)
L_id = tempUser
End Property
Public Property Get ID()
ID = L_id
End Property
End Class
%>
Sub clsUsage(ByRef n)
Dim person(), counter
Redim preserve person(n)
For counter = 0 to n
set person(counter) = new Records
With person(counter)
.UserID = counter & 10 & "A"
End with
Next
For counter = 0 to n
With person(counter)
response.Write .ID & "<br>"
End with
Next
For counter = 0 to n
set person(counter) = nothing
Next
End Sub
%>
Response.write "Try Class <br>"
Call clsUsage(20)
%>
