Ir para conteúdo

POWERED BY:

Arquivado

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

Gilcimar Macedo

[Resolvido] Problema com Alerta (Ignorando)

Por , em ASP Clássico

Recommended Posts

Gilcimar Macedo    0

Gilcimar Macedo
Postado

Bom dia,

 

Estou com problema para utilizar o alert, bom vou tentar explicar.

 

O alert terá que será chamado somente se uma condição for verdadeira, mas não esta sendo apresentado..(Esta sendo ignorado)

 

O que eu preciso é que seja apresentado o alerta, e após o clique no botão sair do alert execute o restante do código..

 

Meu código esta aqui...

 

Pode me perguntar caso não entende.. estou on line neste momento.

 

Abraços

 

 

<!--#include file="../../../fix_login.asp"-->
<html><body>
<!--#include file="menu_superior" -->
<%
if myDBConnection.state then
dim CMD
dim envio
set CMD = Server.CreateObject("ADODB.Command")
set CMD.ActiveConnection=myDBConnection


CMD.CommandText = "{call PROC_OFQEMB(?,?)}"
CMD.CommandTypE=1
CMD.Parameters(0).Direction = 1
CMD.Parameters(1).Direction = 3
CMD.Parameters(0).Value = Request.QueryString("OF")
CMD.Parameters(1).Value = ""
CMD.Execute
envio=CMD.Parameters(1).Value

	CMD.CommandText = "{call ATUALIZA_NRO_RAN(?,?,?)}"
	CMD.CommandType = 1
	CMD.Parameters(0).Direction = 1
	CMD.Parameters(1).Direction = 2
	CMD.Parameters(2).Direction = 2
	CMD.Parameters(0).Value = Request.QueryString("OF")
	CMD.Execute

	if len(CMD.Parameters(1).value >1) or len(CMD.Parameters(2).value) >1 then
		%>
			<script language="javascript">
				alert("Erro no comando ATUALIZA_NRO_RAN, erro <%=CMD.Parameters(1).value%> , descrição <%=CMD.Parameters(2).value%>  ");
			</script>	
		<% 
	end if
	set CMD = nothing	


if instr(envio,"OF enviada") then
	response.redirect("mensagem.asp?envio=" & envio & "&cliente=" & Request.QueryString("cliente") )
else
	response.redirect("mensagem.asp?envio=" & envio & "&of=" & request.querystring("of") & "&cliente=" & Request.QueryString("cliente") )
end If

End if%>

</body>
</html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

jrcardozo    4

jrcardozo
Postado

você não vai conseguir o alert dando o response.redirect

 

faça o redirecionamento via javascript que irá funcionar

Compartilhar este post

Link para o post
Compartilhar em outros sites

Gilcimar Macedo    0

Gilcimar Macedo
Postado

Após a dica para uma solução robusta, consegui concluir o que eu queria.

 

Muito Obrigado mesmo...

 

<!--#include file="../../../fix_login.asp"-->
<html><body>
<!--#include file="menu_superior" -->
<%
if myDBConnection.state then
dim CMD
dim envio
set CMD = Server.CreateObject("ADODB.Command")
set CMD.ActiveConnection=myDBConnection


CMD.CommandText = "{call PROC_OFQEMB(?,?)}"
CMD.CommandTypE=1
CMD.Parameters(0).Direction = 1
CMD.Parameters(1).Direction = 3
CMD.Parameters(0).Value = Request.QueryString("OF")
CMD.Parameters(1).Value = ""
CMD.Execute
envio=CMD.Parameters(1).Value

	CMD.CommandText = "{call ATUALIZA_NRO_RAN(?,?,?)}"
	CMD.CommandType = 1
	CMD.Parameters(0).Direction = 1
	CMD.Parameters(1).Direction = 2
	CMD.Parameters(2).Direction = 2
	CMD.Parameters(0).Value = Request.QueryString("OF")
	CMD.Execute

	if len(CMD.Parameters(1).value >1) or len(CMD.Parameters(2).value) >1 then
		%>
			<script language="javascript">
				alert("Erro no comando atualiza_nro_ran, erro <%=CMD.Parameters(1).value%> , descrição <%=CMD.Parameters(2).value%>  ");				
			</script>	
		<% 
	end if
	set CMD = nothing	

	if instr(envio,"OF enviada") then
		%>
			<script language="javascript">
				window.location = 'mensagem.asp?envio=<%=envio%>&cliente=<%=Cstr(Request.QueryString("cliente"))%>';
			</script>	
		<%
	else
		%>
			<script language="javascript">
				window.location = 'mensagem.asp?envio=<%=envio%>&of=<%=Cstr(Request.QueryString("of"))%>&cliente=<%=Cstr(Request.QueryString("cliente"))%>';
			</script>	
		<%			
	end If

End if%>

</body>
</html>

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