this is what i got so far, the error lies in calling the other functions from the other Scripting languages. this is what i got so far...
<% @LANGUAGE="JScript" %>
<% RSDispatch %>
<!--#INCLUDE FILE="C:/WinScript/_ScriptLibrary/RS.ASP"-->
<SCRIPT runat="Server" LANGUAGE="JavaScript">
function JSEval() {eval(document.getElementById("EJS").innerText);}
var public_description = new MyServerMethods();
function MyServerMethods()
{
this.JSEval = JSEval();
this.VBExec = VBExec()
this.PSEval = &PSEval;
}
</script>
<html><head><title>Test Environment</title>
</head><body bgcolor="black" text="ffffff">
<h1>For PhantomX Developers</h1>
<input type="button" onclick="IRunVBS()" value="Execute VBScript">
<textarea id="EVBS"></textarea><br>
<input type="button" onclick="IRunPerl()" value="Eval PerlScript">
<textarea id="EPS"></textarea><br>
<input type="button" onclick="IRunJS()" value="Eval JScript">
<textarea id="EJS"></textarea>
<SCRIPT LANGUAGE="JavaScript" src="C:/WinScript/_ScriptLibrary/RS.HTM">
</script>
<SCRIPT LANGUAGE="JavaScript">
RSEnableRemoteScripting("C:/WinScript/_ScriptLibrary")
</script>
</body>
<script runat="Server" language="VBScript">
dim ObjScript : ObjScript = document.getElementById("EVBS").innerText
Public Function VBExec()
Execute(ObjScript) : End Function
</script>
<script runat="Server" language="PerlScript">
my $ObjScript = $window->document->getElementById("EPS")->innerText;
sub PSEval {eval($ObjScript);}
</script>
<script language="PerlScript">
use Win32::OLE;
my $script = Win32::OLE->new('ScriptControl');
sub IRunPerl {
$script->{'Language'} = "PerlScript";
$ObjScript = $window->document->getElementById("EPS")->innerText;
$script->AddCode("$ObjScript");
$script->run();
}
sub IRunVBS {
$script->{'Language'} = "VBScript";
$ObjScript = $window->document->getElementById("EVBS")->innerText;
$script->AddCode("$ObjScript");
$script->run();
}
sub IRunJS {
$script->{Language} = "JScript";
$ObjScript = $window->document->getElementByID("EJS")->innerText;
$script->AddCode("$ObjScript");
$script->run();
}
</script>
</html>
<% @LANGUAGE="JScript" %>
<% RSDispatch %>
<!--#INCLUDE FILE="C:/WinScript/_ScriptLibrary/RS.ASP"-->
<SCRIPT runat="Server" LANGUAGE="JavaScript">
function JSEval() {eval(document.getElementById("EJS").innerText);}
var public_description = new MyServerMethods();
function MyServerMethods()
{
this.JSEval = JSEval();
this.VBExec = VBExec()
this.PSEval = &PSEval;
}
</script>
<html><head><title>Test Environment</title>
</head><body bgcolor="black" text="ffffff">
<h1>For PhantomX Developers</h1>
<input type="button" onclick="IRunVBS()" value="Execute VBScript">
<textarea id="EVBS"></textarea><br>
<input type="button" onclick="IRunPerl()" value="Eval PerlScript">
<textarea id="EPS"></textarea><br>
<input type="button" onclick="IRunJS()" value="Eval JScript">
<textarea id="EJS"></textarea>
<SCRIPT LANGUAGE="JavaScript" src="C:/WinScript/_ScriptLibrary/RS.HTM">
</script>
<SCRIPT LANGUAGE="JavaScript">
RSEnableRemoteScripting("C:/WinScript/_ScriptLibrary")
</script>
</body>
<script runat="Server" language="VBScript">
dim ObjScript : ObjScript = document.getElementById("EVBS").innerText
Public Function VBExec()
Execute(ObjScript) : End Function
</script>
<script runat="Server" language="PerlScript">
my $ObjScript = $window->document->getElementById("EPS")->innerText;
sub PSEval {eval($ObjScript);}
</script>
<script language="PerlScript">
use Win32::OLE;
my $script = Win32::OLE->new('ScriptControl');
sub IRunPerl {
$script->{'Language'} = "PerlScript";
$ObjScript = $window->document->getElementById("EPS")->innerText;
$script->AddCode("$ObjScript");
$script->run();
}
sub IRunVBS {
$script->{'Language'} = "VBScript";
$ObjScript = $window->document->getElementById("EVBS")->innerText;
$script->AddCode("$ObjScript");
$script->run();
}
sub IRunJS {
$script->{Language} = "JScript";
$ObjScript = $window->document->getElementByID("EJS")->innerText;
$script->AddCode("$ObjScript");
$script->run();
}
</script>
</html>