CONSTANTE DE SEQUENCIA NAO FINALIZADA
Galera estou tentando fazer uma exclusão e quando inicia a página, ela mostra que a página foi carregada só que com erros, quando peço para exibir o erro, ele dá que a constante não foi finalizada na linha 53 caractes 23.
Bem a linha em questão é essa:
[txt-color=#e80000]StrDel = [Ô]Delete from tbDependentes where codAssociado = [Ô] & codAssociado[/txt-color]
O bloco onde a linha esta é esse
If cmd = [Ô]excluir[Ô] and codAssociado <> [Ô][Ô] Then
[txt-color=#e80000]StrDel = [Ô]Delete from tbDependentes where codAssociado = [Ô] & codAssociado[/txt-color]
conexao.execute StrDel
StrDel = [Ô]Delete from tbAssociados where codAssociado = [Ô] & codAssociado
conexao.execute StrDel
response.Redirect([Ô]associado.asp?cmd=excluir&situacao=ok[Ô])
End if
E quando tento excluir o cadastro ele não ja nada e nem da mensagem de erro alguma na página
Será que alguém pode me dar uma força
Vlw
Bem a linha em questão é essa:
[txt-color=#e80000]StrDel = [Ô]Delete from tbDependentes where codAssociado = [Ô] & codAssociado[/txt-color]
O bloco onde a linha esta é esse
If cmd = [Ô]excluir[Ô] and codAssociado <> [Ô][Ô] Then
[txt-color=#e80000]StrDel = [Ô]Delete from tbDependentes where codAssociado = [Ô] & codAssociado[/txt-color]
conexao.execute StrDel
StrDel = [Ô]Delete from tbAssociados where codAssociado = [Ô] & codAssociado
conexao.execute StrDel
response.Redirect([Ô]associado.asp?cmd=excluir&situacao=ok[Ô])
End if
E quando tento excluir o cadastro ele não ja nada e nem da mensagem de erro alguma na página
Será que alguém pode me dar uma força
Vlw
Alguém pode dar uma força
Galera eu coloquei um log, para verificar o que pode estar errado e não foi gerado nada nesse log, a não ser o arquivo em branco.
O que será que pode ter acontecido, nessa página eu tenho uma rotina de excluir que usa o script
<script>
function excluir($val, $nome)
{
if (confirm([Ô]Deseja excluir o associado [Ô] + $nome + [Ô] e seus dependentes?[Ô]))
{
window.location.href=[Ô]associado.asp?codAssociado=[Ô] + $val + [Ô]&cmd=excluir[Ô];
}
}
</script>
e também para carregar a página
<!DOCTYPE HTML PUBLIC [Ô]-//W3C//DTD HTML 4.01 Transitional//EN[Ô]>
<script language=[Ô]JavaScript[Ô]>
function abre(pagina,janela,largura,altura)
{
var desktopname = window.open(pagina,janela,[ô]width=[ô]+largura+[ô],height=[ô]+altura+[ô],toolbar=yes,copyhistory=no,location=no,status=no,menubar=no,scrollbars=yes,resizable=no,top=0,left=0[ô]);
desktopname.focus();
}
</script>
Será que o erro pode estar nessas rotinas?
O que será que pode ter acontecido, nessa página eu tenho uma rotina de excluir que usa o script
<script>
function excluir($val, $nome)
{
if (confirm([Ô]Deseja excluir o associado [Ô] + $nome + [Ô] e seus dependentes?[Ô]))
{
window.location.href=[Ô]associado.asp?codAssociado=[Ô] + $val + [Ô]&cmd=excluir[Ô];
}
}
</script>
e também para carregar a página
<!DOCTYPE HTML PUBLIC [Ô]-//W3C//DTD HTML 4.01 Transitional//EN[Ô]>
<script language=[Ô]JavaScript[Ô]>
function abre(pagina,janela,largura,altura)
{
var desktopname = window.open(pagina,janela,[ô]width=[ô]+largura+[ô],height=[ô]+altura+[ô],toolbar=yes,copyhistory=no,location=no,status=no,menubar=no,scrollbars=yes,resizable=no,top=0,left=0[ô]);
desktopname.focus();
}
</script>
Será que o erro pode estar nessas rotinas?
Ocelot obrigado pelo retorno.
Seguindo o que vc me falou no código fonte do HTML abriu o código que já postei acima, más eu editei, portanto decedi colocar o que esta no arquivo frameasso.html
<!DOCTYPE HTML PUBLIC [Ô]-//W3C//DTD HTML 4.01 Transitional//EN[Ô]>
<html>
<head>
<title>...:::Sindicato dos Graficos:::...</title>
<meta http-equiv=[Ô]Content-Type[Ô] content=[Ô]text/html; charset=iso-8859-1[Ô]>
<link href=[Ô]estilos2.css[Ô] rel=[Ô]stylesheet[Ô] type=[Ô]text/css[Ô]>
</head>
<body>
<iframe src=[Ô]associado.asp[Ô] scrolling=[Ô]yes[Ô] frameborder=[Ô]0[Ô] width=[Ô]480[Ô] height=[Ô]480[Ô]>
</iframe>
</body>
</html>
é somente isso, a página da que o erro esta na linha 53 caracter 23 como já postei.
Será q com isso dá para ter alguma idéia do que pode estar de errado?
Seguindo o que vc me falou no código fonte do HTML abriu o código que já postei acima, más eu editei, portanto decedi colocar o que esta no arquivo frameasso.html
<!DOCTYPE HTML PUBLIC [Ô]-//W3C//DTD HTML 4.01 Transitional//EN[Ô]>
<html>
<head>
<title>...:::Sindicato dos Graficos:::...</title>
<meta http-equiv=[Ô]Content-Type[Ô] content=[Ô]text/html; charset=iso-8859-1[Ô]>
<link href=[Ô]estilos2.css[Ô] rel=[Ô]stylesheet[Ô] type=[Ô]text/css[Ô]>
</head>
<body>
<iframe src=[Ô]associado.asp[Ô] scrolling=[Ô]yes[Ô] frameborder=[Ô]0[Ô] width=[Ô]480[Ô] height=[Ô]480[Ô]>
</iframe>
</body>
</html>
é somente isso, a página da que o erro esta na linha 53 caracter 23 como já postei.
Será q com isso dá para ter alguma idéia do que pode estar de errado?
Ocelot obrigado pelo retorno, eu coloquei a declaração más infelizmente não funcionou, estou postando o código da página, talvez de para ver alguma de errado
<%
response.Buffer = true
Function configuraBusca(documento)
If len(documento) = 12 Then
configuraBusca = left(documento,2) & [Ô].[Ô] & mid(documento,3,3) & [Ô].[Ô] & mid(documento,6,5) & [Ô].[Ô] & mid(documento,11,2)
ElseIf len(documento) < 10 Then
configuraBusca = documento
Else
If len(documento) < 14 Then
documento = Replace(Space(14 - Len(documento)), [Ô] [Ô], [Ô]0[Ô]) & documento
End If
configuraBusca = left(documento,2) & [Ô].[Ô] & mid(documento,3,3) & [Ô].[Ô] & mid(documento,6,3) & [Ô]/[Ô] & mid(documento,9,4) & [Ô]-[Ô] & right(documento,2)
End If
End Function
if session([Ô]associados_consulta[Ô]) then%>
<!--#include file=[Ô]funcoes.inc[Ô] -->
<!--#include file=[Ô]connections/graficos.asp[Ô] -->
<script type=[Ô]text/javascript[Ô]>
function excluir($val, $nome)
{
if (confirm([Ô]Deseja excluir o associado [Ô] + $nome + [Ô] e seus dependentes?[Ô]))
{
window.location.href=[Ô]associado.asp?codAssociado=[Ô] + $val + [Ô]&cmd=excluir[Ô];
}
}
</script>
<%
conexao=MM_graficos_STRING
[ô]Aqui eu coloquei para gerar um log no txt, más como comentei, não gerou nada a não ser o arquivo em branco
[ô]Criando o objeto de gravação do arquivo
Set FSO = Server.CreateObject([Ô]Scripting.FileSystemObject[Ô])
[ô]Preparando o caminho (Path) do arquivo
caminho = Server.MapPath([Ô]LogGuia.txt[Ô])
Set GRAVAR = FSO.CreateTextFile(caminho,true)
[ô]Foi criado o objeto e logo após busca o htm em caminho para gravar. Se não achar, vai criá-lo (devido à marcação TRUE)
cmd = request([Ô]cmd[Ô])
GRAVAR.write ((cmd))
codAssociado = request([Ô]codAssociado[Ô])
GRAVAR.write ((codassociado))
situacao = request([Ô]situacao[Ô])
GRAVAR.write ((situacao))
If cmd = [Ô]excluir[Ô] and codAssociado <> [Ô][Ô] Then
GRAVAR.write (([Ô]Excluir[Ô]))
GRAVAR.write ((codassociado))
GRAVAR.close
StrDel = [Ô]Delete from tbDependentes where codAssociado = [Ô] & codAssociado
conexao.execute (StrDel)
StrDel = [Ô]Delete from tbAssociados where codAssociado = [Ô] & codAssociado
conexao.execute StrDel
response.Redirect([Ô]associado.asp?cmd=excluir&situacao=ok[Ô])
End if
GRAVAR.close
dim cod_barra, conexao, i
Set rs = Server.CreateObject([Ô]ADODB.Recordset[Ô])
[ô]rs.Open [Ô]Select * From ConsGuia_Site Where exercicio=[Ô] & year(date()) & [Ô] and docEmpr=[ô][Ô] & request.Form([Ô]numero[Ô]) & [Ô][ô][Ô],conexao,1,3
strSQL = [Ô]SELECT codAssociado,nomeAssociado,cpfAssociado FROM tbassociados order by nomeAssociado[Ô]
rs.open strSQL,conexao,1,3
i = 1
%>
<!DOCTYPE HTML PUBLIC [Ô]-//W3C//DTD HTML 4.01 Transitional//EN[Ô]>
<script language=[Ô]JavaScript[Ô]>
function abre(pagina,janela,largura,altura)
{
var desktopname = window.open(pagina,janela,[ô]width=[ô]+largura+[ô],height=[ô]+altura+[ô],toolbar=yes,copyhistory=no,location=no,status=no,menubar=no,scrollbars=yes,resizable=no,top=0,left=0[ô]);
desktopname.focus();
}
</script>
<html>
<head>
<title>...:::Sindicato dos Graficos:::...</title>
<meta http-equiv=[Ô]Content-Type[Ô] content=[Ô]text/html; charset=iso-8859-1[Ô]>
<link href=[Ô]estilos2.css[Ô] rel=[Ô]stylesheet[Ô] type=[Ô]text/css[Ô]>
<style type=[Ô]text/css[Ô]>
<!--
.style1 {font-weight: bold}
-->
</style>
</head>
<body>
<table width=[Ô]100%[Ô] cellspacing=[Ô]2[Ô] cellpadding=[Ô]0[Ô]>
<tr>
<td colspan=[Ô]4[Ô] class=[Ô]texto14azul[Ô]><strong>ASSOCIADOS</strong></td>
</tr>
<tr>
<td colspan=[Ô]4[Ô]><a href=[Ô]associado_novo.asp[Ô] target=[Ô]_self[Ô]><img src=[Ô]imagens/bt_criar.gif[Ô] width=[Ô]58[Ô] height=[Ô]20[Ô] border=[Ô]0[Ô]></a></td>
</tr>
<%
If cmd = [Ô]excluir[Ô] and situacao = [Ô]ok[Ô] Then
%>
<tr>
<td colspan=[Ô]4[Ô]><br><center><font color=[Ô]#009900[Ô] face=[Ô]Verdana, Geneva, sans-serif[Ô] size=[Ô]2[Ô]>Associado ExcluÃdo com sucesso!</font></center><br></td>
</tr>
<%
End if
%>
<tr bgcolor=[Ô]#CCCCCC[Ô] class=[Ô]texto11preto[Ô]>
<td width=[Ô]9%[Ô]><span class=[Ô]style1[Ô]>Código</span></td>
<td width=[Ô]49%[Ô]><span class=[Ô]style1[Ô]>Associado</span></td>
<td width=[Ô]14%[Ô]><span class=[Ô]style1[Ô]>CPF</span></td>
<td width=[Ô]14%[Ô]><span class=[Ô]style1[Ô]>Opções</span></td>
</tr>
<%
do while not rs.eof
if (cont mod 2 )=0 then
bgcolor=[Ô]#FFFFFF[Ô]
else
bgcolor=[Ô]#F7F7F7[Ô]
end if
response.Write([Ô]<tr bgcolor=[Ô]&bgcolor&[Ô]>[Ô])
response.Write([Ô]<td><a href=associado_atualiza.asp?codAssociado=[Ô] & rs([Ô]codAssociado[Ô]) & [Ô]>[Ô] & rs([Ô]codAssociado[Ô]) & [Ô] </a></td>[Ô])
response.Write([Ô]<td><a href=associado_atualiza.asp?codAssociado=[Ô] & rs([Ô]codAssociado[Ô]) & [Ô]>[Ô] & rs([Ô]nomeAssociado[Ô]) & [Ô] </a></td>[Ô])
response.Write([Ô]<td><a href=associado_atualiza.asp?codAssociado=[Ô] & rs([Ô]codAssociado[Ô]) & [Ô]>[Ô] & rs([Ô]cpfAssociado[Ô]) & [Ô] </a></td>[Ô])
response.Write([Ô]<td><a href=# onClick=excluir([ô][Ô] & rs([Ô]codAssociado[Ô]) & [Ô][ô],[ô]kleber antonio dos Santos[ô]) style=cursor:hand >Excluir</a></td>[Ô])
response.Write([Ô]</tr>[Ô])
cont=cont+1
rs.movenext
loop
set rs = nothing
set conexao = nothing
%>
</table>
<p align=[Ô]center[Ô]>
<a href=[Ô]javascript:history.back(-1)[Ô] class=[Ô]style1 style2[Ô]><< VOLTAR >></a>
</p>
</body>
</html>
<%else
response.redirect([Ô]logout.asp[Ô])
end if%>
Esse é a página que esta dando o erro, nas demais páginas, todas estão carregando corretamente
Abraço
<%
response.Buffer = true
Function configuraBusca(documento)
If len(documento) = 12 Then
configuraBusca = left(documento,2) & [Ô].[Ô] & mid(documento,3,3) & [Ô].[Ô] & mid(documento,6,5) & [Ô].[Ô] & mid(documento,11,2)
ElseIf len(documento) < 10 Then
configuraBusca = documento
Else
If len(documento) < 14 Then
documento = Replace(Space(14 - Len(documento)), [Ô] [Ô], [Ô]0[Ô]) & documento
End If
configuraBusca = left(documento,2) & [Ô].[Ô] & mid(documento,3,3) & [Ô].[Ô] & mid(documento,6,3) & [Ô]/[Ô] & mid(documento,9,4) & [Ô]-[Ô] & right(documento,2)
End If
End Function
if session([Ô]associados_consulta[Ô]) then%>
<!--#include file=[Ô]funcoes.inc[Ô] -->
<!--#include file=[Ô]connections/graficos.asp[Ô] -->
<script type=[Ô]text/javascript[Ô]>
function excluir($val, $nome)
{
if (confirm([Ô]Deseja excluir o associado [Ô] + $nome + [Ô] e seus dependentes?[Ô]))
{
window.location.href=[Ô]associado.asp?codAssociado=[Ô] + $val + [Ô]&cmd=excluir[Ô];
}
}
</script>
<%
conexao=MM_graficos_STRING
[ô]Aqui eu coloquei para gerar um log no txt, más como comentei, não gerou nada a não ser o arquivo em branco
[ô]Criando o objeto de gravação do arquivo
Set FSO = Server.CreateObject([Ô]Scripting.FileSystemObject[Ô])
[ô]Preparando o caminho (Path) do arquivo
caminho = Server.MapPath([Ô]LogGuia.txt[Ô])
Set GRAVAR = FSO.CreateTextFile(caminho,true)
[ô]Foi criado o objeto e logo após busca o htm em caminho para gravar. Se não achar, vai criá-lo (devido à marcação TRUE)
cmd = request([Ô]cmd[Ô])
GRAVAR.write ((cmd))
codAssociado = request([Ô]codAssociado[Ô])
GRAVAR.write ((codassociado))
situacao = request([Ô]situacao[Ô])
GRAVAR.write ((situacao))
If cmd = [Ô]excluir[Ô] and codAssociado <> [Ô][Ô] Then
GRAVAR.write (([Ô]Excluir[Ô]))
GRAVAR.write ((codassociado))
GRAVAR.close
StrDel = [Ô]Delete from tbDependentes where codAssociado = [Ô] & codAssociado
conexao.execute (StrDel)
StrDel = [Ô]Delete from tbAssociados where codAssociado = [Ô] & codAssociado
conexao.execute StrDel
response.Redirect([Ô]associado.asp?cmd=excluir&situacao=ok[Ô])
End if
GRAVAR.close
dim cod_barra, conexao, i
Set rs = Server.CreateObject([Ô]ADODB.Recordset[Ô])
[ô]rs.Open [Ô]Select * From ConsGuia_Site Where exercicio=[Ô] & year(date()) & [Ô] and docEmpr=[ô][Ô] & request.Form([Ô]numero[Ô]) & [Ô][ô][Ô],conexao,1,3
strSQL = [Ô]SELECT codAssociado,nomeAssociado,cpfAssociado FROM tbassociados order by nomeAssociado[Ô]
rs.open strSQL,conexao,1,3
i = 1
%>
<!DOCTYPE HTML PUBLIC [Ô]-//W3C//DTD HTML 4.01 Transitional//EN[Ô]>
<script language=[Ô]JavaScript[Ô]>
function abre(pagina,janela,largura,altura)
{
var desktopname = window.open(pagina,janela,[ô]width=[ô]+largura+[ô],height=[ô]+altura+[ô],toolbar=yes,copyhistory=no,location=no,status=no,menubar=no,scrollbars=yes,resizable=no,top=0,left=0[ô]);
desktopname.focus();
}
</script>
<html>
<head>
<title>...:::Sindicato dos Graficos:::...</title>
<meta http-equiv=[Ô]Content-Type[Ô] content=[Ô]text/html; charset=iso-8859-1[Ô]>
<link href=[Ô]estilos2.css[Ô] rel=[Ô]stylesheet[Ô] type=[Ô]text/css[Ô]>
<style type=[Ô]text/css[Ô]>
<!--
.style1 {font-weight: bold}
-->
</style>
</head>
<body>
<table width=[Ô]100%[Ô] cellspacing=[Ô]2[Ô] cellpadding=[Ô]0[Ô]>
<tr>
<td colspan=[Ô]4[Ô] class=[Ô]texto14azul[Ô]><strong>ASSOCIADOS</strong></td>
</tr>
<tr>
<td colspan=[Ô]4[Ô]><a href=[Ô]associado_novo.asp[Ô] target=[Ô]_self[Ô]><img src=[Ô]imagens/bt_criar.gif[Ô] width=[Ô]58[Ô] height=[Ô]20[Ô] border=[Ô]0[Ô]></a></td>
</tr>
<%
If cmd = [Ô]excluir[Ô] and situacao = [Ô]ok[Ô] Then
%>
<tr>
<td colspan=[Ô]4[Ô]><br><center><font color=[Ô]#009900[Ô] face=[Ô]Verdana, Geneva, sans-serif[Ô] size=[Ô]2[Ô]>Associado ExcluÃdo com sucesso!</font></center><br></td>
</tr>
<%
End if
%>
<tr bgcolor=[Ô]#CCCCCC[Ô] class=[Ô]texto11preto[Ô]>
<td width=[Ô]9%[Ô]><span class=[Ô]style1[Ô]>Código</span></td>
<td width=[Ô]49%[Ô]><span class=[Ô]style1[Ô]>Associado</span></td>
<td width=[Ô]14%[Ô]><span class=[Ô]style1[Ô]>CPF</span></td>
<td width=[Ô]14%[Ô]><span class=[Ô]style1[Ô]>Opções</span></td>
</tr>
<%
do while not rs.eof
if (cont mod 2 )=0 then
bgcolor=[Ô]#FFFFFF[Ô]
else
bgcolor=[Ô]#F7F7F7[Ô]
end if
response.Write([Ô]<tr bgcolor=[Ô]&bgcolor&[Ô]>[Ô])
response.Write([Ô]<td><a href=associado_atualiza.asp?codAssociado=[Ô] & rs([Ô]codAssociado[Ô]) & [Ô]>[Ô] & rs([Ô]codAssociado[Ô]) & [Ô] </a></td>[Ô])
response.Write([Ô]<td><a href=associado_atualiza.asp?codAssociado=[Ô] & rs([Ô]codAssociado[Ô]) & [Ô]>[Ô] & rs([Ô]nomeAssociado[Ô]) & [Ô] </a></td>[Ô])
response.Write([Ô]<td><a href=associado_atualiza.asp?codAssociado=[Ô] & rs([Ô]codAssociado[Ô]) & [Ô]>[Ô] & rs([Ô]cpfAssociado[Ô]) & [Ô] </a></td>[Ô])
response.Write([Ô]<td><a href=# onClick=excluir([ô][Ô] & rs([Ô]codAssociado[Ô]) & [Ô][ô],[ô]kleber antonio dos Santos[ô]) style=cursor:hand >Excluir</a></td>[Ô])
response.Write([Ô]</tr>[Ô])
cont=cont+1
rs.movenext
loop
set rs = nothing
set conexao = nothing
%>
</table>
<p align=[Ô]center[Ô]>
<a href=[Ô]javascript:history.back(-1)[Ô] class=[Ô]style1 style2[Ô]><< VOLTAR >></a>
</p>
</body>
</html>
<%else
response.redirect([Ô]logout.asp[Ô])
end if%>
Esse é a página que esta dando o erro, nas demais páginas, todas estão carregando corretamente
Abraço
Ocelot obrigado pelo retorno, estou retornando apenas hj pois tive que pegar uns pepinos que levaram mais tempo do que eu tinha previsto.
Primeiro quero agradecer pela ajudar e falar que vc estava correto, quando coloquei o código que vc postou, a página carregou sem problema algum, más ai deu um outro que não sei o porque, isso no momento da exclusão
Tipo de erro:
Erro de tempo de execução do Microsoft VBScript (0x800A01A8)
Objeto necessário: [ô]dsn=graficos;uid=roo[ô]
/graficos/associado.asp, line 62
Eu coloquei o log no arquivo e o comando que esta sendo gerado, esta correto, pois eu rodei ele no banco e foi feita a exclusão sem problemas, será que vc poderia me dar uma força para descobrir o que esta acontecendo?
O trecho onde esta a exclusão esta abaixo e ele para na primeira exclusão dos dependentes que é a linha 62
<%
conexao=MM_graficos_STRING
[ô]Criando o objeto de gravação do arquivo
Set FSO = Server.CreateObject([Ô]Scripting.FileSystemObject[Ô])
[ô]Preparando o caminho (Path) do arquivo
caminho = Server.MapPath([Ô]LogGuia.txt[Ô])
Set GRAVAR = FSO.CreateTextFile(caminho,true)
[ô]Foi criado o objeto e logo após busca o htm em caminho para gravar. Se não achar, vai criá-lo (devido à marcação TRUE)
cmd = request([Ô]cmd[Ô])
codAssociado = request([Ô]codAssociado[Ô])
situacao = request([Ô]situacao[Ô])
If cmd = [Ô]excluir[Ô] and codAssociado <> [Ô][Ô] Then
StrDel = [Ô]Delete from tbDependentes where codAssociado = [Ô] & codAssociado
GRAVAR.write (strdel)
conexao.execute StrDel - LINHA 62
StrDel = [Ô]Delete from tbAssociados where codAssociado = [Ô] & codAssociado
gravar.write (strdel)
conexao.execute StrDel
response.Redirect([Ô]associado.asp?cmd=excluir&situacao=ok[Ô])
End if
GRAVAR.close
dim cod_barra, conexao, i
Set rs = Server.CreateObject([Ô]ADODB.Recordset[Ô])
strSQL = [Ô]SELECT codAssociado,nomeAssociado,cpfAssociado FROM tbassociados order by nomeAssociado[Ô]
rs.open strSQL,conexao,1,3
i = 1
%>
Agradeço pela força
Primeiro quero agradecer pela ajudar e falar que vc estava correto, quando coloquei o código que vc postou, a página carregou sem problema algum, más ai deu um outro que não sei o porque, isso no momento da exclusão
Tipo de erro:
Erro de tempo de execução do Microsoft VBScript (0x800A01A8)
Objeto necessário: [ô]dsn=graficos;uid=roo[ô]
/graficos/associado.asp, line 62
Eu coloquei o log no arquivo e o comando que esta sendo gerado, esta correto, pois eu rodei ele no banco e foi feita a exclusão sem problemas, será que vc poderia me dar uma força para descobrir o que esta acontecendo?
O trecho onde esta a exclusão esta abaixo e ele para na primeira exclusão dos dependentes que é a linha 62
<%
conexao=MM_graficos_STRING
[ô]Criando o objeto de gravação do arquivo
Set FSO = Server.CreateObject([Ô]Scripting.FileSystemObject[Ô])
[ô]Preparando o caminho (Path) do arquivo
caminho = Server.MapPath([Ô]LogGuia.txt[Ô])
Set GRAVAR = FSO.CreateTextFile(caminho,true)
[ô]Foi criado o objeto e logo após busca o htm em caminho para gravar. Se não achar, vai criá-lo (devido à marcação TRUE)
cmd = request([Ô]cmd[Ô])
codAssociado = request([Ô]codAssociado[Ô])
situacao = request([Ô]situacao[Ô])
If cmd = [Ô]excluir[Ô] and codAssociado <> [Ô][Ô] Then
StrDel = [Ô]Delete from tbDependentes where codAssociado = [Ô] & codAssociado
GRAVAR.write (strdel)
conexao.execute StrDel - LINHA 62
StrDel = [Ô]Delete from tbAssociados where codAssociado = [Ô] & codAssociado
gravar.write (strdel)
conexao.execute StrDel
response.Redirect([Ô]associado.asp?cmd=excluir&situacao=ok[Ô])
End if
GRAVAR.close
dim cod_barra, conexao, i
Set rs = Server.CreateObject([Ô]ADODB.Recordset[Ô])
strSQL = [Ô]SELECT codAssociado,nomeAssociado,cpfAssociado FROM tbassociados order by nomeAssociado[Ô]
rs.open strSQL,conexao,1,3
i = 1
%>
Agradeço pela força
Bom Problema resolvido quanto ao segundo erro.
Eu alterei
If cmd = [Ô]excluir[Ô] and codAssociado <> [Ô][Ô] Then
StrDel = [Ô]Delete from tbDependentes where codAssociado = [Ô] & codAssociado
conexao.execute StrDel
StrDel = [Ô]Delete from tbAssociados where codAssociado = [Ô] & codAssociado
conexao.execute StrDel
response.Redirect([Ô]associado.asp?cmd=excluir&situacao=ok[Ô])
End if
Para
Set rs = Server.CreateObject([Ô]ADODB.Recordset[Ô])
If cmd = [Ô]excluir[Ô] and codAssociado <> [Ô][Ô] Then
StrDel = [Ô]Delete from tbDependentes where codAssociado = [Ô] & codAssociado
rs.open StrDel,conexao
StrDel = [Ô]Delete from tbAssociados where codAssociado = [Ô] & codAssociado
rs.open StrDel,conexao
response.Redirect([Ô]associado.asp?cmd=excluir&situacao=ok[Ô])
End if
Não sei se essa é a melhor forma, más como ele estava reclamando que não tinha o objeto, mesmo ele estando setado na conexao, eu criei um recordset e funcionou sem maiores problemas.
Estou encerrando esse tópico, más se alguém solber porque que a primeira função não estava funcionando, agradeço se puder me passar uma mensagem interna com essa informação.
Obrigado e abraço a todos
Eu alterei
If cmd = [Ô]excluir[Ô] and codAssociado <> [Ô][Ô] Then
StrDel = [Ô]Delete from tbDependentes where codAssociado = [Ô] & codAssociado
conexao.execute StrDel
StrDel = [Ô]Delete from tbAssociados where codAssociado = [Ô] & codAssociado
conexao.execute StrDel
response.Redirect([Ô]associado.asp?cmd=excluir&situacao=ok[Ô])
End if
Para
Set rs = Server.CreateObject([Ô]ADODB.Recordset[Ô])
If cmd = [Ô]excluir[Ô] and codAssociado <> [Ô][Ô] Then
StrDel = [Ô]Delete from tbDependentes where codAssociado = [Ô] & codAssociado
rs.open StrDel,conexao
StrDel = [Ô]Delete from tbAssociados where codAssociado = [Ô] & codAssociado
rs.open StrDel,conexao
response.Redirect([Ô]associado.asp?cmd=excluir&situacao=ok[Ô])
End if
Não sei se essa é a melhor forma, más como ele estava reclamando que não tinha o objeto, mesmo ele estando setado na conexao, eu criei um recordset e funcionou sem maiores problemas.
Estou encerrando esse tópico, más se alguém solber porque que a primeira função não estava funcionando, agradeço se puder me passar uma mensagem interna com essa informação.
Obrigado e abraço a todos
Tópico encerrado , respostas não são mais permitidas