Alguem me a achar o erro ?

[otaviohm 0]

SQL2 = "INSERT INTO empresas (Cod_Anunciante, Tipo, Razao, Fantasia, Inscricao_Estadual, CNPJ, DDD, Telefone, DDD_2, Telefone_2, Email, Estado, Cidade, Bairro, CEP, Rua, Numero, Complemento, Responsavel, CRECI)"&_" VALUES ( '" & codigo & "', '" & tipo & "', '" & razao & "', '" & fantasia & "', '" & inscricao & "', '" & cnpj & "', '" & ddd1 & "', '" & telefone1 & "', '" & ddd2 & "', '" & telefone2 & "', '"& email &"', '" & estado & "', '" & cidade & "', '" & bairro & "', '" & cep & "', '" & rua & "', '" & numero & "'"&_", '" & complemento & "', '"& responsavel &"', '"& creci &"')"

onde tah errado aqui ?????

=(

 

 

nao acho.

sério!

[hargon 64]

Posta a msg de erro que aparece no navegador.

[otaviohm 0]

não aparece Erro.simplesmente nao cadastra ;/

[sr.silva 1]

<%SQL2 = "INSERT INTO EMPRESAS "SQL = SQL & "( COD_ANUNCIANTE, TIPO , RAZAO , FANTASIA, INSCRICAO_ESTADUAL, CNPJ , DDD, TELEFONE "SQL = SQL & " DDD_2, TELEFONE_2 , EMAIL, ESTADO, CIDADE, BAIRRO, CEP, RUA, NUMERO, COMPLEMENTO, RESPONSAVEL, CRECI )"SQL = SQL & "  VALUES "SQL = SQL & " ( "&codigo&", '"&tipo&"', '"&razao&"', '"&fantasia&"','"&inscricao&"', '"cnpj "', "SQL = SQL & "  "&ddd1&", '"&telefone1&"', "&ddd2&" , '"&telefone2&"', '"&email&"' , "SQL = SQL & "  '"&estado&"', '"&cidade&"', '"&bairro&"', '"&cep&"', '"&rua&"', "&numero&" , "SQL = SQL & " '"&complemento&"', '"&responsavel&"', '"&creci&"') "%>

Atencao a cadastro de String e Numeros.... ' " & strVariavel & " ' e

" strVariavel "

[otaviohm 0]

usei esse codigo acima, agora deu esse erro

 

Microsoft VBScript compilation error '800a0401'

 

Expected end of statement

 

/cad_juridico.asp, line 36

 

SQL = SQL & " ( "&codigo&", '"&tipo&"', '"&razao&"', '"&fantasia&"','"&inscricao&"', '"cnpj "', "

---------------------------------------------------------------------------------------^

[hargon 64]

O código acima deu erro porque na primeira linha o Bruno colocou SQL2 e no resto utilizou SQL. Se você copiou igual, ficou errado mesmo.

[otaviohm 0]

não cara, eu alterei isso sim.da o mesmo erro ainda ;S

[hargon 64]

O campo cnpj estava sem &

 

Tenta esse código agora.

 

<%

SQL2 = "INSERT INTO EMPRESAS "

SQL = SQL & "( COD_ANUNCIANTE, TIPO , RAZAO , FANTASIA, INSCRICAO_ESTADUAL, CNPJ , DDD, TELEFONE "

SQL = SQL & " DDD_2, TELEFONE_2 , EMAIL, ESTADO, CIDADE, BAIRRO, CEP, RUA, NUMERO, COMPLEMENTO, RESPONSAVEL, CRECI )"

SQL = SQL & " VALUES "

SQL = SQL & " ( "&codigo&", '"&tipo&"', '"&razao&"', '"&fantasia&"','"&inscricao&"', '"&cnpj& "', "

SQL = SQL & " "&ddd1&", '"&telefone1&"', "&ddd2&" , '"&telefone2&"', '"&email&"' , "

SQL = SQL & " '"&estado&"', '"&cidade&"', '"&bairro&"', '"&cep&"', '"&rua&"', "&numero&" , "

SQL = SQL & " '"&complemento&"', '"&responsavel&"', '"&creci&"') "

%>

[otaviohm 0]

agora ele fala q a pagina nao pode ser exibida :Ssendo que a pagina esta lá :S

[otaviohm 0]

o codigo inteiro é esse

 

<!-- #INCLUDE FILE="conexaobd.asp" --><%tipo = (Request("tipo"))razao = (Request("j_razao"))fantasia = (Request("j_fantasia"))inscricao = (Request("j_inscricao"))cnpj = (Request("j_cnpj"))reCNPJ = cnpjtirafora = Replace(reCNPJ,".","")tirafora = Replace(tirafora,"/","")tirafora = Replace(tirafora,"-","")codigo = tiraforasenha = (Request("j_senha"))ddd1 = (Request("j_ddd"))telefone1 = (Request("j_telefone"))ddd2 = (Request("j_ddd2"))telefone2 = (Request("j_telefone2"))email = (Request("j_email"))estado = (Request("estado"))cidade = (Request("municipio"))bairro = (Request("j_bairro"))cep = (Request("j_cep"))rua = (Request("j_rua"))numero = (Request("j_numero"))complemento = (Request("j_complemento"))responsavel = (Request("j_responsavel"))foto = ""creci = (Request("j_creci"))SQL = "INSERT INTO EMPRESAS "SQL = SQL & "( COD_ANUNCIANTE, TIPO , RAZAO , FANTASIA, INSCRICAO_ESTADUAL, CNPJ , DDD, TELEFONE "SQL = SQL & " DDD_2, TELEFONE_2 , EMAIL, ESTADO, CIDADE, BAIRRO, CEP, RUA, NUMERO, COMPLEMENTO, RESPONSAVEL, CRECI )"SQL = SQL & " VALUES "SQL = SQL & " ( "&codigo&", '"&tipo&"', '"&razao&"', '"&fantasia&"','"&inscricao&"', '"&cnpj& "', "SQL = SQL & " "&ddd1&", '"&telefone1&"', "&ddd2&" , '"&telefone2&"', '"&email&"' , "SQL = SQL & " '"&estado&"', '"&cidade&"', '"&bairro&"', '"&cep&"', '"&rua&"', "&numero&" , "SQL = SQL & " '"&complemento&"', '"&responsavel&"', '"&creci&"') "			Conexao.Execute SQL2If Session("Acesso") <> "" ThenSQL = "INSERT INTO anunciantes (Nome,CPF,Senha,Email,DDD,Telefone,Foto) VALUES ('"&razao&"','"&codigo&"','"&senha&"','"&email&"',"&ddd1&","&telefone1&",'"&foto&"')"Conexao.Execute SQLSession("logon") = codigoSession("pnome") = razaoSession.Contents.Remove("Acesso")End IfResponse.Redirect "adm_index.asp"%>

[hargon 64]

Essa página não pode ser exibida não seria a página adm_index.asp ?

[otaviohm 0]

não!é a propria pagina mesmo!!!

[otaviohm 0]

ainda nao consegui fazer funcionar ;/

[hargon 64]

além de aparecer que a "Página não pode ser exibida" é listado algum outro erro?