<% dim tipo, minhasenha set rs = server.createobject("ADODB.Recordset") sql = "Select * From tbllogin where usuariologin = '"& request.form("usuario")&"'" rs.open sql, conn, 2,2 if rs.eof then response.write "

Este usuário não está cadastrado! Tente outro.

" rs.close else rs("usuariologin") = request.form("usuario") rs("usuarioemail") = request.form("email") rs("usuariosenha") = request.form("senha") rs("usuarionome") = request.form("nome") rs("usuariopermissao") = request.form("permissao") rs.update rs.close set rs = nothing response.write "

O Administrador foi alterado com sucesso!

" end if %>