Compilation Error

Line 1:    #ExternalChecksum("G:\inetpub\OilandGasInternational\html\emailpassword.aspx","{406ea660-64cf-4c82-b6f0-42d48172a799}","5F4DC89873F9792B3A87449835052EFD")
Line 2:    '------------------------------------------------------------------------------
Line 3:    ' <auto-generated>
Line 4:    '     This code was generated by a tool.
Line 5:    '     Runtime Version:2.0.50727.5485
Line 6:    '
Line 7:    '     Changes to this file may cause incorrect behavior and will be lost if
Line 8:    '     the code is regenerated.
Line 9:    ' </auto-generated>
Line 10:   '------------------------------------------------------------------------------
Line 11:
Line 12:   Option Strict Off
Line 13:   Option Explicit On
Line 14:
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.Profile
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:   Imports System.Web.UI.WebControls.WebParts
Line 31:
Line 32:   Namespace ASP
Line 33:
Line 34:       <System.Runtime.CompilerServices.CompilerGlobalScopeAttribute()>  _
Line 35:       Public Class html_emailpassword_aspx
Line 36:           Inherits Global.System.Web.UI.Page
Line 37:           Implements System.Web.SessionState.IRequiresSessionState, System.Web.IHttpHandler
Line 38:
Line 39:
Line 40:           #ExternalSource("G:\inetpub\OilandGasInternational\getConnection.asp",31)
Line 41:           Protected WithEvents login As Global.System.Web.UI.HtmlControls.HtmlForm
Line 42:
Line 43:           #End ExternalSource
Line 44:
Line 45:           Private Shared __initialized As Boolean
Line 46:
Line 47:           Private Shared __stringResource As Object
Line 48:
Line 49:           Private Shared __fileDependencies As Object
Line 50:
Line 51:           <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
Line 52:           Public Sub New()
Line 53:               MyBase.New
Line 54:               Dim dependencies() As String
Line 55:               CType(Me,Global.System.Web.UI.Page).AppRelativeVirtualPath = "~/html/emailpassword.aspx"
Line 56:               If (Global.ASP.html_emailpassword_aspx.__initialized = false) Then
Line 57:                   Global.ASP.html_emailpassword_aspx.__stringResource = Me.ReadStringResource
Line 58:                   dependencies = New String(1) {}
Line 59:                   dependencies(0) = "~/html/emailpassword.aspx"
Line 60:                   dependencies(1) = "~/getConnection.asp"
Line 61:                   Global.ASP.html_emailpassword_aspx.__fileDependencies = Me.GetWrappedFileDependencies(dependencies)
Line 62:                   Global.ASP.html_emailpassword_aspx.__initialized = true
Line 63:               End If
Line 64:               Me.Server.ScriptTimeout = 30000000
Line 65:           End Sub
Line 66:
Line 67:           Protected ReadOnly Property Profile() As System.Web.Profile.DefaultProfile
Line 68:               Get
Line 69:                   Return CType(Me.Context.Profile,System.Web.Profile.DefaultProfile)
Line 70:               End Get
Line 71:           End Property
Line 72:
Line 73:           Protected Overrides ReadOnly Property SupportAutoEvents() As Boolean
Line 74:               Get
Line 75:                   Return false
Line 76:               End Get
Line 77:           End Property
Line 78:
Line 79:           Protected ReadOnly Property ApplicationInstance() As ASP.global_asax
Line 80:               Get
Line 81:                   Return CType(Me.Context.ApplicationInstance,ASP.global_asax)
Line 82:               End Get
Line 83:           End Property
Line 84:
Line 85:           <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
Line 86:           Private Function __BuildControllogin() As Global.System.Web.UI.HtmlControls.HtmlForm
Line 87:               Dim __ctrl As Global.System.Web.UI.HtmlControls.HtmlForm
Line 88:
Line 89:               #ExternalSource("G:\inetpub\OilandGasInternational\getConnection.asp",31)
Line 90:               __ctrl = New Global.System.Web.UI.HtmlControls.HtmlForm
Line 91:
Line 92:               #End ExternalSource
Line 93:               Me.login = __ctrl
Line 94:
Line 95:               #ExternalSource("G:\inetpub\OilandGasInternational\getConnection.asp",31)
Line 96:               __ctrl.ID = "login"
Line 97:
Line 98:               #End ExternalSource
Line 99:
Line 100:              #ExternalSource("G:\inetpub\OilandGasInternational\getConnection.asp",31)
Line 101:              __ctrl.Method = "post"
Line 102:
Line 103:              #End ExternalSource
Line 104:              Dim __parser As System.Web.UI.IParserAccessor = CType(__ctrl,System.Web.UI.IParserAccessor)
Line 105:
Line 106:              #ExternalSource("G:\inetpub\OilandGasInternational\getConnection.asp",31)
Line 107:              __parser.AddParsedSubObject(Me.CreateResourceBasedLiteralControl(102177, 1789, true))
Line 108:
Line 109:              #End ExternalSource
Line 110:              Return __ctrl
Line 111:          End Function
Line 112:
Line 113:          <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
Line 114:          Private Sub __BuildControlTree(ByVal __ctrl As html_emailpassword_aspx)
Line 115:
Line 116:              #ExternalSource("G:\inetpub\OilandGasInternational\getConnection.asp",1)
Line 117:              Me.InitializeCulture
Line 118:
Line 119:              #End ExternalSource
Line 120:              Dim __ctrl1 As Global.System.Web.UI.HtmlControls.HtmlForm
Line 121:
Line 122:              #ExternalSource("G:\inetpub\OilandGasInternational\getConnection.asp",1)
Line 123:              __ctrl1 = Me.__BuildControllogin
Line 124:
Line 125:              #End ExternalSource
Line 126:              Dim __parser As System.Web.UI.IParserAccessor = CType(__ctrl,System.Web.UI.IParserAccessor)
Line 127:
Line 128:              #ExternalSource("G:\inetpub\OilandGasInternational\getConnection.asp",1)
Line 129:              __parser.AddParsedSubObject(__ctrl1)
Line 130:
Line 131:              #End ExternalSource
Line 132:              __ctrl.SetRenderMethodDelegate(AddressOf Me.__Render__control1)
Line 133:          End Sub
Line 134:
Line 135:          Private Sub __Render__control1(ByVal __w As System.Web.UI.HtmlTextWriter, ByVal parameterContainer As System.Web.UI.Control)
Line 136:
Line 137:              #ExternalSource("G:\inetpub\OilandGasInternational\getConnection.asp",1)
Line 138:
set objDoc = Server.Createobject("Msxml2.DOMDocument.4.0")
objDoc.load(Request.ServerVariables("APPL_PHYSICAL_PATH") & "web.config")



