Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

majaque

ERRO NO INSERT COM BANCO SQL server

Por , em ASP Clássico

Recommended Posts

majaque    0

majaque
Postado

pessoal.tudo bom ?Seguinte... estou fazendo um insert em um banco de dados sql server, a pagina nao da nennhum erro mas nao está inserindo ..gostaria de saber oque está faltando na pagina. a conexao com o banco é feita fora dela..estou usando um include.<% 'Força a declaração de todas as variáveis Option Explicit 'Não deixa informações no Cache Response.Expires = 0 'Declaração das variáveis ' Include com a conexão do banco de dados. <!--#include file="./include/global_var.asp"--> <!--#include file="./include/abre_banco.asp"--> Dim objConn, objRs, strQuery, strConnection, chave,nome,lotacao,data_atual,ramal,sala,data_agenda,hora_ini,hora_final,assunto, recursos, participantes, observacoes,strSql,rs,conexao 'Atrubuição dos valores as respectivas variáveis chave = ucase(trim(request("chave"))) nome= ucase(trim(request("nome_solic"))) lotacao= ucase(trim(request("lotacao"))) data_atual= ucase(trim(request("data_atual"))) ramal= ucase(trim(request("ramal"))) sala= ucase(trim(request("sala"))) data_agenda= ucase(trim(request("date1"))) hora_ini= ucase(trim(request("hora_ini"))) hora_final= ucase(trim(request("hora_final"))) assunto= ucase(trim(request("assunto"))) recursos= ucase(trim(request("recursos"))) participantes= ucase(trim(request("participantes"))) observacoes= ucase(trim(request("observacoes"))) 'response.write chave & " - " & nome & " - " & lotacao & " - " & data_atual & " - " & ramal & " - " & sala & " - " & data_agenda & " - " & hora_ini & " - " & hora_final& " - " & assunto& " - " & recursos& " - " & participantes& " - " & observacoes'response.End strQuery = "INSERT INTO CAD_SALA_CETRE (CASC_TX_CHAVE,CASC_TX_NOME,CASC_TX_LOTACAO,CASC_TX_RAMAL,CASC_DT_DATACAD,CASC_TX_DATAAGENDA,CASC_TX_SALA,CASC_TX_HORAINI,CASC_TX_HORAFIN,CASC_TX_ASSUNTO,CASC_TX_RECURSOS,CASC_TX_OBS,CASC_TX_NUMPARTICI) VALUES ('"&chave&"','"&nome&"','"&lotacao&"','"&ramal&"','"&data_atual&"','"&data_agenda&"','"&hora_ini&"','"&hora_final&"','"&assunto&"', '"&recursos&"', '"&observacoes&"', '"&participantes&"')" On error Resume Next 'Executa a inserção no Banco de Dados Set strConnection = objConn.Execute(strQuery) 'Fecha o Objeto de Conexão strConnection.close '"APAGA" qualquer instancia que possa ter no objeto objRs e objConn Set strConnection = Nothing 'Caso a função On Error Resume Next não tenha sido chamada o objeto err será = a 0if err = 0 Then'Mensagem enviada para o solicitante. Set objeto = CreateObject("Scripting.FileSystemObject") Set escrita = objeto.OpenTextFile(txtPath,ForWriting,True) Set Mailer = CreateObject("CDONTS.NewMail") Mailer.From = "SO. NET " + "@petrobras.com.br" Mailer.To = chave + "@petrobras.com.br" Mailer.BodyFormat = 1 Mailer.MailFormat = cdoMailFormatText Mailer.Subject = "Dados da solicitação de " Mailer.Body = "Sua mensagem foi recebida pela nossa Equipe. Aguarde o contato e obrigado por utilizar o sistema SO.NET. Caso queira consultar sua solicitação, use o número em anexo." Set Mailer = Nothing'Caso não haja nenhum erro, um correio é enviado para o responavél do SO, falando da solicitação e a suas descrição. Set objeto = CreateObject("Scripting.FileSystemObject") Set escrita = objeto.OpenTextFile(txtPath,ForWriting,True) Set Mailer = CreateObject("CDONTS.NewMail") Mailer.From = "SO. NET " + "@petrobras.com.br" Mailer.To = "xvhw@petrobras.com.br" Mailer.BodyFormat = 1 Mailer.MailFormat = cdoMailFormatText Mailer.Subject = "Uma nova solicitação de " Mailer.Body = "Uma nova Requisição foi feita por " Mailer.Send Set Mailer = Nothing end if %><HTML> <HEAD> <TITLE>Higienização de Uniformes - Gravar</TITLE> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /><style type="text/css"><!--.style1 { color: #006600; font-weight: bold; font-size: 36px;}#Layer1 { position:absolute; width:200px; height:115px; z-index:1; left: 226px; top: 125px; background-color: #000000;}body { }.style2 { font-size: 18px; font-weight: bold;}.style3 {color: #FF6600; font-weight: bold; font-size: 24px; }#Layer2 { position:absolute; width:200px; height:115px; z-index:1; left: 581px; top: 0px;}--></style></HEAD> <BODY bgcolor="#FFFFFF" vlink="#000000" alink="#000000" link="#000000"><% texto=Request.Form("caixa") gravar(texto) %> <div align="center"> <p> </p> <p align="left"> </p> <p align="left" class="style1">GESTOR RH </p> <div id="Layer2"><img src="figuras_programas/higi1.png" width="400" height="267"></div> <p align="left" class="style3">RESERVA DE SALAS CETRE </p> <p align="left"><span class="style2">Sua solicitação foi enviada com sucesso! </span><br> <strong>Confira os dados abaixo ! </strong></p> <p align="left"><strong>Código :</strong> <%= chave%><br> <strong>Tipo Manutenção :</strong> <%= nome%> .<br> <strong>Local :</strong> <%= Local %> .<br> <strong>Descrição :<br> </strong><%=descricao%> <br> <strong>Observação :</strong><br> <%=observacao%> .<br> </p> <p align="center"> | <a title="Cadastrar uma nova solicitação" href="huniformes_usu_frmcadastrar.asp" style="text-decoration: none">Cadastrar Novo </a>| Página Inicial |</p></div><p align="center"><a href="fale.asp"></a> </BODY> </HTML>bjinhusss e valew

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

