Erro na Linha 38

[Surfaum 0]

/sistema/contratograva.asp, linha 38

 

35 Else

36 Sql = "INSERT INTO contratos (analista, nome, endereco, cep, bairro, cidade, estado, telefone, celular, rg, cpf, email, dia, mes, ano, forma, rs, orientador) "

37 Sql = Sql & "VALUES('" & Request.Form("analista") & "', '" & Request.Form("nome") & "', '" & Request.Form("endereco") & "', '" & Request.Form("cep") & "', '" & Request.Form("bairro") & "', '" & Request.Form("cidade") & "', '" & Request.Form("estado") & "', '" & Request.Form("telefone") & "', '" & Request.Form("celular") & "', '" & Request.Form("rg") & "', '" & Request.Form("cpf") & "', '" & Request.Form("email") & "', '" & Request.Form("dia") & "', '" & Request.Form("mes") & "', '" & Request.Form("ano") & "', '" & Request.Form("forma") & "', '" & Request.Form("rs") & "', '" & Request.Form("orientador") & "')"

38 Conexao.Execute(Sql)

39 Cadastrado = True

40 End If

41 End If

42 If Cadastrado = False Then

43 Else

42 %>

[ripoli 0]

Sem o código todo e sem conhecer a estrutura de sua tabela é difícil sugerir.Mas vamos tentar, o erro na linha 38 significa apenas que o script não consegue executar a instrução SQL.Algumas vezes esse erro acontece por haver erro de consistência de dados na tabela quer dizer, você pode estar inserindo dado de determinado tipo em campo com tipo diferente.Ripoli

[Surfaum 0]

Foi exatamente u q eu imaginei... mas conferir... tdos os campos da tabela.. tem no form pra inserir...

[filipescoob 1]

Toma ai kara... criei um access e testei funcionou beleza... abraços

 

<%stranalista = Request.Form("analista")strnome = Request.Form("nome")strendereco = Request.Form("endereco")strcep = Request.Form("cep")strbairro = Request.Form("bairro")strcidade = Request.Form("cidade")strestado = Request.Form("estado")strtelefone = Request.Form("telefone")strcelular = Request.Form("celular")strrg = Request.Form("rg") strcpf = Request.Form("cpf")stremail = Request.Form("email")strdia = Request.Form("dia")strmes =  Request.Form("mes")strano = Request.Form("ano")strforma = Request.Form("forma")strrs = Request.Form("rs")strorientador = Request.Form("orientador")Elseset rs_inserir = Server.CreateObject("adodb.Recordset")Sql = "INSERT INTO contratos (analista, nome, endereco, cep, bairro, cidade, estado, telefone, celular, rg, cpf, email, dia, mes, ano, forma, rs, orientador) "Sql = Sql & "VALUES('" & stranalista & "', '" & strnome & "', '" & strendereco & "', '" & strcep & "', '" & strbairro & "', '" & strcidade & "', '" & strestado & "', '" & strtelefone & "', '" & strcelular & "', '" & strrg & "', '" & strcpf & "', '" stremail&  & "', '" & strdia & "', '" & strmes & "', '" & strano & "', '" & strforma & "', '" & strrs & "', '" & strorientador & "')" set rs_inserir = Conexao.Execute(Sql)Cadastrado = TrueEnd IfEnd IfIf Cadastrado = False Then Else%>

O que estava faltando era,

 

set rs_inserir = Server.CreateObject("adodb.Recordset")...set rs_inserir = Conexao.Execute(Sql)

[Mário Monteiro 179]

qual o erro que ta dando???

[Surfaum 0]

Informações técnicas (para o pessoal do suporte)Tipo de erro:Microsoft OLE DB Provider for ODBC Drivers (0x80004005)[Microsoft][Driver ODBC para Microsoft Access] A operação deve usar uma consulta atualizável./sistema/contratograva.asp, linha 38Browser Type:Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1) Page:POST 184 bytes para /sistema/contratograva.aspDados POSTenviado=sim&analista=kk&Submit=Cadastrar&nome=k&endereco=k&cep=kk&bairro=k&cidade=k&estado=k&telefone=k&celular=k&rg=kk&cpf=k&email=k&dia=k&mes=k&ano=k&formas=k&rs=kkkk&orientador=kkkk Hora:terça-feira, 9 de maio de 2006, 14:30:58 Mais informações:Suporte técnico da Microsoft

[Surfaum 0]

Bom vou postar o cód inteiro pra ficar mais facil pra você... estranho q antes rodava certinhu esse cód <_<

 

<!--#include file="contratobanco.asp"--><center><% AbreConexaoIf request.form("enviado") = "sim" ThenCadastrado =Falseset Dicionario = CreateObject("scripting.dictionary")i = 0Sql = "SELECT cpf FROM contratos WHERE cpf = '"&Request.form("cpf")&"'"set Rs =Conexao.Execute(Sql)If not Rs.Eof thenDicionario.add i, "CPF já cadastrado!"i= i+1end ifSql = "SELECT rg FROM contratos WHERE rg = '"&Request.form("rg")&"'"set Rs =Conexao.Execute(Sql)If not Rs.Eof thenDicionario.add i, "RG já cadastrado!"i= i+1end ifVet = Dicionario.itemsif Dicionario.Count<>0 thenResponse.Write "<b><center><font face=verdana size=1>"Response.Write "O(s) seguintes dado(s) está(ão) incorreto(s)<BR><br>"for i = 0 to Dicionario.Count - 1Response.Write vet(i) & "<BR><br>"nextresponse.write "<BR><br>"ElseSql = "INSERT INTO contratos (analista, nome, endereco, cep, bairro, cidade, estado, telefone, celular, rg, cpf, email, forma, rs, orientador) "Sql = Sql & "VALUES('" & Request.Form("analista") & "', '" & Request.Form("nome") & "', '" & Request.Form("endereco") & "', '" & Request.Form("cep") & "', '" & Request.Form("bairro") & "', '" & Request.Form("cidade") & "', '" & Request.Form("estado") & "', '" & Request.Form("telefone") & "', '" & Request.Form("celular") & "', '" & Request.Form("rg") & "', '" & Request.Form("cpf") & "', '" & Request.Form("email") & "', '" & Request.Form("forma") & "', '" & Request.Form("rs") & "', '" & Request.Form("orientador") & "')" Conexao.Execute(Sql)Cadastrado = TrueEnd IfEnd IfIf Cadastrado = False Then Else%> <p align="center"><font face="Verdana" size="1">Cadastrado com sucesso!<BR>Volte e Visualize o Contrato <font color="#FF0000"><a href="contrato.asp"><font face="Verdana" size="1" color="#FF0000">ClicandoAqui! </font></a></font><% End If %></center>

[Mário Monteiro 179]

este é erro de permissao apenasvoce precisa configurar o servidor...