L
LinnAxis
Anyone have any idea why in the excerpt from one of my ASP pages, the
Perlscript code always executes BEFORE the VBScript code?
Even if the VBScript is in an included file
(<!--#include file="../Include/Rep01Code.asp" -->), the Perlscript gets
executed first.
Unfortuantely my Perlscript needs to read Session variables assigned by
my VBScript code.
VBScript is the default lang as well.
Regards,
Jan
<%
Session("FundID")= SetSessionFundID(myFundID)
Session("ReportDate") = SetSessionReportDate(myReportDate)
Response.Write("VBSCRIPT IS EXECUTED NOW")
Response.Write("VBScript ReportDate: " & Session("ReportDate"))
Response.Write("VBScript FundID" & Session("FundID"))
%>
<SCRIPT RUNAT=SERVER LANGUAGE=PERLSCRIPT>
use lib qq(d:\\Site);
use SAMFundV02::SAMFundLib;
my $Fund = $Session->{"FundID"};
my $ReportDate = $Session->{"ReportDate"};
$Response->Write("PERLSCRIPT IS EXECUTED NOW");
$Response->Write("Perlscript FundID:". $Session->{"FundID"}. " ");
$Response->Write("Perlscript ReportDate:" . $Session->{"ReportDate"}
.. " ");
SetRoundingFundAndDate($Fund,$ReportDate);
$Session->{"CurrentNAVBefore"} = FormatNumber(Round('NAV',
GetCurrentNAV($Fund, $ReportDate ,'BEFORE')));
$Session->{"CurrentNAVAfter"} = FormatNumber(Round('NAV',
GetCurrentNAV($Fund, $ReportDate ,'AFTER')));
$Session->{"PrevWeekNAVBefore"} = FormatNumber(Round('NAV',
GetPrevWeekNAV($Fund, $ReportDate ,'BEFORE')));
$Session->{"PrevWeekNAVAfter"} = FormatNumber(Round('NAV',
GetPrevWeekNAV($Fund, $ReportDate ,'AFTER')));
$Session->{"PrevMonthNAVBefore"} = FormatNumber(Round('NAV',
GetPrevMonthEndNAV($Fund, $ReportDate ,'BEFORE')));
$Session->{"PrevMonthNAVAfter"} = FormatNumber(Round('NAV',
GetPrevMonthEndNAV($Fund, $ReportDate ,'AFTER')));
</SCRIPT>
Perlscript code always executes BEFORE the VBScript code?
Even if the VBScript is in an included file
(<!--#include file="../Include/Rep01Code.asp" -->), the Perlscript gets
executed first.
Unfortuantely my Perlscript needs to read Session variables assigned by
my VBScript code.
VBScript is the default lang as well.
Regards,
Jan
<%
Session("FundID")= SetSessionFundID(myFundID)
Session("ReportDate") = SetSessionReportDate(myReportDate)
Response.Write("VBSCRIPT IS EXECUTED NOW")
Response.Write("VBScript ReportDate: " & Session("ReportDate"))
Response.Write("VBScript FundID" & Session("FundID"))
%>
<SCRIPT RUNAT=SERVER LANGUAGE=PERLSCRIPT>
use lib qq(d:\\Site);
use SAMFundV02::SAMFundLib;
my $Fund = $Session->{"FundID"};
my $ReportDate = $Session->{"ReportDate"};
$Response->Write("PERLSCRIPT IS EXECUTED NOW");
$Response->Write("Perlscript FundID:". $Session->{"FundID"}. " ");
$Response->Write("Perlscript ReportDate:" . $Session->{"ReportDate"}
.. " ");
SetRoundingFundAndDate($Fund,$ReportDate);
$Session->{"CurrentNAVBefore"} = FormatNumber(Round('NAV',
GetCurrentNAV($Fund, $ReportDate ,'BEFORE')));
$Session->{"CurrentNAVAfter"} = FormatNumber(Round('NAV',
GetCurrentNAV($Fund, $ReportDate ,'AFTER')));
$Session->{"PrevWeekNAVBefore"} = FormatNumber(Round('NAV',
GetPrevWeekNAV($Fund, $ReportDate ,'BEFORE')));
$Session->{"PrevWeekNAVAfter"} = FormatNumber(Round('NAV',
GetPrevWeekNAV($Fund, $ReportDate ,'AFTER')));
$Session->{"PrevMonthNAVBefore"} = FormatNumber(Round('NAV',
GetPrevMonthEndNAV($Fund, $ReportDate ,'BEFORE')));
$Session->{"PrevMonthNAVAfter"} = FormatNumber(Round('NAV',
GetPrevMonthEndNAV($Fund, $ReportDate ,'AFTER')));
</SCRIPT>