<%@ Page Language="VB" %>
<%@ import Namespace="System.Data" %>
<%@ import Namespace="System.Data.SqlClient" %>
<%@ import Namespace="System.Web.Mail" %>

<script runat="server">

    
    Sub Button_Click(sender As Object, e As EventArgs)
        Dim objMailMessage As MailMessage
        Dim conMyData As SqlConnection
        Dim cmdSelect As SqlCommand
        Dim dtrLogin  As SqlDataReader
    
        If txtEmail.Text = "" Then
           lblMessage.Text = "Please enter your e-mail address!"
           exit sub
        End if
    
        'get information from Login table
        'try and make a connection
        Try
               conMyData = New SqlConnection( ConfigurationSettings.AppSettings("strConn") )
               cmdSelect = New SqlCommand( "select_login_info_forgot_pwd", conMyData )
               cmdSelect.CommandType = CommandType.StoredProcedure
               cmdSelect.Parameters.Add( "@EmailAddress", txtEmail.Text )
               conMyData.Open()
               cmdSelect.ExecuteNonQuery()
               dtrLogin = cmdSelect.ExecuteReader()
               'catch any exceptions that might be thrown
        Catch e as Exception
            Response.Write("An Error Occurred: " & e.toString())
        'clean up and close resources
        Finally
            conMyData.Close()
        End Try
    
        if dtrLogin.HasRows then
            objMailMessage = New MailMessage
            objMailMessage.To = txtEmail.Text
            objMailMessage.Subject = "IMS Login Request"
            objMailMessage.Body = "Hello " & dtrLogin("Login") & "," & vbCrlf
            objMailMessage.Body = objMailMessage.Body & "Your password to enter the IMS system is: " & dtrLogin("Password") & vbCrlf & vbCrlf
            objMailMessage.Body = objMailMessage.Body & "This is an automatic notification from the IMS system, please do NOT reply to this e-mail!" & vbCrlf & "Thank You"
            SmtpMail.Send(objMailMessage)
    
            lblMessage.Text = "E-mail Sent Successfully - Thank You!"
        else
            lblMessage.Text = "E-mail address not found in database!"
        end if
        
    End Sub


</script>

quote:

---

Originally posted by DustinMichaels

Do you have a variable called e at class scope?

I think this is a scope error.

Dustin Michael

---

<%@ Page Language="VB" %>
<%@ import Namespace="System.Data" %>
<%@ import Namespace="System.Data.SqlClient" %>

<script runat="server">

    Sub Page_Load
       Dim strLinkPath As String
    
    
       If Not IsPostBack Then
         strLinkPath = String.Format( "Register/Register.aspx?ReturnUrl={0}", _
           Request.Params( "ReturnUrl" ) )
         lnkRegister.NavigateUrl = String.Format( strLinkPath )
       End If
    End Sub
    
    Sub Button_Click( s As Object, e As EventArgs )
       lblMessage.Text = ""
       If IsValid Then
         If DBAuthenticate( txtUsername.Text, txtPassword.Text ) > 0 Then
           FormsAuthentication.RedirectFromLoginPage( txtUsername.Text, False )
         End If
       End If
    End Sub
    
    Function DBAuthenticate( strUsername As String, strPassword As String ) As Integer
       Dim conMyData As SqlConnection
       Dim cmdSelect As SqlCommand
       Dim parmReturnValue As SqlParameter
       Dim intResult As Integer
    
	'try and make a connection   
	Try
	       conMyData = New SqlConnection( ConfigurationSettings.AppSettings("strConn") )
	       cmdSelect = New SqlCommand( "DBAuthenticate", conMyData )
	       cmdSelect.CommandType = CommandType.StoredProcedure
	       parmReturnValue = cmdSelect.Parameters.Add( "RETURN_VALUE", SqlDbType.Int )
	       parmReturnValue.Direction = ParameterDirection.ReturnValue
	       cmdSelect.Parameters.Add( "@username", strUsername )
	       cmdSelect.Parameters.Add( "@password", strPassword )
	       conMyData.Open()
	       cmdSelect.ExecuteNonQuery()
	       intResult = cmdSelect.Parameters( "RETURN_VALUE" ).Value
       	'catch any exceptions that might be thrown
	Catch e as Exception
		Response.Write("An Error Occurred: " & e.toString())
	'clean up and close resources
	Finally
		conMyData.Close()
	End Try
			
       If intResult < 0 Then
         If intResult = -1 Then
           lblMessage.Text = "Username Not Registered!"
         Else
           lblMessage.Text = "Invalid Password!"
         End If
       End If
       Return intResult
    End Function

</script>

<%@ Page Language="VB" %>
<%@ import Namespace="System.Data" %>
<%@ import Namespace="System.Data.SqlClient" %>
<%@ import Namespace="System.Web.Mail" %>

<script runat="server">

    
    Sub Button_Click(sender As Object, e As EventArgs)
        Dim objMailMessage As MailMessage
        Dim conMyData As SqlConnection
        Dim cmdSelect As SqlCommand
        Dim dtrLogin  As SqlDataReader
    
        If txtEmail.Text = "" Then
           lblMessage.Text = "Please enter your e-mail address!"
           exit sub
        End if
    
        'get information from Login table
        'try and make a connection
        Try
               conMyData = New SqlConnection( ConfigurationSettings.AppSettings("strConn") )
               cmdSelect = New SqlCommand( "select_login_info_forgot_pwd", conMyData )
               cmdSelect.CommandType = CommandType.StoredProcedure
               cmdSelect.Parameters.Add( "@EmailAddress", txtEmail.Text )
               conMyData.Open()
               cmdSelect.ExecuteNonQuery()
               dtrLogin = cmdSelect.ExecuteReader()
               'catch any exceptions that might be thrown
        Catch ex as Exception
            Response.Write("An Error Occurred: " & ex.toString())
        'clean up and close resources
        Finally
            conMyData.Close()
        End Try
    
        if dtrLogin.HasRows then
            objMailMessage = New MailMessage
            objMailMessage.To = txtEmail.Text
            objMailMessage.Subject = "IMS Login Request"
            objMailMessage.Body = "Hello " & dtrLogin("Login") & "," & vbCrlf
            objMailMessage.Body = objMailMessage.Body & "Your password to enter the IMS system is: " & dtrLogin("Password") & vbCrlf & vbCrlf
            objMailMessage.Body = objMailMessage.Body & "This is an automatic notification from the IMS system, please do NOT reply to this e-mail!" & vbCrlf & "Thank You"
            SmtpMail.Send(objMailMessage)
    
            lblMessage.Text = "E-mail Sent Successfully - Thank You!"
        else
            lblMessage.Text = "E-mail address not found in database!"
        end if
        
    End Sub


</script>

quote:

---

Originally posted by DustinMichaels

You need to include where you checking to see if the reader has rows in the try-catch-finally block.

Right now it is closing the database connection before it gets to the part where it checks to see if the reader has rows.

---