<%@ 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%>