> in VB(Script) wäre das Me statt this
liefert ebenfalls daß das Anweisungsende erwartet wird.
<% @LANGUAGE = "VBScript" %> <% Class TestInner Public Sub DoSome(ByRef outer) Response.Write outer.Text End Sub End Class
Class TestOuter Dim m_testValue
Public Property Get Text Text = m_testValue End Property
Public Sub CallInner() m_testValue = "Some Text Value" Set obj = New TestInner obj.DoSome Me End Sub End Class
Set obj = New TestOuter obj.CallInner %>
Chris
~~~~~~~~~~~~~~~~~~~~~~~~~~~sponsored by United Planet~~~~~~~~~~~~~~~~~ Ein flexibles CMS für lau? ATTACK! Download Intrexx CRM-Studio Now! http://www.intrexx.com _______________________________________________ Advanced.asp mailing list [EMAIL PROTECTED] http://www.glengamoi.com/mailman/listinfo/advanced.asp