Public Function CopyString(ByRef strTo, ByVal strFrom)

  strTo = strFrom
  
End Function

##</code><code>##

<%@ Language='VBScript' %>

<%
  Dim strTo
  Dim strFrom
      strFrom = "This is my test string"

  Dim objDLLTest
  Set objDLLTest = Server.CreateObject("myTest.myClass")
  objDLLTest.CopyString strTo, strFrom
%>

<%=strTo%>

##</code><code>##

<%@ Language='PerlScript' %>

<%
  my $to;
  my $from = "This is my test string";

  my $DLLObject = $Server->CreateObject("myTest.myClass");
  $DLLObject->CreateBarChart($to, $from);
%>

<%=$to?"It is set":"It is not set"%><br>
<%=$to%>