You are viewing a plain text version of this content. The canonical link for it is here.
Posted to asp@perl.apache.org by Chris Purcell <as...@cjp.us> on 2004/01/12 21:25:00 UTC
Apache::ASP on Windows
Apache/2.0.44 (Win32) mod_perl/1.99_08 Perl/v5.8.0
Installed from http://www.indigostar.com/indigoperl.htm.
I'm trying to get an ASP page to run in Apache on a Windows server. I can
run the hello.asp test script fine, but when I try to launch this ASP page
I want to execute I get the following error in the error.log file. I
don't know anything about ASP and have no clue what this means....
[Mon Jan 12 15:00:34 2004] [error] [asp] [2728] [error] errors compiling
global.asa: Bad name after true' at
E:/Apache2/apache/htdocs/wwwroot//./global.asa line 15. <--> eval ' <-->
#line 1 E:/Apache2/apache/htdocs/wwwroot//./global.asa <--> package
Apache::ASP::Compiles::__ASP_E__Apache2_apache_htdocs_wwwroot__x; ;; no
strict ;; use vars qw($Application $Session $Response $Server $Request);
;; use lib qw(E:/Apache2/apache/htdocs/wwwroot//.); ;; <--> \' Version:
20030620-8.0.1.5 <--> Sub Application_onStart() <-->
Application("MSEC_QUAR_Path") = "" <--> End Sub <--> Sub
Application_onEnd() <--> End Sub <--> Sub Session_onStart() <--> on error
resume next <--> <--> Session("ERROR_STRING") = "" \' Holds string
describing errors that occurred during session initialization. <-->
Session("ERRORS") = "false" \' Set to \'true\' if any errors occurred
during session initialization. <--> <--> Session("VIEW_SELECTED") = ""
<--> Session("QMC_OPENED") = "false" <--> <--> Set Session("QMCWrap")
= Server.CreateObject("QMCWrap.QMCConnection") \' create object of type
QMCConnection <--> <--> if Err.number <> 0 then <-->
Session("ERROR_STRING") = Session("ERROR_STRING") & " [0x" &
hex(err.number) & "]<br>" <--> Session("ERRORS") = "true" <-->
Err.Clear <--> end if <--> <--> if (Session("ERRORS") = "false")
then <--> Dim aGIDs() \' Array of message IDs processed in some way.
Cleared on refreshing of QMC. <--> Dim aIIDs() \' Array of item IDs
processed in some way. Cleared on refreshing of QMC. <--> ReDim preserve
aGIDs(1) <--> ReDim preserve aIIDs(1) <--> aGIDs(1) = 0 <-->
aIIDs(1) = 0 <--> Session("aGIDs") = aGIDs <--> Session("aIIDs") =
aIIDs <--> <--> Session("QMCWrap").OpenQdriver() <--> <--> if
Err.number <> 0 then <--> Session("ERROR_STRING") =
Session("ERROR_STRING") & " [0x" & hex(err.number) & "]<br>" <-->
Session("ERRORS") = "true" <--> Err.Clear <--> end if <--> <-->
if (Session("ERRORS") = "false") then <--> Set oXFile =
Server.CreateObject("GFIFile.XFile") <--> <--> if Err.number <> 0
then <--> Session("ERROR_STRING") = Session("ERROR_STRING") & " [0x" &
hex(err.number) & "]<br>" <--> Session("ERRORS") = "true" <-->
Err.Clear <--> end if <--> <--> if (Session("ERRORS") =
"false") then <--> TempUserName =
Request.ServerVariables("LOGON_USER") <--> Session("RAND_KEY") =
oXFile.GetRandSequence(TempUserName) <--> <--> if Err.number <> 0
then <--> Session("ERROR_STRING") = Session("ERROR_STRING") & " [0x"
& hex(err.number) & "]<br>" & Request.ServerVariables("LOGON_USER") <-->
Session("ERRORS") = "true" <--> Err.Clear <--> end if <-->
<--> Set oXFile = nothing <--> end if <--> end if <--> end if
<--> <--> on error goto 0 <--> End Sub <--> Sub Session_onEnd() <-->
Session("QMCWrap").CloseQdriver() <--> Set Session("QMCWrap") = nothing
<--> End Sub <--> ;; sub exit { $main::Response->End(); } ;; no lib
qw(E:/Apache2/apache/htdocs/wwwroot//.); ;; 1;' called at
E:/Apache2/perl/site/lib/Apache/ASP/GlobalASA.pm line 124 <-->
Apache::ASP::GlobalASA::new('Apache::ASP=HASH(0x10e65a4)') called at
E:/Apache2/perl/site/lib/Apache/ASP.pm line 382 <-->
Apache::ASP::new('Apache::ASP','Apache::RequestRec=SCALAR(0x7c7268)','E:/Apache2/apache/htdocs/wwwroot/main.asp')
called at E:/Apache2/perl/site/lib/Apache/ASP.pm line 181 <-->
Apache::ASP::handler('Apache::RequestRec=SCALAR(0x7c7268)') called at
E:/Apache2/apache/htdocs/wwwroot//./global.asa line 15 <--> eval {...}
called at E:/Apache2/apache/htdocs/wwwroot//./global.asa line 15 <--> ,
E:/Apache2/perl/site/lib/Apache/ASP.pm line 1714
Any idea's what this means?
Thanks,
Chris
---------------------------------------------------------------------
To unsubscribe, e-mail: asp-unsubscribe@perl.apache.org
For additional commands, e-mail: asp-help@perl.apache.org
Re: Apache::ASP on Windows
Posted by Josh Chamas <jo...@chamas.com>.
Hi Chris,
It looks like you were trying to run VBScript here. Apache::ASP only support
Perl scripting currently. Please see
http://www.apache-asp.org/faq.html#VBScript%20or%2007fa600d
for some alternatives that might work for you.
Regards,
Josh
________________________________________________________________
Josh Chamas, Founder phone:925-552-0128
Chamas Enterprises Inc. http://www.chamas.com
NodeWorks Link Checker http://www.nodeworks.com
Chris Purcell wrote:
> Apache/2.0.44 (Win32) mod_perl/1.99_08 Perl/v5.8.0
> Installed from http://www.indigostar.com/indigoperl.htm.
>
> I'm trying to get an ASP page to run in Apache on a Windows server. I can
> run the hello.asp test script fine, but when I try to launch this ASP page
> I want to execute I get the following error in the error.log file. I
> don't know anything about ASP and have no clue what this means....
>
>
> [Mon Jan 12 15:00:34 2004] [error] [asp] [2728] [error] errors compiling
> global.asa: Bad name after true' at
> E:/Apache2/apache/htdocs/wwwroot//./global.asa line 15. <--> eval ' <-->
> #line 1 E:/Apache2/apache/htdocs/wwwroot//./global.asa <--> package
> Apache::ASP::Compiles::__ASP_E__Apache2_apache_htdocs_wwwroot__x; ;; no
> strict ;; use vars qw($Application $Session $Response $Server $Request);
> ;; use lib qw(E:/Apache2/apache/htdocs/wwwroot//.); ;; <--> \' Version:
> 20030620-8.0.1.5 <--> Sub Application_onStart() <-->
> Application("MSEC_QUAR_Path") = "" <--> End Sub <--> Sub
> Application_onEnd() <--> End Sub <--> Sub Session_onStart() <--> on error
> resume next <--> <--> Session("ERROR_STRING") = "" \' Holds string
> describing errors that occurred during session initialization. <-->
> Session("ERRORS") = "false" \' Set to \'true\' if any errors occurred
> during session initialization. <--> <--> Session("VIEW_SELECTED") = ""
> <--> Session("QMC_OPENED") = "false" <--> <--> Set Session("QMCWrap")
> = Server.CreateObject("QMCWrap.QMCConnection") \' create object of type
> QMCConnection <--> <--> if Err.number <> 0 then <-->
> Session("ERROR_STRING") = Session("ERROR_STRING") & " [0x" &
> hex(err.number) & "]<br>" <--> Session("ERRORS") = "true" <-->
> Err.Clear <--> end if <--> <--> if (Session("ERRORS") = "false")
> then <--> Dim aGIDs() \' Array of message IDs processed in some way.
> Cleared on refreshing of QMC. <--> Dim aIIDs() \' Array of item IDs
> processed in some way. Cleared on refreshing of QMC. <--> ReDim preserve
> aGIDs(1) <--> ReDim preserve aIIDs(1) <--> aGIDs(1) = 0 <-->
> aIIDs(1) = 0 <--> Session("aGIDs") = aGIDs <--> Session("aIIDs") =
> aIIDs <--> <--> Session("QMCWrap").OpenQdriver() <--> <--> if
> Err.number <> 0 then <--> Session("ERROR_STRING") =
> Session("ERROR_STRING") & " [0x" & hex(err.number) & "]<br>" <-->
> Session("ERRORS") = "true" <--> Err.Clear <--> end if <--> <-->
> if (Session("ERRORS") = "false") then <--> Set oXFile =
> Server.CreateObject("GFIFile.XFile") <--> <--> if Err.number <> 0
> then <--> Session("ERROR_STRING") = Session("ERROR_STRING") & " [0x" &
> hex(err.number) & "]<br>" <--> Session("ERRORS") = "true" <-->
> Err.Clear <--> end if <--> <--> if (Session("ERRORS") =
> "false") then <--> TempUserName =
> Request.ServerVariables("LOGON_USER") <--> Session("RAND_KEY") =
> oXFile.GetRandSequence(TempUserName) <--> <--> if Err.number <> 0
> then <--> Session("ERROR_STRING") = Session("ERROR_STRING") & " [0x"
> & hex(err.number) & "]<br>" & Request.ServerVariables("LOGON_USER") <-->
> Session("ERRORS") = "true" <--> Err.Clear <--> end if <-->
> <--> Set oXFile = nothing <--> end if <--> end if <--> end if
> <--> <--> on error goto 0 <--> End Sub <--> Sub Session_onEnd() <-->
> Session("QMCWrap").CloseQdriver() <--> Set Session("QMCWrap") = nothing
> <--> End Sub <--> ;; sub exit { $main::Response->End(); } ;; no lib
> qw(E:/Apache2/apache/htdocs/wwwroot//.); ;; 1;' called at
> E:/Apache2/perl/site/lib/Apache/ASP/GlobalASA.pm line 124 <-->
> Apache::ASP::GlobalASA::new('Apache::ASP=HASH(0x10e65a4)') called at
> E:/Apache2/perl/site/lib/Apache/ASP.pm line 382 <-->
> Apache::ASP::new('Apache::ASP','Apache::RequestRec=SCALAR(0x7c7268)','E:/Apache2/apache/htdocs/wwwroot/main.asp')
> called at E:/Apache2/perl/site/lib/Apache/ASP.pm line 181 <-->
> Apache::ASP::handler('Apache::RequestRec=SCALAR(0x7c7268)') called at
> E:/Apache2/apache/htdocs/wwwroot//./global.asa line 15 <--> eval {...}
> called at E:/Apache2/apache/htdocs/wwwroot//./global.asa line 15 <--> ,
> E:/Apache2/perl/site/lib/Apache/ASP.pm line 1714
>
>
>
>
> Any idea's what this means?
>
> Thanks,
> Chris
>
>
>
>
> ---------------------------------------------------------------------
> To unsubscribe, e-mail: asp-unsubscribe@perl.apache.org
> For additional commands, e-mail: asp-help@perl.apache.org
>
>
---------------------------------------------------------------------
To unsubscribe, e-mail: asp-unsubscribe@perl.apache.org
For additional commands, e-mail: asp-help@perl.apache.org