Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
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 = nothingif 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>Mas mesmo o response.redirect estando depois do alerta?
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 IfEnd if%>
</body>
</html>
você não vai conseguir o alert dando o response.redirect
faça o redirecionamento via javascript que irá funcionar