Ir para conteúdo

POWERED BY:

Arquivado

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

Evilkenzera

UPdate. Erro no código. Não consigo achar!!!

Por , em ASP Clássico

Recommended Posts

Evilkenzera    0

Evilkenzera
Postado

Fiz uma página de update que recebe os dados de um Form.

Tem um erro aqui e não consigo achar, já tentei de tudo.

Alguém pode me ajudar?

 

---------------------------------------------------------------------------------------------

Página do formulário

adm_ProdutosAltera1.asp

 

 

<%@LANGUAGE="vb script:history.go(-1)" name="button" />

</div></td>

<td width="195" bgcolor="#FFFFCC"><div align="center">

<input name="Submit" type="submit" id="Submit" value="Salvar" />

</div></td>

</tr>

</table></td>

</tr>

</table>

<table width="400" border="0" align="center" cellspacing="0">

<tr>

<td bgcolor="#000000"> </td>

</tr>

</table>

<input name="prod" type="text" id="prod" value="<%=varID%>" />

</form></td>

</tr>

<tr>

<td height="17"></td>

</tr>

 

</table></td>

</tr>

<tr>

<td height="21"> </td>

</tr>

 

 

 

 

</table></td>

<td width="1"></td>

</tr>

<tr>

<td height="11" bgcolor="#FFFFCC"></td>

<td></td>

</tr>

<tr>

<td rowspan="2" valign="top"><table width="148" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFCC">

<!--DWLayoutTable-->

<tr>

<td width="13" height="14"></td>

<td width="135" valign="top"><div align="center" class="topmenu">

<div align="left">MENU PRINCIPAL </div>

</div></td>

</tr>

<tr>

<td height="12"></td>

<td></td>

</tr>

<tr>

<td height="30"></td>

<td valign="top"><a href="adm_Categoria.asp" class="menuverde">Categoria</a><br />

<a href="adm_Subcategoria.asp" class="menuverde">Subcategoria</a></td>

</tr>

<tr>

<td height="15"></td>

<td valign="top" bgcolor="#FFCC00" class="menuapagado">Produto</td>

</tr>

<tr>

<td height="52"></td>

<td valign="top"><font face="Verdana" size="-3"><a href="adm_ProdutoInclui.asp" class="menuverde3">  - Incluir</a><br />

<a href="adm_Produto.asp" class="menuverde3">   - Alterar</a><br />

<a href="adm_ProdutoExclui1.asp" class="menuverde3">   - Excluir</a><br />

<a href="adm_EnviaFotoCategoria.asp" class="menuverde3">   - Enviar foto</a></font></td>

</tr>

<tr>

<td height="135"></td>

<td valign="top"><span class="menuverde"><a href="adm_ColocaPromocao.asp" class="menuverde">Colocar Promoção </a><br />

<a href="adm_RetiraPromocao.asp" class="menuverde">Retirar Promoção </a><br />

<a href="adm_Clientes.asp" class="menuverde">Clientes</a><br />

<a href="adm_Pedidos.asp" class="menuverde">Pedidos</a><br />

<a href="categoria.asp?categoria=catCestas" class="menuverde">Carnes</a><br />

<a href="categoria.asp?categoria=catPratoPronto" class="menuverde">Congelado</a><br />

<a href="categoria.asp?categoria=catDietLight" class="menuverde">Diet e Light</a><br />

<a href="categoria.asp?categoria=catFarmacia" class="menuverde">Farmácia</a><br />

<a href="categoria.asp?categoria=catHortifruti" class="menuverde">Feira</a></span></td>

</tr>

<tr>

<td height="10"></td>

<td></td>

</tr>

<tr>

<td height="14"></td>

<td valign="top"><div align="left"><span class="topmenu">LOGIN</span></div></td>

</tr>

<tr>

<td height="8"></td>

<td></td>

</tr>

<tr>

<td height="121"></td>

