<% set studentinstance = CreateStudent() if not isnull(studentinstance) then Response.write("StudentId:"&studentinstance.StudentId&"<Br/>") Response.write("StudentName:"&studentinstance.StudentName&"<Br/>") end if Function CreateStudent() set stud = new Statudent stud.StudentId=123 stud.StudentName="Eric liu" set CreateStudent=stud End Function Class Statudent private id private name public property let StudentId(id_) id=id_ end property public property get StudentId StudentId=id end property public property let StudentName(name_) name=name_ end property public property get StudentName StudentName=name end property End Class %>