[mono-vb] BC29999 error
Chesko, Ron
ronc@palsnet.info
Wed, 2 Mar 2005 09:39:52 -0600
Hey everyone,
In the midst of moving our current web sites from IIS to Apache 2/mono.
My first crack at this didn't turn out 100%. All of the pages for my
first test site worked except for a comment form. I got the following
error. Line 78 is the offending line according to the output. Source for
the page is below the error.
I'm running the following on Fedora Core 3 with the latest updates (all
installed from up2date or rpms):
mono-winforms-1.0.6-1.novell.9.1
mono-core-1.0.6-1.novell.9.1
mono-devel-1.0.6-1.novell.9.1
mono-web-1.0.6-1.novell.9.1
mono-extras-1.0.6-1.novell.9.1
mono-ikvm-1.0.6-1.novell.9.1
mono-basic-1.0.6-1.novell.9.1
mono-data-1.0.6-1.novell.9.1
mod_mono-1.0.6-1.novell.9.1
xsp-1.0.6-1.novell.9.1
httpd-2.0.52-3.1
Any help is much appreciated. And if I'm posting this in the wrong
place, could someone please point me in the right direction?
Thanks in advance,
Ron
=20
Description: Error compiling a resource required to service this
request. Review your source file and modify it to fix this error.=20
Error message: (0,0) : error : THIS IS STILL ALPHA AND UNSUPPORTED
SOFTWARE, USE AT YOUR OWN RISK. /tmp/48280.vb(78,47) : error BC29999:
Line: 78 Col: 47 (0,0) : error : 78 Token: 261 (0,0) : error
.MonoBASIC.yyParser.yyException: irrecoverable syntax error (0,0) :
error failed: 1 Error(s), 0 warnings =20
Source File:=20
Line 1: '
------------------------------------------------------------------------
------
Line 2: ' <autogenerated>
Line 3: ' This code was generated by a tool.
Line 4: ' Mono Runtime Version: 1.1.4322.573
Line 5: '=20
Line 6: ' Changes to this file may cause incorrect behavior and
will be lost if=20
Line 7: ' the code is regenerated.
Line 8: ' </autogenerated>
Line 9: '
------------------------------------------------------------------------
------
Line 10:=20
Line 11: Option Explicit Off
Line 12: Option Strict On
Line 13:=20
Line 14: Imports Microsoft.VisualBasic
Line 15: Imports System
Line 16: Imports System.Collections
Line 17: Imports System.Collections.Specialized
Line 18: Imports System.Configuration
Line 19: Imports System.Text
Line 20: Imports System.Text.RegularExpressions
Line 21: Imports System.Web
Line 22: Imports System.Web.Caching
Line 23: Imports System.Web.Security
Line 24: Imports System.Web.SessionState
Line 25: Imports System.Web.UI
Line 26: Imports System.Web.UI.WebControls
Line 27: Imports System.Web.UI.HtmlControls
Line 28:=20
Line 29: Namespace ASP
Line 30: Public Class contactus_aspx
Line 31: Inherits System.Web.UI.Page
Line 32: Implements
System.Web.SessionState.IRequiresSessionState
Line 33:=20
Line 34: Private Shared __intialized As Boolean =3D False
Line 35:=20
Line 36: Private Shared __autoHandlers As Integer
Line 37:=20
Line 38: Public Sub New()
Line 39: If ((ASP.contactus_aspx.__intialized =3D False)) =
Then
Line 40: ASP.contactus_aspx.__intialized =3D True
Line 41: End If
Line 42: End Sub
Line 43:=20
Line 44: Protected Overrides Property AutoHandlers As Integer
Line 45: Get
Line 46: Return ASP.contactus_aspx.__autoHandlers
Line 47: End Get
Line 48: Set (Value As Integer)
Line 49: ASP.contactus_aspx.__autoHandlers =3D Value
Line 50: End Set
Line 51: End Property
Line 52:=20
Line 53: Protected ReadOnly Property ApplicationInstance As
System.Web.HttpApplication
Line 54: Get
Line 55: Return CType(Me.Context.ApplicationInstance,
System.Web.HttpApplication)
Line 56: End Get
Line 57: End Property
Line 58:=20
Line 59: Public Overrides ReadOnly Property
TemplateSourceDirectory As String
Line 60: Get
Line 61: Return "/NWB"
Line 62: End Get
Line 63: End Property
Line 64:=20
Line 65: Private Sub __RenderTree(__output As
System.Web.UI.HtmlTextWriter, parameterContainer As
System.Web.UI.Control)
Line 66: __output.Write("<h2 class=3D""Heading"">Contact
Us</h2>"&Microsoft.VisualBasic.Strings.ChrW(10))
Line 67: if Request.QueryString( "thanks" ) =3D "yes" then
Line 68: 'form has been sucessfully submitted
Line 69: 'show a thank you message
Line 70: response.write ("<p><b>Thank You For Contacting
Us</b></p><p>If your input requires us to contact you and you have
provided us with your contact information we will be in touch with you
soon.</p>")
Line 71: else=20
Line 72:
__output.Write(""&Microsoft.VisualBasic.Strings.ChrW(10)&Microsoft.Visua
lBasic.Strings.ChrW(9)&Microsoft.VisualBasic.Strings.ChrW(9)&"<p>Please
fill in the form below and submit it with your comments or
suggestions.</p>"&Microsoft.VisualBasic.Strings.ChrW(10)&Microsoft.Visua
lBasic.Strings.ChrW(9)&Microsoft.VisualBasic.Strings.ChrW(9)&Microsoft.V
isualBasic.Strings.ChrW(10)&Microsoft.VisualBasic.Strings.ChrW(9)&Micros
oft.VisualBasic.Strings.ChrW(9)&"<form
action=3D""http://palsnet.info/cgi-bin/formmail.pl""
METHOD=3D""POST"">"&Microsoft.VisualBasic.Strings.ChrW(10)&Microsoft.Visu=
a
lBasic.Strings.ChrW(9)&Microsoft.VisualBasic.Strings.ChrW(9)&"<input
type=3D""hidden"" name=3D""recipient""
value=3D""laheiden@cbplib.us"">"&Microsoft.VisualBasic.Strings.ChrW(10)&M=
i
crosoft.VisualBasic.Strings.ChrW(9)&Microsoft.VisualBasic.Strings.ChrW(9
)&"<input type=3D""hidden"" name=3D""subject"" value=3D""C.B. Phillips =
Contact
Us Form
Input"">"&Microsoft.VisualBasic.Strings.ChrW(10)&Microsoft.VisualBasic.S
trings.ChrW(9)&Microsoft.VisualBasic.Strings.ChrW(9)&"<input
type=3D""hidden"" =
value=3D""http://cbplib.us/contactus.asp?thanks=3Dyes""
name=3D""redirect"">"&Microsoft.VisualBasic.Strings.ChrW(10)&Microsoft.Vi=
s
ualBasic.Strings.ChrW(9)&Microsoft.VisualBasic.Strings.ChrW(9)&"<table
width=3D""100%"">"&Microsoft.VisualBasic.Strings.ChrW(10)&Microsoft.Visua=
l
Basic.Strings.ChrW(9)&Microsoft.VisualBasic.Strings.ChrW(9)&"<tr>"&Micro
soft.VisualBasic.Strings.ChrW(10)&Microsoft.VisualBasic.Strings.ChrW(9)&
Microsoft.VisualBasic.Strings.ChrW(9)&Microsoft.VisualBasic.Strings.ChrW
(9)&"<td
valign=3D""top"">Name:</td>"&Microsoft.VisualBasic.Strings.ChrW(10)&Micro=
s
oft.VisualBasic.Strings.ChrW(9)&Microsoft.VisualBasic.Strings.ChrW(9)&Mi
crosoft.VisualBasic.Strings.ChrW(9)&"<td valign=3D""top""><input =
TYPE=3DTEXT
NAME=3D""name"" tabindex=3D""1""
maxsize=3D""75""></input></td>"&Microsoft.VisualBasic.Strings.ChrW(10)&Mi=
c
rosoft.VisualBasic.Strings.ChrW(9)&Microsoft.VisualBasic.Strings.ChrW(9)
&"</tr>"&Microsoft.VisualBasic.Strings.ChrW(10)&Microsoft.VisualBasic.St
rings.ChrW(9)&Microsoft.VisualBasic.Strings.ChrW(9)&"<tr>"&Microsoft.Vis
ualBasic.Strings.ChrW(10)&Microsoft.VisualBasic.Strings.ChrW(9)&Microsof
t.VisualBasic.Strings.ChrW(9)&Microsoft.VisualBasic.Strings.ChrW(9)&"<td
valign=3D""top"">Email:</td>"&Microsoft.VisualBasic.Strings.ChrW(10)&Micr=
o
soft.VisualBasic.Strings.ChrW(9)&Microsoft.VisualBasic.Strings.ChrW(9)&M
icrosoft.VisualBasic.Strings.ChrW(9)&"<td valign=3D""top""><input
TYPE=3DTEXT NAME=3D""email"" tabindex=3D""2""
maxsize=3D""75""></input></td>"&Microsoft.VisualBasic.Strings.ChrW(10)&Mi=
c
rosoft.VisualBasic.Strings.ChrW(9)&Microsoft.VisualBasic.Strings.ChrW(9)
&"</tr>"&Microsoft.VisualBasic.Strings.ChrW(10)&Microsoft.VisualBasic.St
rings.ChrW(9)&Microsoft.VisualBasic.Strings.ChrW(9)&"<tr>"&Microsoft.Vis
ualBasic.Strings.ChrW(10)&Microsoft.VisualBasic.Strings.ChrW(9)&Microsof
t.VisualBasic.Strings.ChrW(9)&Microsoft.VisualBasic.Strings.ChrW(9)&"<td
valign=3D""top"">Comments:</td>"&Microsoft.VisualBasic.Strings.ChrW(10)&M=
i
crosoft.VisualBasic.Strings.ChrW(9)&Microsoft.VisualBasic.Strings.ChrW(9
)&Microsoft.VisualBasic.Strings.ChrW(9)&"<td valign=3D""top""><textarea
NAME=3D""COMMENTS"" ROWS=3D7
tabindex=3D""3""></textarea></td>"&Microsoft.VisualBasic.Strings.ChrW(10)=
&
Microsoft.VisualBasic.Strings.ChrW(9)&Microsoft.VisualBasic.Strings.ChrW
(9)&"</tr>"&Microsoft.VisualBasic.Strings.ChrW(10)&Microsoft.VisualBasic
.Strings.ChrW(9)&Microsoft.VisualBasic.Strings.ChrW(9)&"</table>"&Micros
oft.VisualBasic.Strings.ChrW(10)&Microsoft.VisualBasic.Strings.ChrW(9)&M
icrosoft.VisualBasic.Strings.ChrW(9)&Microsoft.VisualBasic.Strings.ChrW(
10)&Microsoft.VisualBasic.Strings.ChrW(9)&Microsoft.VisualBasic.Strings.
ChrW(9)&"<p align=3D""center""><input type=3D""submit"" =
name=3D""Submit""
value=3D""Submit""> <input type=3D""reset"" name=3D""Reset""
value=3D""Reset""></p>"&Microsoft.VisualBasic.Strings.ChrW(10)&Microsoft.=
V
isualBasic.Strings.ChrW(9)&Microsoft.VisualBasic.Strings.ChrW(9)&"</form
>"&Microsoft.VisualBasic.Strings.ChrW(10))
Line 73: End If=20
Line 74:
__output.Write(""&Microsoft.VisualBasic.Strings.ChrW(10)&"<br><p
align=3D""center"">Location: 6 N. Jackson St., P.O. Box 156, Newark, IL
60541<br>Phone: 815-695-5851 / Fax: 815-695-5804<br><A
href=3D""hours.asp#hours"">Hours</a></p></td></tr>"&Microsoft.VisualBasic=
.
Strings.ChrW(10)&Microsoft.VisualBasic.Strings.ChrW(9)&"<tr>"&Microsoft.
VisualBasic.Strings.ChrW(10)&Microsoft.VisualBasic.Strings.ChrW(9)&Micro
soft.VisualBasic.Strings.ChrW(9)&"<td align=3D""center""
bgcolor=3D""#696969""><A href=3D""aboutus.asp"" =
class=3D""bottomlink"">About
Us</a> <A href=3D""catalog.asp""
class=3D""bottomlink"">Catalog</a> <A =
href=3D""events.asp""
class=3D""bottomlink"">Programs & Events</a> <A
href=3D""community.asp""
class=3D""bottomlink"">Community</a> <A
href=3D""resources.asp"" class=3D""bottomlink"">Resources</a><br><A
href=3D""contactus.asp"" class=3D""bottomlink"">Contact Us</a></td></tr>
</table>"&Microsoft.VisualBasic.Strings.ChrW(10)&Microsoft.VisualBasic.S
trings.ChrW(10)&Microsoft.VisualBasic.Strings.ChrW(10)&Microsoft.VisualB
asic.Strings.ChrW(10)&"</body>"&Microsoft.VisualBasic.Strings.ChrW(10)&"
</html>"&Microsoft.VisualBasic.Strings.ChrW(10))
Line 75: End Sub
Line 76:=20
Line 77: Private Sub __BuildControlTree(__ctrl As
System.Web.UI.Control)
Line 78: __ctrl.SetRenderMethodDelegate(AddressOf
Me.__RenderTree)
Line 79: End Sub
Line 80:=20
Line 81: Protected Overrides Sub FrameworkInitialize()
Line 82: Me.TraceModeValue =3D =
System.Web.TraceMode.SortByTime
Line 83: Me.Request.ValidateInput()
Line 84: Me.__BuildControlTree(Me)
Line 85: End Sub
Line 86:=20
Line 87: Public Overrides Function GetTypeHashCode() As Integer
Line 88: Return 1885199894
Line 89: End Function
Line 90: End Class
Line 91: 'Why is the indentation not working correctly here? --> see
in mcs/class/System/Micrisoft.VisualBasic/VBCodeGenerator.cs
Line 92: 'Indent=3D1
Line 93: End Namespace
Line 94: 'Indent=3D0
Here is the source for the page:
<%@ LANGUAGE =3D VBScript %>
<h2 class=3D"Heading">Contact Us</h2>
<% if Request.QueryString( "thanks" ) =3D "yes" then
'form has been sucessfully submitted
'show a thank you message
response.write ("<p><b>Thank You For Contacting Us</b></p><p>If
your inp
ut requires us to contact you and you have provided us with your contact
informa
tion we will be in touch with you soon.</p>")
else %>
<p>Please fill in the form below and submit it with your
comment
s or suggestions.</p>
<form action=3D"http://palsnet.info/cgi-bin/formmail.pl"
METHOD=3D"P
OST">
<input type=3D"hidden" name=3D"recipient"
value=3D"laheiden@cbplib.us"
>
<input type=3D"hidden" name=3D"subject" value=3D"C.B. =
Phillips
Contact
Us Form Input">
<input type=3D"hidden"
value=3D"http://cbplib.us/contactus.asp?thank
s=3Dyes" name=3D"redirect">
<table width=3D"100%">
<tr>
<td valign=3D"top">Name:</td>
<td valign=3D"top"><input TYPE=3DTEXT =
NAME=3D"name"
tabindex=3D"
1" maxsize=3D"75"></input></td>
</tr>
<tr>
<td valign=3D"top">Email:</td>
<td valign=3D"top"><input TYPE=3DTEXT =
NAME=3D"email"
tabindex=3D
"2" maxsize=3D"75"></input></td>
</tr>
<tr>
<td valign=3D"top">Comments:</td>
<td valign=3D"top"><textarea NAME=3D"COMMENTS"
ROWS=3D7 tabind
ex=3D"3"></textarea></td>
</tr>
</table>
<p align=3D"center"><input type=3D"submit" =
name=3D"Submit"
value=3D"Subm
it"> <input type=3D"reset" name=3D"Reset" =
value=3D"Reset"></p>
</form>
<% End If %>
<!--#include file=3D"includes/bottom.inc"-->
=20
Ron Chesko
Senior Associate Network Services
Prarie Area Library System
http://www.palsnet.info/
=20