Hi,

I have created a change password page and think I got the Update function correct but don't know how to write the "Sub button_onclick, if page is valid portion".

I would like to be able to do the following:

If page is valid:
hide the form and create a success message. I think it would be something like the following but I don't exactly know where to put it.

frmpassword.Visible = False
lblUserMessage.Text = "Your password has been changed to " & strnewpass & "."

If page is not valid I would like to insert a failure message - something like "could not change password, please contact administrator"

Below is the update function itself. I am very much a beginner so any specific help would be greatly appreciated. many thanks

Function UpdatePass(ByVal username As String, ByVal userpass As String) As Integer
Dim connectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0; Ole DB Services=-4; Data Source=C:\Inetpub\wwwr"& _
"oot\FAIBLogin\autores.mdb"
Dim dbConnection As System.Data.IDbConnection = New System.Data.OleDb.OleDbConnection(connectionString)

Dim queryString As String = "UPDATE [authors] SET [userpass]='@newpass' WHERE (([authors].[username] = @usern"& _
"ame) AND ([authors].[userpass] = @userpass))"
Dim dbCommand As System.Data.IDbCommand = New System.Data.OleDb.OleDbCommand
dbCommand.CommandText = queryString
dbCommand.Connection = dbConnection

Dim dbParam_username As System.Data.IDataParameter = New System.Data.OleDb.OleDbParameter
dbParam_username.ParameterName = "@username"
dbParam_username.Value = username
dbParam_username.DbType = System.Data.DbType.String
dbCommand.Parameters.Add(dbParam_username)
Dim dbParam_userpass As System.Data.IDataParameter = New System.Data.OleDb.OleDbParameter
dbParam_userpass.ParameterName = "@userpass"
dbParam_userpass.Value = userpass
dbParam_userpass.DbType = System.Data.DbType.String
dbCommand.Parameters.Add(dbParam_userpass)

Dim rowsAffected As Integer = 0
dbConnection.Open
Try
rowsAffected = dbCommand.ExecuteNonQuery
Finally
dbConnection.Close
End Try

Return rowsAffected
End Function