<td valign="top"><span class="menuverde"><a href="adm_SenhaAltera1.asp" class="menuverde">Alterar Senha </a><br />

<a href="adm_LoginExclui1.asp" class="menuverde">Excluir Login </a><br />

<a href="adm_LoginInclui1.asp" class="menuverde">Incluir Login </a><br />

<a href="logout.asp" class="menuverde">Sair</a></span></td>

</tr>

<tr>

<td height="135"></td>

<td> </td>

</tr>

</table></td>

<td height="476"></td>

</tr>

 

 

<tr>

<td height="70"></td>

<td></td>

</tr>

<tr>

<td height="24"> </td>

<td></td>

<td></td>

<td></td>

</tr>

</table>

<%

'fecha a conexao

Call fecha_conexao

Set rsProduto = Nothing

%>

</body>

</html>

--------------------------------------------------------------------------------------------------

---------------------------------------------------------------------------------------------------

Página que tá dando o erro.

adm_ProdutoAltera2.asp

 

 

<!--#include file="restrito.asp"-->

<!--#include file="connection/bib_conexao.asp"-->

<%

Dim Conexao, rsUpdate, sqlUpdate , varID, sqlSelect, rsSelect

Dim varCategoria, varSubcategoria, varProduto, varVLR_Unitario, varQTD_Estoque, varURL_imagem, varPromo, varPage, varDescricao, varURL_imagem_descricao

 

varID = Request.Form("prod")

varCategoria = Request.Form("txtcategoria")

varSubcategoria = Request.Form("txtsubcategoria")

varProduto = Request.Form("txtProduto")

varVLR_Unitario = Request.Form("txtVLR_Unitario")

varQTD_Estoque = Request.Form("txtQTD_Estoque")

varURL_imagem = Trim(request.form("txtUrl_imagem"))

varPromo = Request.Form("txtPromo")

varPage = Request.Form("txtPage")

varDescricao = Request.Form("txtDescricao")

varURL_imagem_descricao = Trim(Request.Form("txtURL_imagem_descricao"))

 

'varSubcategoria = replace(varCategoria, "'", "")

'varSubcategoria = replace(varSubcategoria, "'", "")

varProduto = replace(varProduto, "'", "")

varVRL_unitario = Replace(varVRL_unitario , ",", ".")

varQTD_Estoque = replace(varQTD_Estoque, "'", "")

varURL_imagem = Replace(varURL_imagem, "'", "")

varPromo = replace(varPromo, "'", "")

varPage = replace(varPage, "'", "")

varDescricao = replace(varDescricao, "'", "")

varURL_imagem_descricao = Replace(varURL_imagem_descricao, "'", "")

 

sqlSelect = "SELECT Produto FROM Produto WHERE Produto = '" & varProduto & "' "

 

sqlUpdate = "UPDATE Produto SET "

sqlUpdate = sqlUpdate & "Produto = '" & varProduto & "', "

sqlUpdate = sqlUpdate & "VLR_Unitario = '"& varVLR_Unitario & "',"

sqlUpdate = sqlUpdate & "QTD_Estoque = " & varQTD_Estoque & "',"

sqlUpdate = sqlUpdate & "Url_imagem = " & varURL_imagem & "', "

sqlUpdate = sqlUpdate & "Promo = '" & varPromo & "',"

sqlUpdate = sqlUpdate & "Page = '" & varPage & "',"

sqlUpdate = sqlUpdate & "Descricao = '" & varDescricao & "', "

sqlUpdate = sqlUpdate & "URL_imagem_descricao = '" & varURL_imagem_descricao

sqlUpdate = sqlUpdate & " WHERE COD_Produto = " & varID

 

 

'abre a conexao

Call abre_conexao

 

'executa a instrução SQL

'Set rsUpdate=Conexao.Execute(sqlUPdate)

Set rsSelect=Conexao.Execute(sqlSelect)

