Ir para conteúdo

POWERED BY:

Arquivado

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

Khelly

Problemas na inclusão e ediçao

Por , em ASP Clássico

Recommended Posts

Khelly    0

Khelly
Postado

Olá meus amores, to eu aqui novamente para pedir um help a vocês...seguinte estou com um problema na hora de incluir e editar no meu admin, o que ta acontecendo é que sempre que incluo um novo conteudo via admin e faço uma modificação em um determinado campo do form acaba que em todos os outros conteudos inclusos anteriormente ficam com o mesmo dado o mesmo acontece na hora de editar, o campo que aparentemente ta medando esseproblema é o OFERTA, segue o codigo abaixo:

 

Arquivo de execução:

<!--#include file="../checa_senha.inc"-->
<!--#include file="conexao.asp"-->
<%
Function Status()
	If Request("status") = "Ativo" Then
	   Conexao.Execute("Update usados set status = True where codigo = '" & Request("codigo") & "'")
	Else
	   Conexao.Execute("Update usados set status = False where codigo = '" & Request("codigo") & "'")
	End If
End Function

Function Oferta()
	If Request("oferta") = 1 Then
	   Conexao.Execute("Update usados set oferta = 1 where codigo = '" & Request("codigo") & "'")
	Else
	   Conexao.Execute("Update usados set oferta = 2 where codigo = '" & Request("codigo") & "'")
	End If
End Function
%>
<html>
<head>
<title>Administração</title>
<link rel="stylesheet" href="../style.css" type="text/css">
</head>
<body bgcolor="#FFFFFF" text="#000000" link="#FFFFFF" vlink="#FFFFFF" leftmargin="0" topmargin="0">
<table width="600" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr>
    <td valign="top"> 
      <table width="100%" border="0" cellpadding="0" cellspacing="0">
        <tr> 
          <td valign="top"> 
            <table width="100%" border="0" bgcolor="#000000" cellspacing="1" cellpadding="3" align="center">
              <tr bgcolor="#990000"> 
                <td width="62%" bgcolor="#000000"> 
                  <div align="center"><font size="2" face="Arial"><b><font color="#FFFFFF">Administração 
                    de veículos Usados</font></b></font><font size="2" face="Arial" color="#FFFFFF"></font><font size="2" face="Arial" color="#FFFFFF"></font></div>
                </td>
                <td width="38%" bgcolor="#FFCC00"> 
                  <div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><a href="usados.asp" class="menu">Página 
                    inicial</a>   <a href="incluir.asp?tipo=veiculo" class="menu">Incluir 
                    veículo</a></font></div>
                </td>
              </tr>
            </table>
          </td>
        </tr>
      </table>
      <blockquote> 
        <p><br>
          <b><font face="Arial" size="2" color="#CC0000">Confirmando a Operação</font></b></p>
        <hr color="#999999" style="margin-top: -20">
        <%
   	Set Conexao = Server.CreateObject("ADODB.Connection")
	Conexao.Open ConStrUsados

   if Request("Acao") = "Incluir veículo" then
		conexao.execute("Insert into usados (codigo,marca,modelo,cor,ano,descricao,valor,oferta,qtdfoto,loja) values ('" & Request("codigo") & "','" & Request("marca") & "','" & Request("modelo") & "','" & Request("cor") & "','" & Request("ano") & "','" & Request("descricao") & "','" & Request("oferta") & "','" & Request("valor") & "','" & Request("qtdfoto") & "','" & Request("loja") & "')")
		Status
		Oferta
		Response.write("<font face='Arial' size='2'><b>Inclusão efetuada!</font></b>")
		Response.write("<br><font face='Arial' size='2'>Novo item incluído com sucesso!</font>")
		Response.write("<p><input type='button' name='Acao' value='Voltar' onClick=window.location.href='usados.asp'></p>")
   End if

   if Request("Acao") = "Incluir marca" then
		conexao.execute("Insert into marcas (marca) values ('" & Request("marca") & "')")
		Response.write("<font face='Arial' size='2'><b>Inclusão efetuada!</font></b>")
		Response.write("<br><font face='Arial' size='2'>Novo item incluído com sucesso!</font>")
		Response.write("<p><input type='button' name='Acao' value='Voltar' onClick=window.location.href='usados.asp'></p>")
   End if

   if Request("Acao") = "Apagar veículo" then
		conexao.execute("Delete from usados where id_auto = " & Request("id"))
		Response.write("<font face='Arial' size='2'><b>Exclusão efetuada!</font></b>")
		Response.write("<br><font face='Arial' size='2'>Item excluído com sucesso!</font>")
		Response.write("<p><input type='button' name='Acao' value='Voltar' onClick=window.location.href='usados.asp'></p>")
   End if 	

   if Request("Acao") = "Alterar veículo" then
		conexao.execute("Update usados set marca= '"& Request("marca") &"',modelo= '"& Request("modelo") &"',cor= '"& Request("cor") &"',ano= '"& Request("ano") &"',descricao= '"& Request("descricao") &"',oferta= '"& Request("oferta") &"',valor= '"& Request("valor") &"',qtdfoto= '"& Request("qtdfoto") &"',loja= '"& Request("loja") & "' where id_auto = " & Request("id"))
		Status
		Oferta
		Response.write("<font face='Arial' size='2'><b>Alteração efetuada!</font></b>")
		Response.write("<br><font face='Arial' size='2'>Item alterado com sucesso!</font>")
		Response.write("<p><input type='button' name='Acao' value='Voltar' onClick=window.location.href='usados.asp'></p>")		
   End if 	

Conexao.Close 
Set Conexao	= Nothing 	
	
%>
      </blockquote>
</td>
  </tr>
</table>
</body>
</html>
<% end if %>

 

Arquivo do form de inclusão:

 

<!--#include file="../checa_senha.inc"-->
<!--#include file="conexao.asp"-->
<%
Set Conexao = Server.CreateObject("ADODB.Connection")
Conexao.Open ConStrUsados

Set Marcas = Server.CreateObject("ADODB.Recordset")
Marcas.Open "SELECT * FROM marcas ORDER BY marca", Conexao
%>
<html>
<head>
<title>Administração</title>
<link rel="stylesheet" href="../style.css" type="text/css">
<style type="text/css">
<!--
.style1 {	font-family: Arial, Helvetica, sans-serif;
	font-size: 12px;
	color: #FF0000;
	font-weight: bold;
}
-->
</style>
</head>
<body bgcolor="#FFFFFF" text="#000000" link="#FFFFFF" vlink="#FFFFFF" leftmargin="0" topmargin="0">
<table width="600" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr>
    <td>
      <table width="100%" border="0" cellpadding="0" cellspacing="0">
        <tr> 
          <td valign="top"> 
            <table width="100%" border="0" bgcolor="#000000" cellspacing="1" cellpadding="3" align="center">
              <tr bgcolor="#990000"> 
                <td width="62%" bgcolor="#000000"> 
                  <div align="center"><font size="2" face="Arial"><b><font color="#FFFFFF">Administração 
                    de veículos Usados</font></b></font><font size="2" face="Arial" color="#FFFFFF"></font><font size="2" face="Arial" color="#FFFFFF"></font></div>
                </td>
                <td width="38%" bgcolor="#FFCC00"> 
                  <div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><a href="usados.asp" class="menu">Página 
                    inicial</a>   <a href="incluir.asp?tipo=veiculo" class="menu">Incluir 
                    veículo</a></font></div>
                </td>
              </tr>
            </table>
          </td>
        </tr>
      </table>
      <% If Request.Querystring("tipo") = "veiculo" Then %>
      <p align="center"><b><font size="2" face="Arial">Inclusão de novos 
        veículo</font></b><br>
      </p>
      <form name="" method="post" action="executa.asp">
        <table width="80%" border="0" cellspacing="1" cellpadding="2" align="center" bgcolor="#000000">
          <tr bgcolor="#CC0000"> 
            <td height="30" width="21%"> 
              <div align="right"><b><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#FFFFFF">Status</font><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#FFFFFF">: </font></b></div>
            </td>
            <td bgcolor="#CCCCCC" height="30" colspan="3"> 
              <select name="status" class="box">
                <option>Ativo</option>
                <option>Inativo</option>
              </select>
            </td>
          </tr>
          <tr bgcolor="#CC0000"> 
            <td height="30" width="21%"> 
              <div align="right"><b><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#FFFFFF">Oferta</font><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#FFFFFF">: </font></b></div>
            </td>
            <td bgcolor="#CCCCCC" height="30" colspan="3"> 
              <select name="oferta" class="box">
                <option value="1">Sim</option>
                <option value="2">Não</option>
              </select>
            </td>
          </tr>
          <tr bgcolor="#CC0000"> 
            <td height="30" width="21%"> 
              <div align="right"><b><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#FFFFFF">Código</font><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#FFFFFF">: </font></b></div>
            </td>
            <td bgcolor="#CCCCCC" height="30" colspan="3"> 
              <div align="left"><b> 
                <input type="text" name="codigo" class="box" size="15">
                </b></div>
            </td>
          </tr>
          <tr bgcolor="#CC0000"> 
            <td height="30" width="21%"> 
              <div align="right"><font color="#FFFFFF"><b><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Marca</font><font size="1" face="Verdana, Arial, Helvetica, sans-serif">: </font></b></font></div>
            </td>
            <td bgcolor="#CCCCCC" height="30"> 
              <select name="marca" class="box">
                <% Marcas.MoveFirst : While Not Marcas.EOF %>
                <option value="<%= Marcas("marca") %>"><%= Marcas("marca") %></option>
                <% Marcas.MoveNext : Wend %>
              </select>
            </td>
            <td bgcolor="#CC0000" height="30">
              <div align="right"><font color="#FFFFFF"><b><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Ano</font><font size="1" face="Verdana, Arial, Helvetica, sans-serif">: </font></b></font></div>
            </td>
            <td bgcolor="#CCCCCC" height="30"><b>
              <input type="text" name="ano" class="box" size="20">
              </b></td>
          </tr>
          <tr bgcolor="#CC0000"> 
            <td height="30" width="21%"> 
              <div align="right"><font color="#FFFFFF"><b><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Modelo: 
                </font></b></font></div>
            </td>
            <td bgcolor="#CCCCCC" height="30"><b> 
              <input type="text" name="modelo" class="box" size="30">
              </b></td>
            <td bgcolor="#CC0000" height="30" width="15%"> 
              <div align="right"><font color="#FFFFFF"><b><font size="1" face="Verdana, Arial, Helvetica, sans-serif">C</font><font size="1" face="Verdana, Arial, Helvetica, sans-serif">or: </font></b></font></div>
            </td>
            <td bgcolor="#CCCCCC" height="30"><b> 
              <input type="text" name="cor" class="box" size="20">
              </b></td>
          </tr>
          <tr bgcolor="#CC0000"> 
            <td height="30" width="21%"> 
              <div align="right"><font color="#FFFFFF"><b><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Descrição</font><font size="1" face="Verdana, Arial, Helvetica, sans-serif">: </font></b></font></div>
            </td>
            <td bgcolor="#CCCCCC" height="30" colspan="3"><b> 
              <textarea name="descricao" class="box" cols="60" rows="2"></textarea>
              </b></td>
          </tr>
          <tr bgcolor="#CC0000"> 
            <td height="30" width="21%"> 
              <div align="right"><font color="#FFFFFF"><b><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Valor</font><font size="1" face="Verdana, Arial, Helvetica, sans-serif">: </font></b></font></div>
            </td>
            <td bgcolor="#CCCCCC" height="30" colspan="3"><b> 
              <input type="text" name="valor" class="box" size="30">
              </b></td>
          </tr>
          <tr bgcolor="#CC0000"> 
            <td height="30" width="21%"> 
              <div align="right"><font color="#FFFFFF"><b><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Quant. 
                Fotos</font><font size="1" face="Verdana, Arial, Helvetica, sans-serif">: </font></b></font></div>
            </td>
            <td width="29%" bgcolor="#CCCCCC" height="30"><b> 
              <input type="text" name="qtdfoto" class="box" size="15" value="0">
              </b></td>
            <td width="15%" bgcolor="#CC0000" height="30"> 
              <div align="right"><font color="#FFFFFF"><b><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Loja</font><font size="1" face="Verdana, Arial, Helvetica, sans-serif">: </font></b></font></div>
            </td>
            <td width="34%" bgcolor="#CCCCCC" height="30"><b> 
              <input type="text" name="loja" class="box" size="20">
              </b></td>
          </tr>
        </table>
        <table width="80%" border="0" cellspacing="0" cellpadding="0" align="center">
          <tr> 
            <td> 
              <input type="submit" value="Incluir veículo" name="Acao">
            </td>
          </tr>
        </table>
      </form>
      <p align="center"><span class="style1">Se o veículo não possuir foto, coloque 0 (zero) na quantidade de fotos. </span></p>
      <% Else %>
      <p align="center"><b><font size="2" face="Arial"> Inclusão de novas 
        marcas</font></b><br>
      </p>
      <form name="" method="post" action="executa.asp">
        <table width="70%" border="0" cellspacing="1" cellpadding="2" align="center" bgcolor="#000000">
          <tr bgcolor="#CC0000"> 
            <td height="30" width="23%"> 
              <div align="right"><font color="#FFFFFF"><b><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Marca</font><font size="1" face="Verdana, Arial, Helvetica, sans-serif">: </font></b></font></div>
            </td>
            <td width="77%" bgcolor="#CCCCCC" height="30"> 
              <div align="left"><b> 
                <input type="text" name="marca" class="box" size="40">
                </b></div>
            </td>
          </tr>
        </table>
        <table width="70%" border="0" cellspacing="0" cellpadding="0" align="center">
          <tr> 
            <td> 
              <input type="submit" value="Incluir marca" name="Acao">
            </td>
          </tr>
          <tr>
            <td>
			<font size="1" face="Verdana, Arial, Helvetica, sans-serif"><br>
			<% If Marcas.EOF Then %>
			<font color="#CC0000"><b><p align="center">Nenhuma marca cadastrada até o momento</p></b></font>
			<% Else %>
			<b>Marcas cadastradas:</b><br>
			<% Marcas.MoveFirst : While Not Marcas.EOF %>
			<%= Marcas("marca") %><br>
			<% Marcas.MoveNext : Wend : End If %>
			</font>
			</td>
          </tr>
        </table>
      </form>
      <p align="center"> </p>