set curNode = objDoc.selectSingleNode("/configuration/appSettings/add[@key='DSN']")

dsn = curNode.getAttribute("value")

set curNode = objDoc.selectSingleNode("/configuration/appSettings/add[@key='password']")

password = curNode.getAttribute("value")

cnString = dsn



Line 139:
Line 140:              #End ExternalSource
Line 141:
Line 142:              #ExternalSource("G:\inetpub\OilandGasInternational\html\emailpassword.aspx",2)
Line 143:    'on error resume next
Line 144:  set oConn = server.CreateObject("ADODB.connection")
Line 145:  set rs = server.CreateObject("ADODB.Recordset")
Line 146:  oConn.Open cnString
Line 147:  rs.Open "select * from OGIUser where email = '" & Request.querystring("email") & "'",oConn
Line 148:  'Response.Write "select * from Member where email = '" & Request.querystring("email") & "'"
Line 149:  if not rs.EOF then
Line 150:
Line 151:  	Dim objCDO
Line 152:  	Set objCDO = Server.CreateObject("CDONTS.NewMail")
Line 153:
Line 154:  	objCDO.To = rs("firstname") & " " & rs("lastname") & "<" & rs("email") & ">"
Line 155:  	objCDO.From = "Oil and Gas International <[email protected]>"
Line 156:
Line 157:  	objCDO.Subject = "Here is your Oil and Gas International Info."
Line 158:  	objCDO.Body = "Here is your Oil and Gas International Password: " & rs("password")
Line 159:  	objCDO.Send
Line 160:
Line 161:  Else
Line 162:  	Response.Write "Your email address could not be found."
Line 163:  End If
Line 164:
Line 165:
Line 166:              #End ExternalSource
Line 167:              Me.WriteUTF8ResourceString(__w, 103966, 666, true)
Line 168:              parameterContainer.Controls(0).RenderControl(__w)
Line 169:              Me.WriteUTF8ResourceString(__w, 104632, 1423, true)
Line 170:          End Sub
Line 171:
Line 172:          <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
Line 173:          Protected Overrides Sub FrameworkInitialize()
Line 174:              MyBase.FrameworkInitialize
Line 175:              Me.SetStringResourcePointer(Global.ASP.html_emailpassword_aspx.__stringResource, 0)
Line 176:              Me.__BuildControlTree(Me)
Line 177:              Me.AddWrappedFileDependencies(Global.ASP.html_emailpassword_aspx.__fileDependencies)
Line 178:              Me.Request.ValidateInput
Line 179:          End Sub
Line 180:
Line 181:          <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
Line 182:          Public Overrides Function GetTypeHashCode() As Integer
Line 183:              Return -511707810
Line 184:          End Function
Line 185:
Line 186:          <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
Line 187:          Public Overrides Sub ProcessRequest(ByVal context As System.Web.HttpContext)
Line 188:              MyBase.ProcessRequest(context)
Line 189:          End Sub
Line 190:      End Class
Line 191:  End Namespace
Line 192: