Fórum Contato
  
   O portal do desenvolvedor ASP Segunda-feira - 14 de Junho de 2021  
Busca

Menu do site
Efetuar Login
Usuário:

Senha:

 Esqueceu a senha?
Login automático

 Cadastre-se
 Fóruns   Meu cadastro   Meu perfil   Ranking de usuários 

 FórumProgramaçãoErros Responder mensagem 

 Erro asssp Atualizado em 05/04/2010 ás 13:44:00

Postado em 05/04/2010 ás 13:10:00

acusa erro na linha abaixo, diz que há erro próximo ao "=" _ mas não tô achandooooo


me ajudem se for possivel



rs.open "select * from ta_TR_Classificacao where idSubGenero = "&idSubGenero&"", conexao


página toda


<!-- #include file = "../include/head.asp" -->
<%
abreConexao()
set rs = server.CreateObject("ADODB.RecordSet")
set rp = server.CreateObject("ADODB.RecordSet")


' Resgata variável da Classificação
idClassificacao = request.QueryString("idC")


' Procura se existe algum produto cadastrado nesta classificacao
rs.open "select * from ta_TR_Classificacao where idSubGenero = "&idSubGenero&"", conexao
' Se existir alguma classificacao neste sub-gênero, perguntar se realmente deseja excluir
if not rs.eof then
 apg = "nao" ' existe produto, e vai perguntar se deseja excluir
else
 apg = "sim" ' não existe nenhum produto, e vai excluir (situacao = 0)
end if
rs.close


if apg = "sim" then ' não existe produto, por isso exclui
 ' exclui (situacao = 0) a classificacao
 rs.open "update ta_TR_Classificacao set situacao = 0 where id = "&idSubGenero&"", conexao
  
 response.Redirect("../principal/subGeneroConsulta.asp?msg=2")
else
 ' exclui (situacao = 0) a classificacao
 rs.open "update ta_TR_Classificacao set situacao = 0 where id = "&idClassificacao&"", conexao
 ' exclui (situacao = 0) as classificações deste sub-gênero e os produtos deste sub-gênero
 rs.open "update ta_TR_Classificacao set situacao = 0 where idSubGenero = "&idSubGenero, conexao
 ' primeiro lista todas as classificações
 rs.open "select id from ta_TR_Classificacao where idSubGenero = "&idSubGenero&"", conexao
 ' para cada classificação exclui (situacao = 0) todos os produtos
 while not rs.eof
  rp.open "update ta_TR_Produto set situacao = 0 where idSu = "&rs.fields("id")&"", conexao
 rs.movenext
 wend
 rs.close
 
 response.Redirect("../principal/subGeneroConsulta.asp?msg=2")


end if
rs.close


set rs = nothing
fechaConexao()
%>



Postado em 05/04/2010 ás 13:44:00

Não vi em lugar nenhum onde você setou a variável "idSubGenero", com isto o valor está vazio e você não fez nenhum tratamento disto, por isto está dando erro.

Topo


Exibindo página 1 de 1 encontradas
SuperASP do Brasil Ltda - contato@superasp.com.br

© 2001/2008 - Superasp do Brasil Ltda. Todos os direitos reservados