O Que Está Errado?

[Josi_sd]

olá pessoal,,,estou com um problema,,,na pagina,,,o cadastro de usuarios esta sendo efetuado normalmente,mas se eu kiser cadastrar o mesmo usuario cadastra normalmente,utilizei um exemplo de função aki do site mesmo,mas não entendo,,porque não esta dando certo......

este é o codigo.......

<%@ Language=JavaScript %><!--#Include File= "conexão.asp"-->

<%

Dim Str,Rs,nome,endereco,cidade,cep,UF,telefone,bairro,est_civil,sexo,RG,org_exp,email,login,senha

nome = Trim(Request.Form("nome"))

endereco = Trim(Request.Form("endereco"))

cidade = Trim(Request.Form("cidade"))

cep = Trim(Request.Form("cep"))

UF = Trim(Request.Form("UF"))

telefone = Trim(Request.Form("telefone"))

bairro = Trim(Request.Form("bairro"))

est_civil = Trim(Request.Form("est_civil"))

sexo = Trim(Request.Form("sexo"))

RG = Trim(Request.Form("RG"))

org_exp = Trim(Request.Form("org_exp"))

email = Trim(Request.Form("email"))

login = Trim(Request.Form("login"))

senha = Trim(Request.Form("senha"))

Response.Write codigo_cliente & "<br>"

Response.Write nome & "<br>"

Response.Write endereco & "<br>"

Response.Write cidade & "<br>"

Response.Write cep & "<br>"

Response.Write UF & "<br>"

Response.Write telefone & "<br>"

Response.Write bairro & "<br>"

Response.Write est_civil & "<br>"

Response.Write sexo & "<br>"

Response.Write RG & "<br>"

Response.Write org_exp & "<br>"

Response.Write email & "<br>"

Response.Write login & "<br>"

Response.Write senha & "<br>"

Str = "select nome from cliente where nome='"& nome &"'"

set Rs= Obj.execute(Str)

if Rs.eof = true then

Str = "insert into cliente(nome,endereco,cidade,cep,UF,telefone,bairro,est_civil,sexo,RG,org_exp,email,login,senha)values('"&nome&"','"&endereco&"','"&cidade&"','"&cep&"','"&UF&"','"&telefone&"','"&bairro&"','"&est_civil&"','"&sexo&"','"&RG&"','"&org_exp&"','"&email&"','"&login&"','"&senha&"')"

response.redirect "principal.asp"<BR>

else

response.write "nome já existe.."

end if

%>

[Mateustg]

Jusi....você tem que colocar uma comparação...dizendo que se o nome já existir ele não deve colocar no banco de dados.

Use um IF... tipo este meu exemplo abaixo, onde faço uma comparação se o campo de email não for preenchido:

If Request.querystring("mode") = "blankemail" then %>

<%

'Create an ADO recordset object

Set rsSiteName = Server.CreateObject("ADODB.Recordset")

'Initialise the strSQL variable with an SQL statement to query the database

strSQL = "SELECT sitename FROM tblAdmin"

'Open the recordset with the SQL query

rsSiteName.Open strSQL, adoCon

Response.Write ("<title>")

Response.Write (rsSiteName("sitename"))

Response.Write (" - Register Error</title>")

Set rsSiteName = Nothing

%>

[Principe]

Josi,.. veja se não está usando letras maiúsculas e minúsculas e espaços,.. tenta assim:

Str = "select nome from cliente where upper(nome) = '"& Trim(UCase(nome)) &"'"