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:
|