%>

 

 

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns="http://www.w3.org/1999/xhtml">

<head>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />

<title>Untitled Document</title>

<style type="text/css">

<!--

body {

margin-left: 0px;

margin-top: 0px;

}

-->

</style>

<link href="menu.css" rel="stylesheet" type="text/css" />

<link href="../estilo.css" rel="stylesheet" type="text/css" />

<style type="text/css">

<!--

.style4 {

color: #669900;

font-weight: bold;

font-family: Verdana, Arial, Helvetica, sans-serif;

}

.style5 {color: #FF0000}

-->

</style>

<link href="estilo.css" rel="stylesheet" type="text/css" />

</head>

 

<body>

<table width="751" border="0" cellpadding="0" cellspacing="0">

<!--DWLayoutTable-->

<tr>

<td width="142" height="19" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFCC">

<!--DWLayoutTable-->

<tr>

<td width="14" height="19"> </td>

<td width="128" valign="top" class="topmenu"><%= UCase(varNome) %> </td>

</tr>

 

 

 

</table></td>

<td width="4" rowspan="4" valign="top"><img src="../imagens/barra_vertical.gif" width="4" height="506" /></td>

<td width="604" rowspan="3" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">

<!--DWLayoutTable-->

<tr>

<td width="604" height="37"> </td>

</tr>

<tr>

<td height="334" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">

<!--DWLayoutTable-->

<tr>

 

<%

IF not rsSelect.EOF then

%>

<center>

<% Response.write "Esta Categoria já está cadastrada!!! " %>

<center>

<%

Else

Set rs=Conexao.Execute(strSQL)

%>

<center>

<% Response.write "Categoria Alterada com Sucesso!!! " %>

<center>

<td width="604" height="334" valign="top">

<p>

<%

End If

%>

 

</p>

<div align="center">

<input type="button" value="Retornar" onclick="document.location='adm_Produto.asp'" name="button" />

</p>

</div></td>

</tr>

</table></td>

</tr>

<tr>

<td height="79"> </td>

</tr>

 

 

</table></td>

<td width="1"></td>

</tr>

<tr>

<td height="11" bgcolor="#FFFFCC"></td>

<td></td>

</tr>

<tr>

<td rowspan="3" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFCC">

<!--DWLayoutTable-->

<tr>

<td width="14" height="14"></td>

<td colspan="2" valign="top"><div align="center" class="topmenu">

<div align="left">MENU PRINCIPAL </div>

</div></td>

</tr>

<tr>

<td height="7"></td>

<td width="5"></td>

<td width="124"></td>

</tr>

<tr>

<td height="15"></td>

<td colspan="2" valign="top" bgcolor="#FFCC00" class="menuapagado">Categoria</td>

</tr>

<tr>

<td height="52"></td>

<td> </td>

<td valign="top"><font face="Verdana" size="-3"><a href="adm_CategoriaInclui.asp" class="menuverde3">  - Incluir</a><br />

<a href="adm_CategoriaAltera1.asp" class="menuverde3">   - Alterar</a><br />

<a href="adm_CategoriaExclui1.asp" class="menuverde3">   - Excluir</a><br />

<a href="adm_EnviaFotoCategoria.asp" class="menuverde3">   - Enviar foto</a></font></td>

</tr>

<tr>

<td height="165"></td>

<td colspan="2" valign="top"><span class="menuverde"><a href="adm_Subcategoria.asp" class="menuverde">Subcategoria</a><br />

<a href="adm_Produto.asp" class="menuverde">Produto</a><br />

<a href="adm_ColocaPromocao.asp" class="menuverde">Colocar Promoção </a><br />

<a href="adm_RetiraPromocao.asp" class="menuverde">Retirar Promoção </a><br />

<a href="adm_Clientes.asp" class="menuverde">Clientes</a><br />

<a href="adm_Pedidos.asp" class="menuverde">Pedidos</a><br />

<a href="categoria.asp?categoria=catCestas" class="menuverde">Carnes</a><br />

<a href="categoria.asp?categoria=catPratoPronto" class="menuverde">Congelado</a><br />

<a href="categoria.asp?categoria=catDietLight" class="menuverde">Diet e Light</a><br />

<a href="categoria.asp?categoria=catFarmacia" class="menuverde">Farmácia</a><br />

<a href="categoria.asp?categoria=catHortifruti" class="menuverde">Feira</a></span></td>

</tr>

<tr>

<td height="15"></td>

<td></td>

<td></td>

</tr>

<tr>

<td height="14"></td>

<td colspan="2" valign="top"><div align="left"><span class="topmenu">LOGIN</span></div></td>

</tr>

<tr>

<td height="8"></td>

<td></td>

<td></td>

</tr>

<tr>

<td height="121"></td>

<td colspan="2" valign="top"><span class="menuverde"><a href="adm_SenhaAltera1.asp" class="menuverde">Alterar Senha </a><br />

<a href="adm_LoginExclui1.asp" class="menuverde">Excluir Login </a><br />

<a href="adm_LoginInclui1.asp" class="menuverde">Incluir Login </a><br />

<a href="logout.asp" class="menuverde">Sair</a></span></td>

</tr>

<tr>

<td height="135"></td>

<td> </td>

<td> </td>

</tr>

</table></td>

<td height="420"></td>

</tr>

 

<tr>

<td height="56"></td>

<td></td>

</tr>

<tr>

<td height="70"></td>

<td></td>

<td></td>

</tr>

<tr>

<td height="24"> </td>

<td></td>

<td></td>

<td></td>

</tr>

</table>

<%

'fecha a conexao

rsSelect.Close

Call fecha_conexao

Set rs = Nothing

Set rsSelect = Nothing

%>

</body>

</html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

tr374    0

tr374
Postado

Vi por cima mas faltou um

& " ' "

a linha fica assim:

sqlUpdate = sqlUpdate & "URL_imagem_descricao = '" & varURL_imagem_descricao & " ' "

Compartilhar este post

Link para o post
Compartilhar em outros sites

jrcardozo    4

jrcardozo
Postado

primeiramente....qual a mensagem e código do erro?

 

qual a linha do erro?

 

 

 

se for na string sql tente o codigo abaixo achei uns probleminhas com aspas e espaços

 

sqlUpdate = "UPDATE Produto SET "sqlUpdate = sqlUpdate & "Produto = '" & varProduto & "', "sqlUpdate = sqlUpdate & "VLR_Unitario = '"& varVLR_Unitario & "', "sqlUpdate = sqlUpdate & "QTD_Estoque = '" & varQTD_Estoque & "', "sqlUpdate = sqlUpdate & "Url_imagem = '" & varURL_imagem & "', "sqlUpdate = sqlUpdate & "Promo = '" & varPromo & "', "sqlUpdate = sqlUpdate & "Page = '" & varPage & "', "sqlUpdate = sqlUpdate & "Descricao = '" & varDescricao & "', "sqlUpdate = sqlUpdate & "URL_imagem_descricao = '" & varURL_imagem_descricao&"'" sqlUpdate = sqlUpdate & " WHERE COD_Produto = " & varID
julgo que exceto COD_Produto todos os outros campos estão como tipo string(text) na tabela...se algum deles for do tipo Integer(Numérico) é só tirar o caracter '

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

qual a mensagem de erro?

Compartilhar este post

Link para o post
Compartilhar em outros sites

Evilkenzera    0

Evilkenzera
Postado

O erro que dá é esseTipo de erro:Microsoft OLE DB Provider for ODBC Drivers (0x80040E0C)O comando de texto não foi definido para o objeto de comando./supermercado/adm_ProdutoAltera2.asp, line 114Meu banco MYSQL. Será que deve ser algum problema com foreign Keys??# EMS MySQL Manager 2.7.0.1# ---------------------------------------# Host : localhost# Port : 3306# Database : comercioSET FOREIGN_KEY_CHECKS=0;CREATE DATABASE `comercio`;USE `comercio`;## Structure for the `admin` table : #CREATE TABLE `admin` ( `LOGIN` varchar(20) default NULL, `SENHA` varchar(20) default NULL, `NOME` varchar(50) default NULL) TYPE=MyISAM;## Structure for the `categoria` table : #CREATE TABLE `categoria` ( `COD_CATEGORIA` int(10) NOT NULL auto_increment, `CATEGORIA` varchar(100) default NULL, `URL_IMAGEM_TOP` varchar(250) default NULL, `URL` varchar(250) default NULL, PRIMARY KEY (`COD_CATEGORIA`)) TYPE=InnoDB;## Structure for the `fretes` table : #CREATE TABLE `fretes` ( `UF` char(2) default NULL, `Frete` double default NULL) TYPE=MyISAM;## Structure for the `subcategoria` table : #CREATE TABLE `subcategoria` ( `COD_SUBCATEGORIA` int(10) NOT NULL auto_increment, `COD_CATEGORIA` int(10) default NULL, `SUBCATEGORIA` varchar(100) default NULL, `URL_IMAGEM_SUBCATEGORIA` varchar(250) default NULL, `CATEGORIA` varchar(50) default NULL, PRIMARY KEY (`COD_SUBCATEGORIA`)) TYPE=InnoDB;## Structure for the `produto` table : #CREATE TABLE `produto` ( `COD_PRODUTO` int(10) NOT NULL auto_increment, `PRODUTO` varchar(150) default NULL, `COD_CATEGORIA` int(10) default NULL, `COD_SUBCATEGORIA` int(5) default NULL, `DESCRICAO` text, `URL_IMAGEM` varchar(250) default NULL, `QTD_ESTOQUE` int(10) default NULL, `PROMO` char(1) default NULL, `PAGE` char(1) default NULL, `VLR_UNITARIO` double(15,3) default NULL, `URL_IMAGEM_DESCRICAO` varchar(250) default NULL, PRIMARY KEY (`COD_PRODUTO`), KEY `COD_SUBCATEGORIA` (`COD_SUBCATEGORIA`), CONSTRAINT `produto_ibfk_1` FOREIGN KEY (`COD_SUBCATEGORIA`) REFERENCES `subcategoria` (`COD_SUBCATEGORIA`) ON DELETE CASCADE ON UPDATE CASCADE) TYPE=InnoDB;## Structure for the `pedidos` table : #CREATE TABLE `pedidos` ( `Cod_Pedido` int(11) default NULL, `DTA_Pedido` datetime default NULL, `Cliente` varchar(50) default NULL, `CNPJ_CPF` varchar(25) default NULL, `Rua` varchar(100) default NULL, `Cidade` varchar(50) default NULL, `UF` char(2) default NULL, `CEP` varchar(9) default NULL, `Tel` varchar(20) default NULL, `Email` varchar(50) default NULL, `Sub_total` double default NULL, `Total` double default NULL, `Cartao` varchar(50) default NULL, `Validade` varchar(20) default NULL, `CC_Num` varchar(50) default NULL, `OBS` varchar(250) default NULL, `Fechado` tinyint(1) default NULL, KEY `Cod_Pedido` (`Cod_Pedido`)) TYPE=InnoDB;## Structure for the `pedido_item` table : #CREATE TABLE `pedido_item` ( `Cod_Pedido` int(11) default NULL, `Cod_Produto` int(11) default NULL, `QTD_Pedido` int(11) default NULL, KEY `Cod_Produto` (`Cod_Produto`), KEY `Cod_Pedido` (`Cod_Pedido`), CONSTRAINT `pedido_item_ibfk_1` FOREIGN KEY (`Cod_Produto`) REFERENCES `produto` (`COD_PRODUTO`), CONSTRAINT `pedido_item_ibfk_2` FOREIGN KEY (`Cod_Pedido`) REFERENCES `pedidos` (`Cod_Pedido`) ON UPDATE CASCADE) TYPE=InnoDB;

Compartilhar este post

Link para o post
Compartilhar em outros sites

Evilkenzera    0

Evilkenzera
Postado

Pessoal, eu mexi no código novamente da página adm_ProdutoAltera2.asp e o erro continua, não vai mesmo. Acho que tem a ver com o banco. Deve ser a Foreign Keys. Acho eu

 

 

# Tipo de erro:

Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)

[MySQL][ODBC 3.51 Driver][mysqld-4.0.18-nt]You have an error in your SQL syntax. Check the manual that corresponds to your MySQL server version for the right syntax to use near 'imagens/categoria/66', Promo = '0, Page = '0, Descricao = 'mais

/supermercado/adm_ProdutoAltera2.asp, line 45

 

 

 

 

<!--#include file="restrito.asp"-->

<!--#include file="connection/bib_conexao.asp"-->

<%

Dim Conexao, rsUPdate, sqlUpdate , varID

Dim varCategoria, varSubcategoria, varProduto, varVLR_Unitario, varQTD_Estoque, varURL_imagem, varPromo, varPage, varDescricao, varURL_imagem_descricao

 

varID = Request.Form("prod")

varCategoria = Request.Form("txtcategoria")

varSubcategoria = Request.Form("txtsubcategoria")

varProduto = Request.Form("txtProduto")

varVLR_Unitario = Request.Form("txtVLR_Unitario")

varQTD_Estoque = Request.Form("txtQTD_Estoque")

varURL_imagem = Trim(request.form("txtUrl_imagem"))

varPromo = Request.Form("txtPromo")

varPage = Request.Form("txtPage")

varDescricao = Request.Form("txtDescricao")

varURL_imagem_descricao = Trim(Request.Form("txtURL_imagem_descricao"))

 