</td>
  </tr>
</table>
<p align="center"> </p>

<% End If %>

</body>
</html>
<% 
Marcas.Close
Set Marcas = Nothing

Conexao.Close
Set Conexao = Nothing

end if 
%>

Arquivo com o form de edição

 

<!--#include file="../checa_senha.inc"-->
<!--#include file="conexao.asp"-->
<%
Set Conexao = Server.CreateObject("ADODB.Connection")
Conexao.Open ConStrUsados

Set EdtUsado = Server.CreateObject("ADODB.Recordset")
EdtUsado.Open "SELECT * FROM usados WHERE id_auto="& Request.QueryString("id"), Conexao

Set Marcas = Server.CreateObject("ADODB.Recordset")
Marcas.Open "SELECT * FROM marcas WHERE marca <> '" & EdtUsado("marca") & "'", Conexao
%>
<html>
<head>
<title>Administração</title>
<link rel="stylesheet" href="../style.css" type="text/css">
<style type="text/css">
<!--
.style1 {
	font-family: Arial, Helvetica, sans-serif;
	font-size: 12px;
	color: #FF0000;
	font-weight: bold;
}
-->
</style>
</head>
<body bgcolor="#FFFFFF" text="#000000" link="#FFFFFF" vlink="#FFFFFF" leftmargin="0" topmargin="0">
<table width="600" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr>
    <td>
      <table width="100%" border="0" cellpadding="0" cellspacing="0">
        <tr> 
          <td valign="top"> 
            <table width="100%" border="0" bgcolor="#000000" cellspacing="1" cellpadding="3" align="center">
              <tr bgcolor="#990000"> 
                <td width="62%" bgcolor="#000000"> 
                  <div align="center"><font size="2" face="Arial"><b><font color="#FFFFFF">Administração 
                    de veículos Usados</font></b></font><font size="2" face="Arial" color="#FFFFFF"></font></div>
                </td>
                <td width="38%" bgcolor="#FFCC00"> 
                  <div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><a href="usados.asp" class="menu">Página 
                    inicial</a>   <a href="incluir.asp?tipo=veiculo" class="menu">Incluir 
                    veículo</a></font></div>
                </td>
              </tr>
            </table>
          </td>
        </tr>
      </table>
      <p align="center"><b><font size="2" face="Arial">Edição de 
        dados de veículo</font></b><br>
      </p>
      <form name="" method="post" action="executa.asp">
        <table width="80%" border="0" cellspacing="1" cellpadding="2" align="center" bgcolor="#000000">
          <tr bgcolor="#CC0000"> 
            <td height="30" width="21%"> 
              <div align="right"><b><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#FFFFFF">Status</font><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#FFFFFF">: </font></b></div>
            </td>
            <td bgcolor="#CCCCCC" height="30" colspan="3"> 
              <select name="status" class="box">
                <% If EdtUsado("status") = True Then %>
                <option value="Ativo" selected>Ativo</option>
                <option value="Inativo">Inativo</option>
                <% Else %>
                <option value="Inativo" selected>Inativo</option>
                <option value="Ativo">Ativo</option>
                <% End If %>
              </select>
            </td>
          </tr>
          <tr bgcolor="#CC0000"> 
            <td height="30" width="21%"> 
              <div align="right"><b><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#FFFFFF">Oferta</font><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#FFFFFF">: </font></b></div>
            </td>
            <td bgcolor="#CCCCCC" height="30" colspan="3"> 
              <select name="oferta" class="box">
                <% If EdtUsado("oferta") = 1 Then %>
                <option value="1" selected>Sim</option>
                <option value="2">Não</option>
                <% Else %>
                <option value="2" selected>Não</option>
                <option value="1">Sim</option>
                <% End If %>
              </select>
            </td>
          </tr>
          <tr bgcolor="#CC0000"> 
            <td height="30" width="21%"> 
              <div align="right"><b><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#FFFFFF">Código</font><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#FFFFFF">: </font></b></div>
            </td>
            <td bgcolor="#CCCCCC" height="30" colspan="3"> 
              <div align="left"><b> 
                <input type="text" name="codigo" class="box" size="15" value="<%= EdtUsado("codigo") %>">
                </b></div>
            </td>
          </tr>
          <tr bgcolor="#CC0000"> 
            <td height="30" width="21%"> 
              <div align="right"><font color="#FFFFFF"><b><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Marca</font><font size="1" face="Verdana, Arial, Helvetica, sans-serif">: </font></b></font></div>
            </td>
            <td bgcolor="#CCCCCC" height="30"> 
              <select name="marca" class="box">
                <option value="<%= EdtUsado("marca") %>" selected><%= EdtUsado("marca") %></option>
                <% Marcas.MoveFirst : While Not Marcas.EOF %>
                <option value="<%= Marcas("marca") %>"><%= Marcas("marca") %></option>
                <% Marcas.MoveNext : Wend %>
              </select>
            </td>
            <td bgcolor="#CC0000" height="30">
              <div align="right"><font color="#FFFFFF"><b><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Ano</font><font size="1" face="Verdana, Arial, Helvetica, sans-serif">: </font></b></font></div>
            </td>
            <td bgcolor="#CCCCCC" height="30"><b>
              <input type="text" name="ano" class="box" size="20" value="<%= EdtUsado("ano") %>">
              </b></td>
          </tr>
          <tr bgcolor="#CC0000"> 
            <td height="30" width="21%"> 
              <div align="right"><font color="#FFFFFF"><b><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Modelo: 
                </font></b></font></div>
            </td>
            <td bgcolor="#CCCCCC" height="30"><b> 
              <input type="text" name="modelo" class="box" size="30" value="<%= EdtUsado("modelo") %>">
              </b></td>
            <td bgcolor="#CC0000" height="30" width="15%"> 
              <div align="right"><font color="#FFFFFF"><b><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Cor</font><font size="1" face="Verdana, Arial, Helvetica, sans-serif">: </font></b></font></div>
            </td>
            <td bgcolor="#CCCCCC" height="30"><b> 
              <input type="text" name="cor" class="box" size="20" value="<%= EdtUsado("cor") %>">
              </b></td>
          </tr>
          <tr bgcolor="#CC0000"> 
            <td height="30" width="21%"> 
              <div align="right"><font color="#FFFFFF"><b><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Descrição</font><font size="1" face="Verdana, Arial, Helvetica, sans-serif">: </font></b></font></div>
            </td>
            <td bgcolor="#CCCCCC" height="30" colspan="3"><b> 
              <textarea name="descricao" class="box" cols="60" rows="2"><%= EdtUsado("descricao") %></textarea>
              </b></td>
          </tr>
          <tr bgcolor="#CC0000"> 
            <td height="30" width="21%"> 
              <div align="right"><font color="#FFFFFF"><b><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Valor</font><font size="1" face="Verdana, Arial, Helvetica, sans-serif">: </font></b></font></div>
            </td>
            <td bgcolor="#CCCCCC" height="30" colspan="3"><b> 
              <input type="text" name="valor" class="box" size="30" value="<%= EdtUsado("valor") %>">
              </b></td>
          </tr>
          <tr bgcolor="#CC0000"> 
            <td height="30" width="21%"> 
              <div align="right"><font color="#FFFFFF"><b><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Quant. 
                Fotos</font><font size="1" face="Verdana, Arial, Helvetica, sans-serif">: </font></b></font></div>
            </td>
            <td width="29%" bgcolor="#CCCCCC" height="30"><b> 
              <input type="text" name="qtdfoto" class="box" size="15" value="<%= EdtUsado("qtdfoto") %>">
              </b></td>
            <td width="15%" bgcolor="#CC0000" height="30"> 
              <div align="right"><font color="#FFFFFF"><b><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Loja</font><font size="1" face="Verdana, Arial, Helvetica, sans-serif">: </font></b></font></div>
            </td>
            <td width="34%" bgcolor="#CCCCCC" height="30"><b> 
              <input type="text" name="loja" class="box" size="20" value="<%= EdtUsado("loja") %>">
              </b></td>
          </tr>
        </table>
        <table width="80%" border="0" cellspacing="0" cellpadding="0" align="center">
          <tr> 
            <td> 
              <input type="submit" value="Alterar veículo" name="Acao">
              <input type="hidden" name="id" value="<%= Request.QueryString("id") %>">
            </td>
          </tr>
        </table>
      </form>
      <p align="center" class="style1">Se o veículo não possuir foto, coloque 0 (zero) na quantidade de fotos. </p>
