Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
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
%>
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.
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.CloseE 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("")
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.
Da alguma mensagem de erro?
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?
esta pagina ja esta publicada?
nao é obrigado a criar recordset para insert, delete e update mas logico que nao é isso o erro
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
%>