Ir para conteúdo

POWERED BY:

Arquivado

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

valterjrs

Registros Duplicados

Por , em ASP Clássico

Recommended Posts

valterjrs    0

valterjrs
Postado

Pessoal,

Tenho o código abaixo e o mesmo está duplicando os registros no BD, o interessante é que ele adiciona o mesmo registro com a numeração diferente.

 

O que pode ser ??

 

 

At.

Valter Júnior

 

cad_chamados_grava.asp

<%
If session("nivel_acesso") < 3 Then 'se não for gerente
 Response.Write "Você não tem autorização para ver esta página!"
 Response.End
End If
%>
<html>
<head>
<title>DIVIDATA</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type="text/css">
<!--
A:link {color: ##0066CC; text-decoration:none;}
A:visited {color: #0066CC; text-decoration:none;}
A:hover {color:#FF9900; text-decoration:none;}

.bordaGeral {
border: 1px solid #666666;
}
.bordaTopo {
border-top-width: 1px;
border-right-width: 1px;
border-left-width: 1px;
border-top-style: solid;
border-right-style: solid;
border-bottom-style: none;
border-left-style: solid;
border-top-color: #666666;
border-right-color: #666666;
border-left-color: #666666;
}
.bordaSimplesTop {
border-top-width: 1px;
border-top-style: solid;
border-right-style: none;
border-bottom-style: none;
border-left-style: none;
border-top-color: #CCCCCC;
}
.titulo {
font-family: Verdana, Arial, Helvetica, sans-serif;
font-size: 12px;
font-style: normal;
line-height: normal;
font-weight: 800;
font-variant: normal;
color: #0066CC;
}
.comentario {
font-family: Verdana, Arial, Helvetica, sans-serif;
font-size: 12px;
font-weight: 900;
font-variant: normal;
color: #FF9900;
background-position: center center;
padding: 2px;
}
body {
margin-left: 0px;
margin-top: 0px;
}
.style1 {font-family: Arial, Helvetica, sans-serif;
font-size: 12px;
}
.style4 {	font-family: Arial, Helvetica, sans-serif;
font-size: 12px;
font-weight: bold;
color: #FF0000;
}
-->
</style>
</head>
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" rightmargin="0" marginwidth="0" marginheight="0">
<table width="906" height="108" border="0" align="center" class="bordaGeral">
 <tr>
   <td background="Img/banner.jpg"><table width="200" border="0">
     <tr>
       <td><img src="Img/logo_topo.gif" alt="." width="238" height="34"><br>
             <img src="Img/logo_down.gif" alt="." width="238" height="34"></td>
     </tr>
   </table>
       <br></td>
 </tr>
</table>
<table width="909" border="0" align="center">
 <tr>
   <td><br>
       <img src="Img/icone_cadastrada_chamados.jpg" alt="Cadastramento de Chamados" width="48" height="48" align="absmiddle"> <span class="style4">Cadastro de Chamados</span></td>
 </tr>
</table>
<p>
<% 
Dim reop,endereco,bairro,municipio,uf,UsuarioECT,MatriculaUsuario,Agencia,Fone,Numer
oHelpdesk,NumeroERP,Pib,NumeroSerie,Equipamento,Marca,Modelo,DataAbertura,HoraAb
e
rtura,Descricao,SituacaoDoChamado
Reop             =  replace(request.form("Reop"), "'", "''")
Endereco         =  replace(request.form("Endereco"), "'", "''")
Bairro           =  replace(request.form("Bairro"), "'", "''")
Municipio        =  replace(request.form("Municipio"), "'", "''")
UF               =  replace(request.form("UF"), "'", "''")
UsuarioECT       =  replace(request.form("UsuarioECT"), "'", "''")
MatriculaUsuario =  replace(request.form("MatriculaUsuario"), "'", "''")
Agencia          =  replace(request.form("Agencia"), "'", "''")
Fone             =  replace(request.form("Fone"), "'", "''")
NumeroHelpdesk   =  replace(request.form("NumeroHelpdesk"), "'", "''")
NumeroERP        =  replace(request.form("NumeroERP"), "'", "''")
Pib              =  replace(request.form("Pib"), "'", "''")
NumeroSerie      =  replace(request.form("NumeroSerie"), "'", "''")
Equipamento      =  replace(request.form("Equipamento"), "'", "''")
Marca            =  replace(request.form("Marca"), "'", "''")
Modelo           =  replace(request.form("Modelo"), "'", "''")
DataehoraAbertura     =  replace(request.form("DataehoraAbertura"), "'", "''")
Descricao        =  replace(request.form("Descricao"), "'", "''")
SituacaoDoChamado=  replace(request.form("SituacaoDoChamado"), "'", "''")

'***Declarando Conexões com Banco de Dados***
Set DB = Server.CreateObject("ADODB.Connection")
DB.Open "Chamados","",""

'***Adicionando o registro na tabela***
Executar = "INSERT INTO os (REOP,Endereco,Bairro,Municipio,UF,UsuarioECT,MatriculaUsuario,Agencia,Fone,Nume
roHelpdesk,NumeroERP,Pib,NumeroSerie,Equipamento,Marca,Modelo,DataehoraAbertura,
D
escricao,SituacaoDoChamado) " & _
"VALUES ('" & REOP & "','" & Endereco & "','" & Bairro & "','" & Municipio & "','" & UF & "','" & UsuarioECT & "','" & MatriculaUsuario & "','" & Agencia & "','" & Fone & "','" & NumeroHelpdesk & "','" & NumeroERP & "','" & Pib & "','" & NumeroSerie & "','" & Equipamento & "','" & Marca & "','" & Modelo & "','" & DataehoraAbertura & "','" & Descricao & "','" & SituacaoDoChamado & "')"
DB.Execute(Executar) 

'***Lendo o registro recém-adicionado***
Executar = "SELECT * FROM os WHERE REOP = '" & (REOP) & "' AND Endereco = '" & (Endereco) & "' AND Bairro = '" & (Bairro) & "' AND Municipio = '" & (Municipio) & "' AND UF = '" & (UF) & "' AND UsuarioECT = '" & (UsuarioECT) & "' AND MatriculaUsuario = '" & (MatriculaUsuario) & "' AND Agencia = '" & (Agencia) & "' AND Fone = '" & (Fone) & "' AND NumeroHelpdesk = '" & (NumeroHelpdesk) & "' AND NumeroERP = '" & (NumeroERP) & "' AND Pib = '" & (Pib) & "' AND NumeroSerie = '" & (NumeroSerie) & "' AND Equipamento = '" & (Equipamento) & "' AND Marca = '" & (Marca) & "' AND Modelo = '" & (Modelo) & "' AND DataehoraAbertura = #" & (DataehoraAbertura) & "# AND Descricao = '" & (Descricao) & "' AND SituacaoDoChamado = '" & (SituacaoDoChamado) & "'"
Set RecSet = DB.Execute(Executar)
%>
 <br>
</p>
<p align="center"><font color="#000000" size="2" face="Tahoma, Comic Sans MS" class="titulo">Chamado cadastrado com sucesso !!!<br>
O nº da OS é: </font></p>
<p align="center"><font face="Tahoma, Comic Sans MS" size="2">
<% 
Dim numero
numero    =  request.form("numero")

'***Declarando Conexões com Banco de Dados***
Set DB = Server.CreateObject("ADODB.Connection")
DB.Open "Chamados","",""

'***Pesquisando registros***
Executar = "SELECT * FROM os ORDER BY numero DESC"
Set RecSet = DB.Execute(Executar)
%>
<strong><%= RecSet("numero")%></strong></font><br>
</p>
<p align="center"><span class="style1"><a href="java script:history.go(-1)">
 <br>
 <br>
</a></span></p>
<p align="center"><span class="style1"><br>
 <br>
 <br>
</span></p>
<p align="center"> </p>
<p align="center"> </p>
<p align="center"> </p>
<p align="center"><span class="style1"><br>
 <br>
 <br>
 <br>
 <a href="cad_chamados.asp"><img src="Img/Voltar.gif" alt="Voltar" width="52" height="21" border="0"></a><br>
 <br>
 <br>
 Copyright © 2008 – DIVIDATA Processamento de Dados Ltda -
 Todos os direitos reservados</span></p>
</body>
</html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

jrcardozo    4

jrcardozo
Postado

veja se no form não tem duas ações de submeter. Possivelmente tenha on submit do form ou no onclick do botão/imagem uma chamada de javascript

Compartilhar este post

Link para o post
Compartilhar em outros sites

Marcio Soares    0

Marcio Soares
Postado

Valter,

 

Na varial Executar do SELECT... altere o nome dela, pois você definiu duas variaveis com o mesmo nome, por isso seus dados estão sendo inseridos em duplicidade no banco.

 

Cria uma variavel para o INSERT e outras para os SELECT´s.

 

Abração

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