[Resolvido] Erro 2147217900

[Matheus Peres 0]

Boa tarde pessoal, gostaria que vcs me ajudassem, estou tentando desenvolver um cadastro de usuários para um site,

uso base de dados SQL, o SGBD é o SQL Server 2000. O que acontece é que já peguei a estrutura de inclusão no banco de

dados de um outro cadastro no mesmo site, o de lojas, que tem a seguinte condição depois da inclusão:

CODE

If Err.Number = 0 THEN

envia um e-mail avisando que o usuário se cadastrou

.

.

.

Else If Err.Number = -2147217900 THEN

response.Redirect("../INC/MsgErro.asp?Tipo=0&Mensagem=Loja já cadastrada.&URL=../ASP/cadLoja.asp")

Else

response.Redirect("../INC/MsgErro.asp?Tipo=0&Mensagem=Erro na Inclusão.&URL=../ASP/cadLoja.asp")

End If

End If

Aqui está a declaração das variáveis e a recuperação dos dados:

CODE

<%

'Declaracao das variaveis'

Dim Acao

Dim usu_site_tx_nome

Dim usu_site_tx_email

Dim usu_site_tx_senha

Dim usu_site_dh_data_nasc

Dim usu_site_tx_sexo

Dim usu_site_tx_estado_civil

Dim usu_site_tx_escolaridade

Dim usu_site_tx_profissao

Dim usu_site_tx_bairro

Dim usu_site_tx_cidade

Dim usu_site_tx_estado

Dim usu_site_ck_boletins

Dim usu_site_ck_produtos

Dim usu_site_ck_promocoes

Dim usu_site_tx_conheceu

Dim usu_site_tx_outrosconheceu

Dim SQL, Rs

Dim Mensagem, ObjEMail, objConf

 

 

'Recuperando os dados'

Acao = trim(Request.Form("Acao"))

Acao = Replace(Acao,"'","")

usu_site_tx_nome = trim(request.Form("nome"))

usu_site_tx_nome = Replace(usu_site_tx_nome,"'","")

usu_site_tx_email = trim(request.Form("email"))

usu_site_tx_email = Replace(usu_site_tx_email,"'","")

usu_site_tx_senha = trim(request.Form("senha"))

usu_site_tx_senha = Replace(usu_site_tx_senha,"'","")

usu_site_dh_data_nasc = trim(request.Form("dtnasc"))

usu_site_dh_data_nasc = Replace(usu_site_dh_data_nasc,"'","")

usu_site_tx_sexo = trim(request.Form("sexo"))

usu_site_tx_sexo = Replace(usu_site_tx_sexo,"'","")

usu_site_tx_estado_civil = trim(request.Form("estadocivil"))

usu_site_tx_estado_civil = Replace(usu_site_tx_estado_civil,"'","")

usu_site_tx_escolaridade = trim(request.Form("escolaridade"))

usu_site_tx_escolaridade = Replace(usu_site_tx_escolaridade,"'","")

usu_site_tx_profissao = trim(request.Form("profissao"))

usu_site_tx_profissao = Replace(usu_site_tx_profissao,"'","")

usu_site_tx_bairro = trim(request.Form("bairro"))

usu_site_tx_bairro = Replace(usu_site_tx_bairro,"'","")

usu_site_tx_cidade = trim(request.Form("cidade"))

usu_site_tx_cidade = Replace(usu_site_tx_cidade,"'","")

usu_site_tx_estado = trim(request.Form("estado"))

usu_site_tx_estado = Replace(usu_site_tx_estado,"'","")

usu_site_ck_boletins = trim(request.Form("boletins"))

usu_site_ck_boletins = Replace(usu_site_ck_boletins,"'","")

usu_site_ck_produtos = trim(request.Form("produtos"))

usu_site_ck_produtos = Replace(usu_site_ck_produtos,"'","")

usu_site_ck_promocoes = trim(request.Form("promocoes"))

usu_site_ck_promocoes = Replace(usu_site_ck_promocoes,"'","")

usu_site_tx_conheceu = trim(request.Form("Conheceu"))

usu_site_tx_conheceu = Replace(usu_site_tx_conheceu,"'","")

usu_site_tx_outrosconheceu = trim(request.Form("outrosconheceu"))

usu_site_tx_outrosconheceu = Replace(usu_site_tx_outrosconheceu,"'","")

 

E aqui a inclusão:

CODE

If Acao = "I" then

 

On Error Resume Next

SQL = "Insert into USUARIO_SITE ( USU_SITE_TX_NOME, USU_SITE_TX_EMAIL, USU_SITE_TX_SENHA, USU_SITE_DH_DATA_NASC, USU_SITE_TX_SEXO, USU_SITE_TX_ESTADO_CIVIL, USU_SITE_TX_ESCOLARIDADE, USU_SITE_TX_PROFISSAO, USU_SITE_TX_BAIRRO, USU_SITE_TX_CIDADE, USU_SITE_TX_ESTADO, USU_SITE_CK_BOLETINS, USU_SITE_CK_PRODUTOS, USU_SITE_CK_PROMOCOES, USU_SITE_TX_CONHECEU, USU_SITE_DH_CADASTRO) values ('" & usu_site_tx_nome & "','"& usu_site_tx_email & "','" & usu_site_tx_senha & "','" &

usu_site_dh_data_nasc & "','" & usu_site_tx_sexo & "','" & usu_site_tx_estado_civil & "','" & usu_site_tx_escolaridade & "',

'" & usu_site_tx_profissao & "','" & usu_site_tx_bairro & "','" & usu_site_tx_cidade & "','" & usu_site_tx_estado & "',

'" & usu_site_ck_boletins & "','" & usu_site_ck_produtos & "','" & usu_site_ck_promocoes & "',

'" & usu_site_tx_conheceu & "',CONVERT(DATETIME,'" & Now() & "')"

 

 

'response.Write(sql)

'response.End()'

 

Set Rs = Server.CreateObject("ADODB.Command")

Rs.ActiveConnection = cnInfo

Rs.CommandType = 1

Rs.CommandText = SQL

 

 

 

E o que acontece é que eu já tentei de tudo, mas continua dando esse erro e eu não faço idéia do que seja...

Será que alguma alma bondosa poderia me ajudar?

Desde já agradeço.

[Mário Monteiro 179]

o que mais aparece na mensagem de erro?

[Matheus Peres 0]

Não aparece nada, só a mensagem Loja já existente.

se quiser conferir entre em;

http://www.infodica.com.br/desenv/ASP/cadUsuario.asp

 

Ps: posso entrar na campanha tb??? Eu queria só um Bugatti Pur Sang, mas se não tiver, pode ser um fusquinha msm...

[Mário Monteiro 179]

o que precisa fazer apra dar o erro?

[Matheus Peres 0]

só tentar se cadastrar

[Mário Monteiro 179]

A pagina de cadastro que voce passou está redirecionando para http://www.infodica.com.be/

[Matheus Peres 0]

Que doidera :unsure: ... Então vai em www.infodica.com.br/Desenv e clica em Cadastre-se, depois em cadastro de usuário.

[jrcardozo 4]

posta o select que você faz pra comparar se o cadastro já existe

 

outra coisa, retire o on error resume next

[Mário Monteiro 179]

e poe tambem once esta no codigo a parte que escreve essa loja existente

[Matheus Peres 0]

Vo fzer melhor, vo postar o código todo:

CODE

<%@LANGUAGE="VBSCRIPT"%>

<%Option Explicit%>

<!--#include file="../INC/AbreConexao.asp"-->

<%

'Declaracao das variaveis'

Dim Acao

Dim usu_site_tx_nome

Dim usu_site_tx_email

Dim usu_site_tx_senha

Dim usu_site_dh_data_nasc

Dim usu_site_tx_sexo

Dim usu_site_tx_estado_civil

Dim usu_site_tx_escolaridade

Dim usu_site_tx_profissao

Dim usu_site_tx_bairro

Dim usu_site_tx_cidade

Dim usu_site_tx_estado

Dim usu_site_ck_boletins

Dim usu_site_ck_produtos

Dim usu_site_ck_promocoes

Dim usu_site_tx_conheceu

Dim usu_site_tx_outrosconheceu

Dim SQL, Rs

Dim Mensagem, ObjEMail, objConf

 

'Recuperando os dados'

Acao = trim(Request.Form("Acao"))

Acao = Replace(Acao,"'","")

usu_site_tx_nome = trim(request.Form("nome"))

usu_site_tx_nome = Replace(usu_site_tx_nome,"'","")

usu_site_tx_email = trim(request.Form("email"))

usu_site_tx_email = Replace(usu_site_tx_email,"'","")

usu_site_tx_senha = trim(request.Form("senha"))

usu_site_tx_senha = Replace(usu_site_tx_senha,"'","")

usu_site_dh_data_nasc = trim(request.Form("dtnasc"))

usu_site_dh_data_nasc = Replace(usu_site_dh_data_nasc,"'","")

usu_site_tx_sexo = trim(request.Form("sexo"))

usu_site_tx_sexo = Replace(usu_site_tx_sexo,"'","")