</td>
  </tr>
</table>
<p align="center"> </p>
</body>
</html>
<% 
EdtUsado.Close
Set EdtUsado = Nothing

Marcas.Close
Set Marcas = Nothing

Conexao.Close
Set Conexao = Nothing

end if 
%>

O campo oferta esta em formato texto no BD eo BD é access;

 

Desde ja fico grata pela ajuda que vcs sempre me dão..bjinhos

Compartilhar este post

Link para o post
Compartilhar em outros sites

jothaz    1

jothaz
Postado

O problema só ocorre na alteração?

 

Se você efetuar várias inclusões os dados permanacem coesos?

 

Por favor execute o response.write a seguir e post o resultado:

 if Request("Acao") = "Alterar veículo" then
 
 response.write "Update usados set marca= '"& Request("marca") &"',modelo= '"& Request("modelo") &"',cor= '"& Request("cor") &"',ano= '"& Request("ano") &"',descricao= '"& Request("descricao") &"',oferta= '"& Request("oferta") &"',valor= '"& Request("valor") &"',qtdfoto= '"& Request("qtdfoto") &"',loja= '"& Request("loja") & "' where id_auto = " & Request("id")

...
...
...
 End if

 

Só com sugestão para simplificar o código altere:

Function Oferta()
 	If Request("oferta") = 1 Then
 	Conexao.Execute("Update usados set oferta = 1 where codigo = '" & Request("codigo") & "'")
 	Else
 	Conexao.Execute("Update usados set oferta = 2 where codigo = '" & Request("codigo") & "'")
 	End If