tira o On error Resume Next para aparecer o erro que ta rolando

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

voce tirou o treco lá?poe o novo codigo entao

Compartilhar este post

Link para o post
Compartilhar em outros sites

majaque    0

majaque
Postado

esta falando a estrutura do insert.. eu não sei como executar nem fechar as conexões..porque antes eu fazia com tabela em access...agora é sql server..brigadoo pela ajuda kerido..bjinhusAgora eu tirei o resume on error e está dando a pagina não pode ser exibida.<% 'Força a declaração de todas as variáveis Option Explicit 'Não deixa informações no Cache Response.Expires = 0 'Declaração das variáveis ' Include com a conexão do banco de dados. <!--#include file="./include/global_var.asp"--> <!--#include file="./include/abre_banco.asp"--> Dim objConn, objRs, strQuery, strConnection, chave,nome,lotacao,data_atual,ramal,sala,data_agenda,hora_ini,hora_final,assunto, recursos, participantes, observacoes,strSql,rs,conexao 'Atrubuição dos valores as respectivas variáveis chave = ucase(trim(request("chave"))) nome= ucase(trim(request("nome_solic"))) lotacao= ucase(trim(request("lotacao"))) data_atual= ucase(trim(request("data_atual"))) ramal= ucase(trim(request("ramal"))) sala= ucase(trim(request("sala"))) data_agenda= ucase(trim(request("date1"))) hora_ini= ucase(trim(request("hora_ini"))) hora_final= ucase(trim(request("hora_final"))) assunto= ucase(trim(request("assunto"))) recursos= ucase(trim(request("recursos"))) participantes= ucase(trim(request("participantes"))) observacoes= ucase(trim(request("observacoes"))) strQuery = "INSERT INTO CAD_SALA_CETRE (CASC_TX_CHAVE,CASC_TX_NOME,CASC_TX_LOTACAO,CASC_TX_RAMAL,CASC_DT_DATACAD,CASC_TX_DATAAGENDA,CASC_TX_SALA,CASC_TX_HORAINI,CASC_TX_HORAFIN,CASC_TX_ASSUNTO,CASC_TX_RECURSOS,CASC_TX_OBS,CASC_TX_NUMPARTICI) VALUES ('"&chave&"','"&nome&"','"&lotacao&"','"&ramal&"','"&data_atual&"','"&data_agenda&"','"&hora_ini&"','"&hora_final&"','"&assunto&"', '"&recursos&"', '"&observacoes&"', '"&participantes&"')" 'Executa a inserção no Banco de Dados Set strConnection = objConn.Execute(strQuery) 'Fecha o Objeto de Conexão strConnection.close '"APAGA" qualquer instancia que possa ter no objeto objRs e objConn Set strConnection = Nothing 'Caso a função On Error Resume Next não tenha sido chamada o objeto err será = a 0if err = 0 Then'Mensagem enviada para o solicitante. Set objeto = CreateObject("Scripting.FileSystemObject") Set escrita = objeto.OpenTextFile(txtPath,ForWriting,True) Set Mailer = CreateObject("CDONTS.NewMail") Mailer.From = "SO. NET " + "@petrobras.com.br" Mailer.To = chave + "@petrobras.com.br" Mailer.BodyFormat = 1 Mailer.MailFormat = cdoMailFormatText Mailer.Subject = "Dados da solicitação de " Mailer.Body = "Sua mensagem foi recebida pela nossa Equipe. Aguarde o contato e obrigado por utilizar o sistema SO.NET. Caso queira consultar sua solicitação, use o número em anexo." Set Mailer = Nothing'Caso não haja nenhum erro, um correio é enviado para o responavél do SO, falando da solicitação e a suas descrição. Set objeto = CreateObject("Scripting.FileSystemObject") Set escrita = objeto.OpenTextFile(txtPath,ForWriting,True) Set Mailer = CreateObject("CDONTS.NewMail") Mailer.From = "SO. NET " + "@petrobras.com.br" Mailer.To = "xvhw@petrobras.com.br" Mailer.BodyFormat = 1 Mailer.MailFormat = cdoMailFormatText Mailer.Subject = "Uma nova solicitação de " Mailer.Body = "Uma nova Requisição foi feita por " Mailer.Send Set Mailer = Nothing end if %><HTML> <HEAD> <TITLE>Higienização de Uniformes - Gravar</TITLE> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /><style type="text/css"><!--.style1 { color: #006600; font-weight: bold; font-size: 36px;}#Layer1 { position:absolute; width:200px; height:115px; z-index:1; left: 226px; top: 125px; background-color: #000000;}body { }.style2 { font-size: 18px; font-weight: bold;}.style3 {color: #FF6600; font-weight: bold; font-size: 24px; }#Layer2 { position:absolute; width:200px; height:115px; z-index:1; left: 581px; top: 0px;}--></style></HEAD> <BODY bgcolor="#FFFFFF" vlink="#000000" alink="#000000" link="#000000"><% texto=Request.Form("caixa") gravar(texto) %> <div align="center"> <p> </p> <p align="left"> </p> <p align="left" class="style1">GESTOR RH </p> <div id="Layer2"><img src="figuras_programas/higi1.png" width="400" height="267"></div> <p align="left" class="style3">RESERVA DE SALAS CETRE </p> <p align="left"><span class="style2">Sua solicitação foi enviada com sucesso! </span><br> <strong>Confira os dados abaixo ! </strong></p> <p align="left"><strong>Código :</strong> <%= chave%><br> <strong>Tipo Manutenção :</strong> <%= nome%> .<br> <strong>Local :</strong> <%= Local %> .<br> <strong>Descrição :<br> </strong><%=descricao%> <br> <strong>Observação :</strong><br> <%=observacao%> .<br> </p> <p align="center"> | <a title="Cadastrar uma nova solicitação" href="huniformes_usu_frmcadastrar.asp" style="text-decoration: none">Cadastrar Novo </a>| Página Inicial |</p></div><p align="center"><a href="fale.asp"></a> </BODY> </HTML>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

poe aqui o erro...

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito