Problem with Email Sending

[suganya]

Hi

I have to send mail right away when I click a button. For this I have given the coding as


Dim ob As Object
Dim ob1 As Object
Dim con As SqlConnection
Dim cmd As SqlCommand
Dim str As String
Dim rd As SqlDataReader
str = "user id=sa;password= cast;database=H ello_Dr;server= AURORA-SERVER"
con = New SqlConnection(s tr)
Try
con.Open()
Catch
End Try
str = "select UserId,Password 1 from CustomerRegistr ation2 where EmailId='" & Trim(txtEmailId .Text.ToString( )) & "' "
cmd = New SqlCommand(str, con)
rd = cmd.ExecuteRead er()
While (rd.Read())
ob = rd.GetValue(1). ToString()
ob1 = rd.GetValue(2). ToString()

End While
Dim cnt As Int16
cnt = cmd.ExecuteScal ar()
If cnt <= 0 Then
Response.Write( "Un authorise user")
Else
Dim msg As New Net.Mail.MailMe ssage("importan t.project@gmail .com", txtEmailId.Text , "Re: Info", "User Id=ob Password=ob1")
Dim mySmtp As New Net.Mail.SmtpCl ient("IP ADDRESS")
Try
mySmtp.Send(msg )
Label1.Text = "Mail Sent"
Catch ex As Exception
Label3.Text = ex.Message
Label4.Text = ex.InnerExcepti on.Message
End Try
End If
con.Close()

End Sub


If I do this, the following error is appearing


"There is already an open DataReader associated with this Command which must be closed first."


The project like if I click the Forget Password button, it should ask for the email id, check in database, retrive the userid & password , and send the user id & password to the corresponding email.

[kenobewan]

You can't do an execute reader follow by an scalar. Close the con after reading, open another and create a new command. Not sure why you open the con in try catch but execute out of it. Also try using rdr.hasrows instead of cnt. HTH.