'varSubcategoria = replace(varCategoria, "'", "")

'varSubcategoria = replace(varSubcategoria, "'", "")

varProduto = replace(varProduto, "'", "")

varVRL_unitario = Replace(varVRL_unitario , ",", "")

varQTD_Estoque = replace(varQTD_Estoque, "'", "")

varURL_imagem = Replace(varURL_imagem, "'", "")

varPromo = replace(varPromo, "'", "")

varPage = replace(varPage, "'", "")

varDescricao = replace(varDescricao, "'", "")

varURL_imagem_descricao = Replace(varURL_imagem_descricao, "'", "")

 

sqlUpdate = "UPDATE Produto SET "

sqlUpdate = sqlUpdate & "Produto = '" & varProduto & "', "

sqlUpdate = sqlUpdate & "VLR_Unitario = '"& varVLR_Unitario & "', "

sqlUpdate = sqlUpdate & "QTD_Estoque = '" & varQTD_Estoque & ", "

sqlUpdate = sqlUpdate & "Url_imagem = '" & varURL_imagem & "', "

sqlUpdate = sqlUpdate & "Promo = '" & varPromo & ", "

sqlUpdate = sqlUpdate & "Page = '" & varPage & ", "

sqlUpdate = sqlUpdate & "Descricao = '" & varDescricao & "', "

