Erro Na Hora De Alterar O Produto
#1
Posted 21/06/2004, 15:01
a linha 111 esta em vermelho
Microsoft JET Database Engine error '80004005'
Field 'produtos.resposta' cannot be a zero-length string.
/teste/admin/confirmaoperacao.asp, line 111
____________________________________________________________________
<%
Function Estoque()
if Request("estoque") = "Sim" then
conexao.execute("Update produtos set estoque = True where codigo-produto = " & Request("codigo"))
else
' conexao.execute("Update produtos set estoque = False where codigo = " & Request("codigo"))'
end if
End Function
'//--------------------------------------------------
Function Lancamento()
if Request("lancamento") = "Sim" then
conexao.execute("Update produtos set lancamento = True where codigo-produto = " & Request("codigo"))
else
' conexao.execute("Update produtos set lancamento = False where codigo = " & Request("codigo"))
end if
End Function
'//--------------------------------------------------
Function Oferta()
if Request("oferta") = "Sim" then
conexao.execute("Update produtos set oferta = True where codigo-produto = " & Request("codigo"))
else
' conexao.execute("Update produtos set oferta = False where codigo = " & Request("codigo"))
end if
End Function
'//--------------------------------------------------
Function Destaque()
if Request("destaque") = "Sim" then
conexao.execute("Update produtos set destaque = True where codigo-produto = " & Request("codigo"))
else
' conexao.execute("Update produtos set destaque = False where codigo = " & Request("codigo"))
end if
End Function
'//--------------------------------------------------
Function Detalhes()
if Request("detalhes") = "Ativado" then
conexao.execute("Update produtos set detalhes = True where codigo-produto = " & Request("codigo"))
else
conexao.execute("Update produtos set detalhes = False where codigo = " & Request("codigo-produto"))
end if
End Function
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Confirmando a Operação</title>
<style type="text/css">
<!--
a.menu:hover { color: #CC0000; text-decoration: none}
a.menu { color: #000000; text-decoration: underline}
-->
</style>
</head>
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" text="#000000" link="#FFFFFF" vlink="#FFFFFF" alink="#FFFFFF">
<table width="100%" border="0" bgcolor="#000000" cellspacing="1" cellpadding="3" align="center">
<tr bgcolor="#990000">
<td width="70%" bgcolor="#006600">
<div align="center"><font size="2" face="Arial" color="#FFFFFF"><b>Controle
de
Cartas de nossos usuários </b></font></div>
</td>
<td width="30%" bgcolor="#666666">
<div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><a href="opcoes.asp">Voltar
ao inicial</a></font></div>
</td>
</tr>
</table>
<p> </p><%
Set Conexao = Server.CreateObject("ADODB.Connection")
Conexao.Open ConStr
if Request("Acao") = "Incluir" then
conexao.execute("Insert into produtos (codigo_produto,nome,email,cidade,descricao,resposta) values ('" & Request("codigo_produto") & "','" & Request("nome") & "','" & Request("email") & "','" & Request("cidade") & "','" & Request("descricao") & "','" & Request("resposta") & "')")
Response.write("<font face='Arial' size='2'><b>Inclusão efetuada!</font></b>")
Response.write("<br><font face='Arial' size='2'>O anúncio de código <b>" & Request("codigo") & "</b> foi cadastrado com sucesso!</font>")
End if
if Request("Acao") = "Apagar" then
conexao.execute("Delete from produtos where codigo = " & Request("codigo"))
Response.write("<font face='Arial' size='2'><b>Exclusão efetuada!</font></b>")
Response.write("<br><font face='Arial' size='2'>O anúncio da data <b>" & Request("codigo") & "</b> foi excluído com sucesso!</font>")
End if
if Request("Acao") = "Alterar" then
conexao.execute("Update produtos set nome= '"& Request("nome") &"',email= '"& Request("email") &"',cidade= '"& Request("cidade") &"',codigo_produto= '"& Request("codigo_produto") &"',descricao= '"& Request("descricao") &"',resposta= '"& Request("resposta") &"' where codigo = " & Request("codigo")) Response.write("<font face='Arial' size='2'><b>Alteração efetuada!</font></b>")
Response.write("<br><font face='Arial' size='2'>O anúncio de data <b>" & Request("codigo") & "</b> foi alterado com sucesso!</font>")
Estoque
Lancamento
Oferta
Destaque
End if
if Request("Acao") = "Salvar Detalhes" then
conexao.execute("Update produtos set capacidade= '"& Request("capacidade") &"',comprimento= '"& Request("comprimento") &"',largura= '"& Request("largura") & "',altura= '"& Request("altura") & "',peso2= '"& Request("peso") & "' where codigo = "& Request("codigo"))
Response.write("<font face='Arial' size='2'><b>Alteração efetuada!</font></b>")
Response.write("<br><font face='Arial' size='2'>Os detalhes do produto de código <b>" & Request("codigo") & "</b> foram salvos com sucesso!</font>")
Detalhes
End if
if Request("Acao") = "Incluir categoria" then
conexao.execute("Insert into categorias (categoria) values ('" & Request("categoria") & "')")
Response.write("<font face='Arial' size='2'><b>Inclusão efetuada!</font></b>")
Response.write("<br><font face='Arial' size='2'>A categoria <b>" & Request("categoria") & "</b> foi cadastrada com sucesso!</font>")
End if
%>
<blockquote>
<p><b><font face="Arial" size="2">Confirmando a Operação</font></b></p>
<hr color="#66CCFF" style="margin-top: -20">
Anderson
Webmaster
TERENIGHT
#2
Posted 21/06/2004, 15:19
Verifique so os nomes estão corretos.
#3
Posted 21/06/2004, 15:42
Anderson
Webmaster
TERENIGHT
#4
Posted 21/06/2004, 16:02
Response.Write Request("resposta")
e posta aki o resultado.
#5
Posted 21/06/2004, 16:09
Microsoft VBScript compilation error '800a03ee'
Expected ')'
/teste/admin/confirmaoperacao.asp, line 112
conexao.execute("Update produtos set nome= '"& Request("nome") &"',email= '"& Request("email") &"',cidade= '"& Request("cidade") &"',codigo_produto= '"& Request("codigo_produto") &"',descricao= '"& Request("descricao") &"',resposta= '"& Response.Write Request("resposta")
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------^
Anderson
Webmaster
TERENIGHT
#6
Posted 21/06/2004, 18:05
Kra eu to vendo aqui e como ainda sou novato to me atrapalhando mais soh um pouquinho.ficou assim
Microsoft VBScript compilation error '800a03ee'
Expected ')'
/teste/admin/confirmaoperacao.asp, line 112
conexao.execute("Update produtos set nome= '"& Request("nome") &"',email= '"& Request("email") &"',cidade= '"& Request("cidade") &"',codigo_produto= '"& Request("codigo_produto") &"',descricao= '"& Request("descricao") &"',resposta= '"& Response.Write Request("resposta")
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------^
Pra visualizar melhor o que será mandando pro banco, separe o comando SQL e depois mande ele executar, assim acho que fica ainda mais facil de debugar, segue exemplo:
vSql = "Update produtos set nome= '"& Request("nome") &"',email= '"& Request("email") &"',cidade= '"& Request("cidade") &"',codigo_produto= '"& Request("codigo_produto") &"',descricao= '"& Request("descricao") &"',resposta= '"& Request("resposta") &"' where codigo = " & Request("codigo")
Response.Write vSql
Response.End
conexao.execute(vSql)
Desse jeito da pra ver no navegador o melhor resultado e o que ta errado.
Bem acho que tem campo sendo mandado sem Valor mesmo, posso estar falando besteira, mais ve se resposta realmente eh vazio.
Pelo menos to tentando ajudar
Abraços
-----------------------------------------------------------------------
Visite ::: www.destroyers.com.br (onde sou o Fundador hauahua)
-----------------------------------------------------------------------
Se puder ajudar fico grato se naum puder, fico do mesmo jeito, pelo menos leu neh :-D
#7
Posted 21/06/2004, 19:23
falei pelo msn com terenight e resolvemos o pobrema.
flw
#8
Posted 22/06/2004, 08:37
Ajude a proibir os "jabás" nas rádios brasileiras.
Mas, afinal, o que é o "jabá"?!? acesse Rock Brasil
Acesse Fórum SOS Designers
Coluna de JavaScript/CSS do Upmasters
1 user(s) are reading this topic
0 membro(s), 1 visitante(s) e 0 membros anônimo(s)