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 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.HtmlControls
Line 27: Imports System.Web.UI.WebControls
Line 28:
Line 29: Namespace ASP
Line 30:
Line 31: Public Class DesktopDefault_aspx
Line 32: Inherits System.Web.UI.Page
Line 33: Implements System.Web.SessionState.IRequiresSessionState
Line 34:
Line 35: Private Shared __initialized As Boolean = false
Line 36:
Line 37: Private Shared __stringResource As Object
Line 38:
Line 39: Private Shared __fileDependencies As System.Collections.ArrayList
Line 40:
Line 41: Public Sub New()
Line 42: MyBase.New
Line 43: Dim dependencies As System.Collections.ArrayList
Line 44: If (ASP.DesktopDefault_aspx.__initialized = false) Then
Line 45: ASP.DesktopDefault_aspx.__stringResource = System.Web.UI.TemplateControl.ReadStringResource(GetType(ASP.DesktopDefault_aspx))
Line 46: dependencies = New System.Collections.ArrayList
Line 47: dependencies.Add("D:\InetPub\vhosts\respectinc.com\httpdocs\_includes\workshop_inquiry_form.asp")
Line 48: dependencies.Add("D:\InetPub\vhosts\respectinc.com\httpdocs\web\tabindex\11\tabid\161\converted\1\D"& _
Line 49: "esktopDefault.aspx")
Line 50: ASP.DesktopDefault_aspx.__fileDependencies = dependencies
Line 51: ASP.DesktopDefault_aspx.__initialized = true
Line 52: End If
Line 53: End Sub
Line 54:
Line 55: Protected Overrides ReadOnly Property SupportAutoEvents As Boolean
Line 56: Get
Line 57: Return false
Line 58: End Get
Line 59: End Property
Line 60:
Line 61: Protected ReadOnly Property ApplicationInstance As System.Web.HttpApplication
Line 62: Get
Line 63: Return CType(Me.Context.ApplicationInstance,System.Web.HttpApplication)
Line 64: End Get
Line 65: End Property
Line 66:
Line 67: Public Overrides ReadOnly Property TemplateSourceDirectory As String
Line 68: Get
Line 69: Return "/web/tabindex/11/tabid/161/converted/1"
Line 70: End Get
Line 71: End Property
Line 72:
Line 73: Private Sub __BuildControlTree(ByVal __ctrl As System.Web.UI.Control)
Line 74: __ctrl.SetRenderMethodDelegate(AddressOf Me.__Render__control1)
Line 75: End Sub
Line 76:
Line 77: Private Sub __Render__control1(ByVal __output As System.Web.UI.HtmlTextWriter, ByVal parameterContainer As System.Web.UI.Control)
Line 78: Me.WriteUTF8ResourceString(__output, 0, 13317, false)
Line 79:
Line 80: #ExternalSource("D:\InetPub\vhosts\respectinc.com\httpdocs\web\tabindex\11\tabid\161\converted\1\DesktopDefault.aspx",350)
Line 81:
Line 82: dim strWorkshopName: strWorkshopName = "Building Relationships Across Race"
Line 83:
Line 84:
Line 85: #End ExternalSource
Line 86:
Line 87: #ExternalSource("D:\InetPub\vhosts\respectinc.com\httpdocs\_includes\workshop_inquiry_form.asp",1)
Line 88:
Line 89: 'the following line should be defined before this file is included...
Line 90: 'dim strWorkshopName: strWorkshopName = "The Workshop Name"
Line 91:
Line 92: function SimpleEmail(host, emailto, emailfrom, emailsubject, emailbody)
Line 93: dim objEmail : set objEmail = createObject("CDO.Message")
Line 94: dim objConfig : set objConfig = createObject("CDO.Configuration")
Line 95: with objConfig
Line 96: .fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
Line 97: .fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = host
Line 98: .fields.update
Line 99: end with
Line 100:
Line 101: with objEmail
Line 102: set .configuration = objConfig
Line 103:
Line 104: .from = emailfrom
Line 105: .to = emailto
Line 106: .subject = emailsubject
Line 107: .textbody = emailbody
Line 108: .send
Line 109: end with
Line 110:
Line 111: set objEmail = nothing
Line 112: set objConfig = nothing
Line 113: end function
Line 114:
Line 115:
Line 116: #End ExternalSource
Line 117: __output.Write(""&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&"<script type=""text/javascript"">"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&"function submitInquiry() {"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(9)&"document.frmInq"& _
Line 118: "uiry.submit();"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&"}"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&"function resetInquiry() {"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(9)&"document.frmInquiry.reset();"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&"}"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)& _
Line 119: "</script>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&"<form name=""frmInquiry"" action=""")
Line 120:
Line 121: #ExternalSource("D:\InetPub\vhosts\respectinc.com\httpdocs\_includes\workshop_inquiry_form.asp",38)
Line 122: __output.Write(request.serverVariables("script_name"))
Line 123:
Line 124: #End ExternalSource
Line 125: __output.Write(""" method=""post"">"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&"<input type=""hidden"" name=""action"" value=""submitInquiry""/>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&"<in"& _
Line 126: "put type=""hidden"" name=""workshop"" value=""")
Line 127:
Line 128: #ExternalSource("D:\InetPub\vhosts\respectinc.com\httpdocs\_includes\workshop_inquiry_form.asp",40)
Line 129: __output.Write(strWorkshopName)
Line 130:
Line 131: #End ExternalSource
Line 132: __output.Write("""/>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&"<table width=""98%"" cellspacing=""0"" cellpadding=""0"">"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(9)&"<tr>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&"<td align=""lef"& _
Line 133: "t"">"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&"<span id=""_ctl3_Title1_ModuleTitle"" class=""Head"">Inquire about """)
Line 134:
Line 135: #ExternalSource("D:\InetPub\vhosts\respectinc.com\httpdocs\_includes\workshop_inquiry_form.asp",44)
Line 136: __output.Write(strWorkshopName)
Line 137:
Line 138: #End ExternalSource
Line 139: Me.WriteUTF8ResourceString(__output, 13317, 423, true)
Line 140:
Line 141: #ExternalSource("D:\InetPub\vhosts\respectinc.com\httpdocs\_includes\workshop_inquiry_form.asp",58)
Line 142: __output.Write(request.form("name"))
Line 143:
Line 144: #End ExternalSource
Line 145: __output.Write(""" /></td>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(9)&"</tr><tr>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&"<td>Company</td><td><input name=""company"" type=""text"" ma"& _
Line 146: "xlength=""50"" size=""40"" id=""_ctl3_Company393"" class=""NormalTextBox"" value=""")
Line 147:
Line 148: #ExternalSource("D:\InetPub\vhosts\respectinc.com\httpdocs\_includes\workshop_inquiry_form.asp",60)
Line 149: __output.Write(request.form("company"))
Line 150:
Line 151: #End ExternalSource
Line 152: __output.Write(""" /></td>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(9)&"</tr><tr>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&"<td>Email</td><td><input name=""email"" type=""text"" maxlen"& _
Line 153: "gth=""50"" size=""40"" id=""_ctl3_Email70"" class=""NormalTextBox"" value=""")
Line 154:
Line 155: #ExternalSource("D:\InetPub\vhosts\respectinc.com\httpdocs\_includes\workshop_inquiry_form.asp",62)
Line 156: __output.Write(request.form("email"))
Line 157:
Line 158: #End ExternalSource
Line 159: __output.Write(""" /></td>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(9)&"</tr>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&"</table>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10))
Line 160:
Line 161: #ExternalSource("D:\InetPub\vhosts\respectinc.com\httpdocs\_includes\workshop_inquiry_form.asp",66)
Line 162:
Line 163: if request.form("action") = "submitInquiry" then
Line 164: SimpleEmail "127.0.0.1", _
Line 165: "respect@respectinc.com", _
Line 166: "inquiry@respectinc.com", _
Line 167: "Workshop Inquiry: " & request.form("workshop"), _
Line 168: "Workshop: " & request.form("workshop") & vbCrLf &_
Line 169: "Name: " & request.form("name") & vbCrLf &_
Line 170: "Company: " & request.form("company") & vbCrLf &_
Line 171: "Email: " & request.form("email") & vbCrLf &_
Line 172:
Line 173:
Line 174: #End ExternalSource
Line 175: __output.Write(""&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&"<span id=""_ctl3_MessageSenderMsg"" class=""Normal""><b><font color=""Green"">Thank"& _
Line 176: " you. Your inquiry has been submitted.</font></b></span>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9))
Line 177:
Line 178: #ExternalSource("D:\InetPub\vhosts\respectinc.com\httpdocs\_includes\workshop_inquiry_form.asp",78)
Line 179:
Line 180: else
Line 181:
Line 182:
Line 183: #End ExternalSource
Line 184: __output.Write(""&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&"<a id=""_ctl3_submitButton"" class=""CommandButton"" href=""javascript:submitInqui"& _
Line 185: "ry()"">Submit</a> "&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&"<a id=""_ctl3_resetButton"" class=""CommandButton"" href="""& _
Line 186: "javascript:resetInquiry()"">Reset</a>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9))
Line 187:
Line 188: #ExternalSource("D:\InetPub\vhosts\respectinc.com\httpdocs\_includes\workshop_inquiry_form.asp",83)
Line 189:
Line 190: end if
Line 191:
Line 192:
Line 193: #End ExternalSource
Line 194: __output.Write(""&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&"</form>")
Line 195: Me.WriteUTF8ResourceString(__output, 13740, 2284, true)
Line 196: End Sub
Line 197:
Line 198: Protected Overrides Sub FrameworkInitialize()
Line 199: SetStringResourcePointer(ASP.DesktopDefault_aspx.__stringResource, 16024)
Line 200: Me.__BuildControlTree(Me)
Line 201: Me.FileDependencies = ASP.DesktopDefault_aspx.__fileDependencies
Line 202: Me.EnableViewStateMac = true
Line 203: Me.Request.ValidateInput
Line 204: End Sub
Line 205:
Line 206: Public Overrides Function GetTypeHashCode() As Integer
Line 207: Return 364373142
Line 208: End Function
Line 209: End Class
Line 210: End Namespace
Line 211:
|