Multiple-step OLE DB operation generated errors with parameterized queries
sqlCmd.CommandText = "SELECT clientID, clientPassword" & _
                     " FROM Clients" & _
                     " WHERE (clientPassword=?)"
Set param = sqlCmd.CreateParameter("@clientPassword", 200, 1, Len(pass), pass)
sqlCmd.Parameters.Append param

Set rsUsers = sqlCmd.Execute

sqlCmd.CommandText = "SELECT clientID, clientUsername, clientPassword" & _
                     " FROM Clients" & _
                     " WHERE (clientEmail=?)"
Set param = sqlCmd.CreateParameter("@clientEmail", 200, 1, Len(email), email)
sqlCmd.Parameters.Append param

Set rsUsers = sqlCmd.Execute

sqlCmd.CommandText = "UPDATE Clients" & _
                     " SET clientUsername=?, clientPassword=?" & _
                     " WHERE (clientEmail=?)"
Set param = sqlCmd.CreateParameter("@clientEmail", 200, 1, Len(email), email)
sqlCmd.Parameters.Append param
Set param = sqlCmd.CreateParameter("@clientUsername", 200, 1, Len(user), user)
sqlCmd.Parameters.Append param
Set param = sqlCmd.CreateParameter("@clientPassword", 200, 1, Len(pass), pass)
sqlCmd.Parameters.Append param
Set rsUsers = sqlCmd.Execute

Set sqlCmd = server.createobject("ADODB.Command")

Set param = sqlCmd.CreateParameter("@clientUsername", 200, 1, Len(user), user)
sqlCmd.Parameters.Append param
Set param = sqlCmd.CreateParameter("@clientPassword", 200, 1, Len(pass), pass)
sqlCmd.Parameters.Append param
Set param = sqlCmd.CreateParameter("@clientEmail", 200, 1, Len(email), email)
sqlCmd.Parameters.Append param
Set rsUsers = sqlCmd.Execute