sqlUpdate = sqlUpdate & "URL_imagem_descricao = '" & varURL_imagem_descricao & "', "

sqlUpdate = sqlUpdate & " WHERE COD_Produto = " & varID

 

 

'abre a conexao

Call abre_conexao

'executa a instrução SQL

Set rsUpdate = Conexao.Execute(sqlUpdate)

%>

 

 

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns="http://www.w3.org/1999/xhtml">

<head>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />

<title>Untitled Document</title>

<style type="text/css">

<!--

body {

margin-left: 0px;

margin-top: 0px;

}

-->

</style>

<link href="menu.css" rel="stylesheet" type="text/css" />

<link href="../estilo.css" rel="stylesheet" type="text/css" />

<style type="text/css">

<!--

.style4 {

color: #669900;

font-weight: bold;

font-family: Verdana, Arial, Helvetica, sans-serif;

}

.style5 {color: #FF0000}

-->

</style>

<link href="estilo.css" rel="stylesheet" type="text/css" />

</head>

 

<body>

<table width="751" border="0" cellpadding="0" cellspacing="0">

<!--DWLayoutTable-->

<tr>

<td width="142" height="19" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFCC">

<!--DWLayoutTable-->

<tr>

<td width="14" height="19"> </td>

<td width="128" valign="top" class="topmenu"><%= UCase(varNome) %> </td>

</tr>

 

 

 

</table></td>

<td width="4" rowspan="4" valign="top"><img src="../imagens/barra_vertical.gif" width="4" height="506" /></td>

<td width="604" rowspan="3" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">

<!--DWLayoutTable-->

<tr>

<td width="604" height="37"> </td>

</tr>

<tr>

<td height="334" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">

<!--DWLayoutTable-->

<tr>

 

 

<td width="604" height="334" valign="top">

<p align="center">Produto Alterado com Sucesso!!! </p>

<div align="center">

<input type="button" value="Retornar" onclick="document.location='adm_Produto.asp'" name="button" />

</p>

</div></td>

</tr>

</table></td>

</tr>

<tr>

<td height="79"> </td>

</tr>

 

 

</table></td>

<td width="1"></td>

</tr>

<tr>

<td height="11" bgcolor="#FFFFCC"></td>

<td></td>

</tr>

<tr>

<td rowspan="3" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFCC">

<!--DWLayoutTable-->

<tr>

<td width="14" height="14"></td>

<td colspan="2" valign="top"><div align="center" class="topmenu">

<div align="left">MENU PRINCIPAL </div>

</div></td>

</tr>

<tr>

<td height="7"></td>

<td width="5"></td>

<td width="124"></td>

</tr>

<tr>

<td height="15"></td>

<td colspan="2" valign="top" bgcolor="#FFCC00" class="menuapagado">Categoria</td>

</tr>

<tr>

<td height="52"></td>

<td> </td>

<td valign="top"><font face="Verdana" size="-3"><a href="adm_CategoriaInclui.asp" class="menuverde3">  - Incluir</a><br />

<a href="adm_CategoriaAltera1.asp" class="menuverde3">   - Alterar</a><br />

<a href="adm_CategoriaExclui1.asp" class="menuverde3">   - Excluir</a><br />

<a href="adm_EnviaFotoCategoria.asp" class="menuverde3">   - Enviar foto</a></font></td>

</tr>

<tr>

<td height="165"></td>

<td colspan="2" valign="top"><span class="menuverde"><a href="adm_Subcategoria.asp" class="menuverde">Subcategoria</a><br />

<a href="adm_Produto.asp" class="menuverde">Produto</a><br />

<a href="adm_ColocaPromocao.asp" class="menuverde">Colocar Promoção </a><br />

<a href="adm_RetiraPromocao.asp" class="menuverde">Retirar Promoção </a><br />

<a href="adm_Clientes.asp" class="menuverde">Clientes</a><br />

<a href="adm_Pedidos.asp" class="menuverde">Pedidos</a><br />

<a href="categoria.asp?categoria=catCestas" class="menuverde">Carnes</a><br />

<a href="categoria.asp?categoria=catPratoPronto" class="menuverde">Congelado</a><br />

<a href="categoria.asp?categoria=catDietLight" class="menuverde">Diet e Light</a><br />

<a href="categoria.asp?categoria=catFarmacia" class="menuverde">Farmácia</a><br />

<a href="categoria.asp?categoria=catHortifruti" class="menuverde">Feira</a></span></td>

</tr>

<tr>

<td height="15"></td>

<td></td>

<td></td>

</tr>

<tr>

<td height="14"></td>

<td colspan="2" valign="top"><div align="left"><span class="topmenu">LOGIN</span></div></td>

</tr>

<tr>

<td height="8"></td>

<td></td>

<td></td>

</tr>

<tr>

<td height="121"></td>

<td colspan="2" valign="top"><span class="menuverde"><a href="adm_SenhaAltera1.asp" class="menuverde">Alterar Senha </a><br />

<a href="adm_LoginExclui1.asp" class="menuverde">Excluir Login </a><br />

<a href="adm_LoginInclui1.asp" class="menuverde">Incluir Login </a><br />

<a href="logout.asp" class="menuverde">Sair</a></span></td>

</tr>

<tr>

<td height="135"></td>

<td> </td>

<td> </td>

</tr>

</table></td>

<td height="420"></td>

</tr>

 

<tr>

<td height="56"></td>

<td></td>

</tr>

<tr>

<td height="70"></td>

<td></td>

<td></td>

</tr>

<tr>

<td height="24"> </td>

<td></td>

<td></td>

<td></td>

</tr>

</table>

<%

'fecha a conexao

Call fecha_conexao

Set rsUpdate = Nothing

%>

</body>

</html>

 

 

Quem quiser baixar os arquivos, tá aqui tudo com o banco de dados

 

www.saulofernandes.cjb.net/produto.rar

Compartilhar este post

Link para o post
Compartilhar em outros sites

jrcardozo    4

jrcardozo
Postado

não saco muito de mySql, mas você criou a fonte de dados ODBC?

 

 

 

bom, vi sua mensagem da modificação...tente esse sql pois retirei as asptas que sobravam e coloquei espaços onde faltavam!!

 

sqlUpdate = "UPDATE Produto SET "

sqlUpdate = sqlUpdate & "Produto = '" & varProduto & "', "

sqlUpdate = sqlUpdate & "VLR_Unitario = '"& varVLR_Unitario & "', "

sqlUpdate = sqlUpdate & "QTD_Estoque = " & varQTD_Estoque & ", "

sqlUpdate = sqlUpdate & "Url_imagem = '" & varURL_imagem & "', "

sqlUpdate = sqlUpdate & "Promo = " & varPromo & ", "

sqlUpdate = sqlUpdate & "Page = " & varPage & ", "

sqlUpdate = sqlUpdate & "Descricao = '" & varDescricao & "', "

sqlUpdate = sqlUpdate & "URL_imagem_descricao = '" & varURL_imagem_descricao & "', " sqlUpdate = sqlUpdate & " WHERE COD_Produto = " & varID

Compartilhar este post

Link para o post
Compartilhar em outros sites

Evilkenzera    0

Evilkenzera
Postado

Não adiantouTipo de erro:Erro de compilação do Microsoft VBScript (0x800A0401)Fim da instrução esperado/supermercado/adm_ProdutoAltera2.asp, line 50, column 85sqlUpdate = sqlUpdate & "URL_imagem_descricao = '" & varURL_imagem_descricao & "', " sqlUpdate = sqlUpdate & " WHERE COD_Produto = " & varID------------------------------------------------------------------------------------^

Compartilhar este post

Link para o post
Compartilhar em outros sites

jrcardozo    4

jrcardozo
Postado

voê colocou a variavel na mesma linha, vejasqlUpdate = sqlUpdate & "URL_imagem_descricao = '" & varURL_imagem_descricao & "', " sqlUpdate = sqlUpdate & " WHERE COD_Produto = " & varID o correto seriasqlUpdate = sqlUpdate & "URL_imagem_descricao = '" & varURL_imagem_descricao & "', " sqlUpdate = sqlUpdate & " WHERE COD_Produto = " & varIDacho que você só copiou o código que eu coloquei e não percebeu isso, eu também não heheh

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