End Function

Para (colocando o response.write e postando o resultado):

Function Oferta()
 	
 	Conexao.Execute("Update usados set oferta = " & Request("oferta") & " where codigo = '" & Request("codigo") & "'")
 	response.write "Update usados set oferta = " & Request("oferta") & " where codigo = '" & Request("codigo") & "'"

End Function

Fico no aguardo.

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

aqui vai um exemplo de administração, onde poderemos fazer um Login no site, entar na parte administrativa do site, nesta teremos uma pagina de administração, que poderemos, pesquisar, incluir, excluir,atualizar e caso o user tenha esquecido sua senha irmos recuperar.link

Compartilhar este post

Link para o post
Compartilhar em outros sites

Khelly    0

Khelly
Postado

Galera coloquei o response write e deu esse resultado, o mesmo problema ta acontecendo na inclusão tb.


Update usados set status= '1', marca= 'Citroen',modelo= 'PICASSO 2.0 GLX',cor= 'Prata',ano= '2002/2003',descricao= 'Completo',oferta= '2',valor= '28400',qtdfoto= '4',loja= '' where id_auto = 611

Please help me!!!

Compartilhar este post

Link para o post
Compartilhar em outros sites

jothaz    1

jothaz
Postado

Qual banco de dados você esta utilizando?

 

