<%@ Language=VBScript %>
<%Response.Buffer=true %>
<html>
<body>
<%
On Error Resume Next
p_userid = Request("p_usuario")
p_pass1 = Request("p_senha")
p_pass2 = Request("p_senha2")
if (p_userid = "" or p_pass1 = "" or p_pass2 = "") then
%>
Todos os campos devem ser preenchidos.<br>
<A href="registro.asp?p_userid=<%=p_usuario%>">Retornar para o Cadastro</a>
<%
if p_pass1 = p_pass2 then
set seubanco = server.createObject("ADODB.Connection")
seubanco.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("seubanco.mdb") & ";"
Application.Lock
theSQL = "insert into suatabela "
theSQL = theSQL & "(username, password)"
theSQL = theSQL & " values ('"&p_userid&"', '"&p_pass1&"')"
seubanco.Execute(theSQL)
Application.UnLock
seubanco.close
set seubanco = Nothing
%>
<% if Err.number = 0 then
'Tudo está em paz no mundo %>
<%
Response.Clear
Response.Redirect"login.asp?"%>
<% else
'Houve um problema com o nosso registro %>
<h2>Problema</h2><br>
Houve um problema com seu cadastro.<br>
Volte para a página anterior e escolha uma identificação de usuário diferente.<br>
<A href="registro.asp?p_userid=<%=p_usuario%>&p_first=<%=p_nome%>&p_func=<%=p_func%>&p_email=<%=p_email%>">Retornar para o Cadastro</a>
<% end if
else
'p_pass1 não é igual a p_pass2
%>
<h2>Erro de Senha</h2><br>
As duas entradas de senha devem ser iguais.<br>
Por favor, tente novamente. Obrigado!<br>
<A href="registro.asp">">Retornar para o Cadastro</a>
<% end if
end if
%><br>
</BODY>
</html> Tenta isso, adaptando para seu caso.