usu_site_tx_estado_civil = trim(request.Form("estadocivil"))

usu_site_tx_estado_civil = Replace(usu_site_tx_estado_civil,"'","")

usu_site_tx_escolaridade = trim(request.Form("escolaridade"))

usu_site_tx_escolaridade = Replace(usu_site_tx_escolaridade,"'","")

usu_site_tx_profissao = trim(request.Form("profissao"))

usu_site_tx_profissao = Replace(usu_site_tx_profissao,"'","")

usu_site_tx_bairro = trim(request.Form("bairro"))

usu_site_tx_bairro = Replace(usu_site_tx_bairro,"'","")

usu_site_tx_cidade = trim(request.Form("cidade"))

usu_site_tx_cidade = Replace(usu_site_tx_cidade,"'","")

usu_site_tx_estado = trim(request.Form("estado"))

usu_site_tx_estado = Replace(usu_site_tx_estado,"'","")

usu_site_ck_boletins = trim(request.Form("boletins"))

usu_site_ck_boletins = Replace(usu_site_ck_boletins,"'","")

usu_site_ck_produtos = trim(request.Form("produtos"))

usu_site_ck_produtos = Replace(usu_site_ck_produtos,"'","")

usu_site_ck_promocoes = trim(request.Form("promocoes"))

usu_site_ck_promocoes = Replace(usu_site_ck_promocoes,"'","")

usu_site_tx_conheceu = trim(request.Form("Conheceu"))

usu_site_tx_conheceu = Replace(usu_site_tx_conheceu,"'","")

usu_site_tx_outrosconheceu = trim(request.Form("outrosconheceu"))

usu_site_tx_outrosconheceu = Replace(usu_site_tx_outrosconheceu,"'","")

 

if (usu_site_tx_conheceu = "Outros") Then

 

usu_site_tx_conheceu = usu_site_tx_outrosconheceu

 

End If

 

 

if (usu_site_ck_boletins = "on") Then

usu_site_ck_boletins = "S"

End If

 

if (usu_site_ck_produtos = "produtos") Then

usu_site_ck_produtos = "S"

End If

 

if (usu_site_ck_promocoes = "promocoes") Then

usu_site_ck_promocoes = "S"

End If

 

if (usu_site_ck_boletins = "") Then

usu_site_ck_boletins = "N"

End If

 

if (usu_site_ck_produtos = "") Then

usu_site_ck_produtos = "N"

End If

 

if (usu_site_ck_promocoes = "") Then

usu_site_ck_promocoes = "N"

End If

 

if(usu_site_tx_sexo = "Masculino") Then

usu_site_tx_sexo = "M"

else

if(usu_site_tx_sexo = "Feminino") Then

usu_site_tx_sexo = "F"

End If

 

'Inclusao'

If Acao = "I" then

 

'On Error Resume Next

'SQL = "Insert into USUARIO_SITE ( USU_SITE_TX_NOME, USU_SITE_TX_EMAIL, USU_SITE_TX_SENHA, USU_SITE_DH_DATA_NASC, USU_SITE_TX_SEXO, USU_SITE_TX_ESTADO_CIVIL, USU_SITE_TX_ESCOLARIDADE, USU_SITE_TX_PROFISSAO, USU_SITE_TX_BAIRRO, USU_SITE_TX_CIDADE, USU_SITE_TX_ESTADO, USU_SITE_CK_BOLETINS, USU_SITE_CK_PRODUTOS, USU_SITE_CK_PROMOCOES, USU_SITE_TX_CONHECEU, USU_SITE_DH_CADASTRO,) values ('" & usu_site_tx_nome & "','"& usu_site_tx_email & "','" & usu_site_tx_senha & "','" & usu_site_dh_data_nasc & "','" & usu_site_tx_sexo & "','" & usu_site_tx_estado_civil & "','" & usu_site_tx_escolaridade & "','" & usu_site_tx_profissao & "','" & usu_site_tx_bairro & "','" & usu_site_tx_cidade & "','" & usu_site_tx_estado & "','" & usu_site_ck_boletins & "','" & usu_site_ck_produtos & "','" & usu_site_ck_promocoes & "','" & usu_site_tx_conheceu & "','" & Now() & "')"

 

On Error Resume Next

