Meu insert não funciona

[maya10 0]

Tenho o código abaixo, sempre utilizei ele, mas agora não está funcionando, o porblema é que não parece erro, simplesmente não insere o registro, ja verifiquei a conexão com o BD, está ok, pois consigor ler os registros existentes. alguém me ajude.

 

CODE

<%

vr_nome = request.Form("nome")

vr_email = request.Form("email")

vr_telefone = request.Form("telefone")

vr_cidade = request.Form("cidade")

vr_assunto = request.Form("assunto")

vr_texto = request.Form("texto")

 

 

 

strSQL ="insert into TB_CONTATOS (CONT_TITULO,CONT_NOME,CONT_EMAIL,CONT_TEL,CONT_CIDADE,CONT_TEXTO) values ('"&vr_assunto&"','"&vr_nome&"','"&vr_email&"','"&vr_telefone&"','"&vr_cidade&"','"&vr_texto&"')"

ConnStr.Execute(strSQL)

 

set conn = Server.CreateObject("ADODB.Connection")

conn.open "con_rei_01","",""

set rs = conn.execute(strSQL)

set rs=nothing

%>

[maya10 0]

A duvida é a mesma, masu eu postei o codigo errado abaixo: me ajudem a resolver esta situação, pois não sonsigo fazer este troço funcionar.

 

CODE

<%

vr_nome = request.Form("nome")

vr_email = request.Form("email")

vr_telefone = request.Form("telefone")

vr_cidade = request.Form("cidade")

vr_assunto = request.Form("assunto")

vr_texto = request.Form("texto")

 

 

 

sqlstmt ="insert into TB_CONTATOS (CONT_TITULO,CONT_NOME,CONT_EMAIL,CONT_TEL,CONT_CIDADE,CONT_TEXTO) values ('"&vr_assunto&"','"&vr_nome&"','"&vr_email&"','"&vr_telefone&"','"&vr_cidade&"','"&vr_texto&"')"

set conn = Server.CreateObject("ADODB.Connection")

conn.open "con_rei_01","",""

set rs = conn.execute(sqlstmt)

set rs=nothing

%>

[Giancarlo Braga 0]

No IIS veja as permissões para esse site.

Talvez tenha faltado alguma.

 

Mas pode ser algum erro no SQL.

Dica?

 

Dá um response.write na sua string e tenta usá-la diretamente no SQL Server.

Isso chama-se debugar. E para nós programadores salva a vida muitas vezes.

 

Abraço,

Giancarlo Braga.

[Vanilson 2]

Maya tente o seguinte:

Crie um RecordSet, por exemplo:

set ins=Server.Creatobject("ADODB.Recordset")
De seguida utilize o comando ADDNEW fazendo assim
ins.AddNew
ins("Nome dos campos que se encotram no Banco de dados").Fields=Nome da variavel que recebe o parametro.
ins.Update
ins.Close

E retire a sintaxe SQL que tens.

 

Outra dica, tente verificar o atributo METHOD. Se tiveres a utilizar o POST deves receber com o REQUEST.FORM("") se for o GET deves receber com o REQUEST.QUERYSTRING("")

[maya10 0]

Sou umpouco amador no assunto, por isso se possivel me ajude mostrando como seguir sua sugestão. Obrigado.

 

 

No IIS veja as permissões para esse site.

Talvez tenha faltado alguma.

 

Mas pode ser algum erro no SQL.

Dica?

 

Dá um response.write na sua string e tenta usá-la diretamente no SQL Server.

Isso chama-se debugar. E para nós programadores salva a vida muitas vezes.

 

Abraço,

Giancarlo Braga.

[Mário Monteiro 179]

Da alguma mensagem de erro?

[maya10 0]

Não aparece mensagem de erro, corre udo bem, mas quando abro o BD, vejo que nada foi incerido,eu utilizo o codigo abaixo:

 

 

<%

vr_nome = request.Form("nome")

vr_email = request.Form("email")

vr_telefone = request.Form("telefone")

vr_cidade = request.Form("cidade")

vr_assunto = request.Form("assunto")

vr_texto = request.Form("texto")

 

sqlstmt ="insert into TB_CONTATOS (CONT_TITULO,CONT_NOME,CONT_EMAIL,CONT_TEL,CONT_CIDADE,CONT_TEXTO) values ('"&vr_assunto&"','"&vr_nome&"','"&vr_email&"','"&vr_telefone&"','"&vr_cidade&"','"&vr_texto&"')"

 

set conn = Server.CreateObject("ADODB.Connection")

conn.open "con_rei_01","",""

set rs = conn.execute(sqlstmt)

set rs=nothing

 

%>

 

 

 

Da alguma mensagem de erro?

[Mário Monteiro 179]

esta pagina ja esta publicada?

 

nao é obrigado a criar recordset para insert, delete e update mas logico que nao é isso o erro