Lost Password Page

[jarowbear]

I am trying to create a sendpassword page for users who have lost their password...using their email address to retrieve the users details. I have gotten this far...querying the database using the email field. Now, here are my questions: 1. Once the fields are authenticated and the password is found, how do I send it by email using system.web.mail for examp.e...what would the code be? 2. Also, if it works and the info is sent to them in an email, how do I create the code and text message that would appear on the same page that says: "password successfully sent" and conversely, if there is an error and the email cannot be sent how do I write the error message "email address not found, please contact administrator". Here is the code I have to date. Many, many thanks for your help <%@ Page Language="VB" %> Function GetEmail(ByVal email As String) As System.Data.DataSet Dim connectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0; Ole DB Services=-4; Data Source=C:\Inetpub\wwwr"& _ "oot\LoginMatric\autores.mdb" Dim dbConnection As System.Data.IDbConnection = New System.Data.OleDb.OleDbConnection(connectionString) Dim queryString As String = "SELECT [authors].[pwd] FROM [authors] WHERE ([authors].[email] = @email)" Dim dbCommand As System.Data.IDbCommand = New System.Data.OleDb.OleDbCommand dbCommand.CommandText = queryString dbCommand.Connection = dbConnection Dim dbParam_email As System.Data.IDataParameter = New System.Data.OleDb.OleDbParameter dbParam_email.ParameterName = "@email" dbParam_email.Value = email dbParam_email.DbType = System.Data.DbType.String dbCommand.Parameters.Add(dbParam_email) Dim dataAdapter As System.Data.IDbDataAdapter = New System.Data.OleDb.OleDbDataAdapter dataAdapter.SelectCommand = dbCommand Dim dataSet As System.Data.DataSet = New System.Data.DataSet dataAdapter.Fill(dataSet) Return dataSet End Function

Please enter your email address