Server Error in '/' Application.

---

c:\windows\system32\inetsrv> "c:\windows\microsoft.net\framework\v1.1.4322\vbc.exe" /t:library /utf8output /R:"c:\windows\assembly\gac\system\1.0.5000.0__b77a5c561934e089\system.dll" /R:"c:\windows\assembly\gac\system.web\1.0.5000.0__b03f5f7f11d50a3a\system.web.dll" /R:"c:\windows\microsoft.net\framework\v1.1.4322\temporary asp.net files\root\979b705a\ba0e2586\ozgzzp7b.dll" /R:"c:\windows\assembly\gac\system.enterpriseservices\1.0.5000.0__b03f5f7f11d50a3a\system.enterpriseservices.dll" /R:"c:\windows\assembly\gac\system.drawing\1.0.5000.0__b03f5f7f11d50a3a\system.drawing.dll" /R:"c:\windows\assembly\gac\system.data\1.0.5000.0__b77a5c561934e089\system.data.dll" /R:"c:\windows\microsoft.net\framework\v1.1.4322\temporary asp.net files\root\979b705a\ba0e2586\assembly\dl2\5069f068\82e35cac_11aac401\dreamweaverctrls.dll" /R:"c:\windows\assembly\gac\system.web.mobile\1.0.5000.0__b03f5f7f11d50a3a\system.web.mobile.dll" /R:"c:\windows\assembly\gac\system.xml\1.0.5000.0__b77a5c561934e089\system.xml.dll" /R:"c:\windows\assembly\gac\system.web.services\1.0.5000.0__b03f5f7f11d50a3a\system.web.services.dll" /out:"C:\WINDOWS\Microsoft.NET\Framework\v1.1.4322\Temporary ASP.NET Files\root\979b705a\ba0e2586\fjw3qtbe.dll" /debug- /win32resource:"C:\WINDOWS\Microsoft.NET\Framework\v1.1.4322\Temporary ASP.NET Files\root\979b705a\ba0e2586\fjw3qtbe.res"  "C:\WINDOWS\Microsoft.NET\Framework\v1.1.4322\Temporary ASP.NET Files\root\979b705a\ba0e2586\fjw3qtbe.0.vb"


Microsoft (R) Visual Basic .NET Compiler version 7.10.7017.4
for Microsoft (R) .NET Framework version 1.1.4322.2407
Copyright (C) Microsoft Corporation 1987-2002. All rights reserved.

d:\websites\chiplibraryorg\usercontrols\makeasuggestion.ascx(112) : error BC30201: Expression expected.

If instr(request("yourcomments"),"http://google.com") <> 0 and Then
                                                               ~~~~