SQL = "Insert into USUARIO_SITE ( USU_SITE_TX_NOME, USU_SITE_TX_EMAIL, USU_SITE_TX_SENHA, USU_SITE_DH_DATA_NASC, USU_SITE_TX_SEXO, USU_SITE_TX_ESTADO_CIVIL, USU_SITE_TX_ESCOLARIDADE, USU_SITE_TX_PROFISSAO, USU_SITE_TX_BAIRRO, USU_SITE_TX_CIDADE, USU_SITE_TX_ESTADO, USU_SITE_CK_BOLETINS, USU_SITE_CK_PRODUTOS, USU_SITE_CK_PROMOCOES, USU_SITE_TX_CONHECEU,) values ('" & usu_site_tx_nome & "','"& usu_site_tx_email & "','" & usu_site_tx_senha & "','" & usu_site_dh_data_nasc & "','" & usu_site_tx_sexo & "','" & usu_site_tx_estado_civil & "','" & usu_site_tx_escolaridade & "','" & usu_site_tx_profissao & "','" & usu_site_tx_bairro & "','" & usu_site_tx_cidade & "','" & usu_site_tx_estado & "','" & usu_site_ck_boletins & "','" & usu_site_ck_produtos & "','" & usu_site_ck_promocoes & "','" & usu_site_tx_conheceu & "',)"

 

 

'response.Write(sql)

'response.End()

 

Set Rs = Server.CreateObject("ADODB.Command")

Rs.ActiveConnection = cnInfo

Rs.CommandType = 1

Rs.CommandText = SQL

 

Rs.Execute

If Err.Number = 0 THEN

'Se tudo correr bem, envia e-mail informando que uma loja foi cadastrada.'

'cria o objeto para o envio de e-mail'

Set ObjEMail = CreateObject("CDO.Message")

 

'cria o objeto para configuração do SMTP'

Set objConf = Server.CreateObject ("CDO.Configuration")

 

'SMTP'

objConf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"

 

'porta do SMTP'

objConf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

 

'porta do CDO'

objConf.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

 

'timeout'

objConf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30

 

objConf.Fields.update

 

'atualiza a configuração do CDOSYS para o envio do e-mail'

Set ObjEMail.Configuration = objConf

 

'Preencho os campos com as informações necessárias'

ObjEMail.From = "..."

ObjEMail.To = "..."

'ObjEMail.To = "..."'

 

ObjEMail.Subject = "Um novo USUÁRIO se cadastradou no InfoDica."

 

 

Mensagem = "O usuário: '"& usu_site_tx_nome & "' se cadastrou no InfoDica no dia: " & Date & ". Tomou conhecimento atraves de: '" & usu_site_tx_conheceu &"'."

 

ObjEMail.TextBody = Mensagem

 

ObjEMail.fields.update

 

'Envio o email'

ObjEMail.Send

 

 

'Destroi os objetos'

Set ObjEMail = nothing

Set objConf = nothing

response.Redirect("../INC/MsgErro.asp?Tipo=1&Mensagem=Cadastro Efetuado.&URL=../index.asp")

Else If Err.Number = -2147217900 THEN

response.Redirect("../INC/MsgErro.asp?Tipo=0&Mensagem=Loja já existente.&URL=../ASP/cadUsuario.asp")

Else

response.Redirect("../INC/MsgErro.asp?Tipo=0&Mensagem=Erro na Inclusão.&URL=../ASP/cadUsuario.asp")

End If

End If

 

On Error Goto 0

 

End If

%>

<!--#include file="../INC/FechaConexao.asp"-->

Ps: O que está em itálico, foi uma gambiarra só pra inclusão ficar direitinha...

Espero que possam me ajudar, desde já agradeço!

Att

Matheus Peres

[Mário Monteiro 179]

Isso é um tratamento que está fazendo aqui

 

Else If Err.Number = -2147217900 THEN
response.Redirect("../INC/MsgErro.asp?Tipo=0&Mensagem=Loja já existente.&URL=../ASP/cadUsuario.asp

Voce mesmo que fez isso ou copiou de outro lugar?

[Matheus Peres 0]

Copiei de um cadastro de lojas e só mudei a parte do banco, e das variáveis.

[Mário Monteiro 179]

Mas ai é que mora o problema

 

talvez o cadastro qeu voce pegou seja mais complexo do que voce precisava e so mudar umas variaveis nao resolva os problemas que surjam

[Matheus Peres 0]

Cara, a complexidade não é muito diferente não, só são necessárias mais variáveis pois tem que ser cadastrados mais dados. A tabela também é bem parecida.

[Matheus Peres 0]

mandei escrever o nº do erro e a descrição

saiu isso:

-2147217900 [Microsoft][ODBC SQL Server Driver]

Line 1: Incorrect syntax near ')'.

[Matheus Peres 0]

Achei o erro. Na hora da inclusão, quando to declarando os campos, tem uma vírgula no final, antes do parêntese. Mas valeu ae pela ajuda pessoal!!

[Mário Monteiro 179]

Que bom que encontrou o erro