você criou uma chave primária (primary key) nas tabelas?

Se não crie!

 

O campo id_auto em usados é do tipo string ou número?

Se for string pode esta indo espaço em branco por isso gera duplicidade.

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

verifique no banco como esta setados os campos, para não ter o erro de passar valores numéricos em campos do tipo texto

Compartilhar este post

Link para o post
Compartilhar em outros sites

Vinicius Ianni    189

Vinicius Ianni
Postado

Quando, na atualização dos dados de um registro já existente no banco de dados, ao executar o comando ele atualiza todos os registros, é porque não foi colocado um parametro que serve como delimitador na clausula enviará o comando a ser executado.

 

prodsql = "Update produtos SET nome='"&nome&"',qtd='"&qtd&"',preco='"&preco&"'"

 

Como pode notar essa linha vai gerar um comando que atualizará todos os registros do db.

 

prodsql = "Update produtos SET nome='"&nome&"',qtd='"&qtd&"',preco='"&preco&"' where id='"&id&"'"

 

Já assim, apenas o produto que contem aquele determinado id (que tem que ser unico) será atualizado.

 

Se o problema ocorre também na inclusão de novos itens, seu código está errado.

Recomendo refazer ele desde o inicio, as vezes é mais rápido do que caçar o erro.

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

dá uma verificada no link que te passei acima, e veja com esta a parte do Atualizar, é só seguir o exemplo, que você consegue

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