Line 1:    '------------------------------------------------------------------------------
Line 2:    ' <autogenerated>
Line 3:    '     This code was generated by a tool.
Line 4:    '     Runtime Version: 1.1.4322.2407
Line 5:    '
Line 6:    '     Changes to this file may cause incorrect behavior and will be lost if 
Line 7:    '     the code is regenerated.
Line 8:    ' </autogenerated>
Line 9:    '------------------------------------------------------------------------------
Line 10:   
Line 11:   Option Strict Off
Line 12:   Option Explicit On
Line 13:   
Line 14:   Imports ASP
Line 15:   Imports Microsoft.VisualBasic
Line 16:   Imports System
Line 17:   Imports System.Collections
Line 18:   Imports System.Collections.Specialized
Line 19:   Imports System.Configuration
Line 20:   Imports System.Text
Line 21:   Imports System.Text.RegularExpressions
Line 22:   Imports System.Web
Line 23:   Imports System.Web.Caching
Line 24:   Imports System.Web.Mail
Line 25:   Imports System.Web.Security
Line 26:   Imports System.Web.SessionState
Line 27:   Imports System.Web.UI
Line 28:   Imports System.Web.UI.HtmlControls
Line 29:   Imports System.Web.UI.WebControls
Line 30:   
Line 31:   Namespace ASP
Line 32:       
Line 33:       Public Class makeasuggestion_ascx
Line 34:           Inherits System.Web.UI.UserControl
Line 35:           
Line 36:           Private Shared __autoHandlers As Integer
Line 37:           
Line 38:           Private Shared __initialized As Boolean = false
Line 39:           
Line 40:           Private Shared __stringResource As Object
Line 41:           
Line 42:           
Line 43:           #ExternalSource("d:\websites\chiplibraryorg\usercontrols\makeasuggestion.ascx",98)
Line 44:           
Line 45:   
Line 46:   Sub Page_Load(Src As Object, E As EventArgs)
Line 47:   If request("submit") = "Submit" and instr(request("youremail"),"@google.com") = 0 Then
Line 48:   Dim msgMail As New MailMessage
Line 49:   msgMail.To = "carnold@midcoasthealth.com,mlabbe@gwi.net,lpersonett@parkviewamc.org,refdesk@curtislibrary.com"
Line 50:   msgMail.CC = "rd@allurecreative.com"
Line 51:   msgMail.From = request("youremail")
Line 52:   msgMail.Subject = "CHIP Web Suggestion"
Line 53:   msgMail.Body = "from:" & request("yourname") & vbCrLf & vbCrLf & request("yourcomments")
Line 54:   SmtpMail.Send(msgMail)
Line 55:   response.redirect("success.aspx")
Line 56:   End If
Line 57:   
Line 58:   If instr(request("yourcomments"),"http://google.com") <> 0 and Then
Line 59:   	response.redirect("success.aspx")
Line 60:   end if
Line 61:   
Line 62:   
Line 63:   
Line 64:   End Sub
Line 65:   
Line 66:   
Line 67:   
Line 68:   
Line 69:   
Line 70:   
Line 71:           #End ExternalSource
Line 72:           
Line 73:           Public Sub New()
Line 74:               MyBase.New
Line 75:               If (ASP.makeasuggestion_ascx.__initialized = false) Then
Line 76:                   ASP.makeasuggestion_ascx.__stringResource = System.Web.UI.TemplateControl.ReadStringResource(GetType(ASP.makeasuggestion_ascx))
Line 77:                   ASP.makeasuggestion_ascx.__initialized = true
Line 78:               End If
Line 79:           End Sub
Line 80:           
Line 81:           Protected Overrides Property AutoHandlers As Integer
Line 82:               Get
Line 83:                   Return ASP.makeasuggestion_ascx.__autoHandlers
Line 84:               End Get
Line 85:               Set
Line 86:                   ASP.makeasuggestion_ascx.__autoHandlers = value
Line 87:               End Set
Line 88:           End Property
Line 89:           
Line 90:           Protected ReadOnly Property ApplicationInstance As ASP.global_asax
Line 91:               Get
Line 92:                   Return CType(Me.Context.ApplicationInstance,ASP.global_asax)
Line 93:               End Get
Line 94:           End Property
Line 95:           
Line 96:           Public Overrides ReadOnly Property TemplateSourceDirectory As String
Line 97:               Get
Line 98:                   Return "/usercontrols"
Line 99:               End Get
Line 100:          End Property
Line 101:          
Line 102:          Private Sub __BuildControlTree(ByVal __ctrl As System.Web.UI.Control)
Line 103:              Dim __parser As System.Web.UI.IParserAccessor = CType(__ctrl,System.Web.UI.IParserAccessor)
Line 104:              
Line 105:              #ExternalSource("d:\websites\chiplibraryorg\usercontrols\makeasuggestion.ascx",1)
Line 106:              __parser.AddParsedSubObject(Me.CreateResourceBasedLiteralControl(0, 4021, true))
Line 107:              
Line 108:              #End ExternalSource
Line 109:          End Sub
Line 110:          
Line 111:          Protected Overrides Sub FrameworkInitialize()
Line 112:              SetStringResourcePointer(ASP.makeasuggestion_ascx.__stringResource, 4021)
Line 113:              Me.__BuildControlTree(Me)
Line 114:          End Sub
Line 115:      End Class
Line 116:  End Namespace
Line 117: