Tenho 2 s

[Carcleo 4]

Olá Pessoal, tenho 2 duvidas1ª - Existe alguma variavel, que possa ser guardada em sessao que guarde um link clikado.Por exemplo - No menu de um site, existe um link que só pessoas cadastradas têm acesso, quando clikado por um sem acesso, cai numa pagina pedindo login e senha, certo?Pois bem, o que eu quero é guardar nessa pagina numa sessao, uma variavel que me iforme qual foi o link clikado antes de chegar na pagina de autenticação, para que depois de autenticado, possa se dar um redirecionamento para aquele link.no php, esta variavel é $_SERVER["PHP_SELF"], e no asp?2ª - No Código abaixo, preciso verificar, se o comando sql de inserção no bd foi executado ok, se ok, imprimir o alert de ok, tentei com if not Rs_INSERT.open then, mas num é assim, como ficaria essa vericação.Desde já, muito obrigado<%If Request.QueryString("action") = 1 Thentitulo = Request.Form("titulo")texto = Request.Form("texto")sql = "INSERT INTO ilustra(titulo, texto) VALUES('"&titulo&"','"&texto&"')"set Rs_INSERT = Conn.execute(sql)if not Rs_INSERT.open thenresponse.write "<script>alert('Cadastro OK!'); document.location='cadastra_ilustra.asp'</script>"elseresponse.write "<script>alert('Não Deu!'); document.location='cadastra_ilustra.asp'</script>"end ifend if%>Carlos Rocha

[Mário Monteiro 179]

a primeira você pega com request.servervariables("HTTP_REFERER")e asegunda isso não vai fazer nadaif not Rs_INSERT.open thenresponse.write "<script>alert('Cadastro OK!'); document.location='cadastra_ilustra.asp'</script>"elseresponse.write "<script>alert('Não Deu!'); document.location='cadastra_ilustra.asp'</script>"end ifmande imprimir o alete de OK dentro do primeiro if e pronto, pois se der erro nunca vai chegar no alert de não deu, a não ser que você faça um tratamento de erro antes...

[Carcleo 4]

E como ficaria esse tratamento de erros?

[Mário Monteiro 179]

tipo, voce antes de inserir testa se vai gerar chave primaria duplicada e outros possiveis erros de inserção...

[Carcleo 4]

Ta legal, entendi, mas o que eu queria é testar se foi ou nao executada a query de inserção no no.Como por exemplo:sql = "INSERT INTO ilustra(titulo, texto) VALUES('"&titulo&"','"&texto&"')"set Rs_INSERT = Conn.execute(sql)if Conn.execute(sql) thenDaí num tem geito não?

[Mário Monteiro 179]

cara mas das duas uma, ou insere ou da erro. Entende??

[Carcleo 4]

Oberve:sql = "INSERT INTO ilustra(titulo, texto) VALUES('"&titulo&"','"&texto&"')"set Rs_INSERT = Conn.execute(sql)if not Rs_INSERT.open thenresponse.write "<script>alert('Cadastro OK!'); document.location='cadastra_ilustra.asp'</script>"elseresponse.write "<script>alert('Não Deu!'); document.location='cadastra_ilustra.asp'</script>"Noif not Rs_INSERT.open then//Eu preciso testar se o camando foi executado ok.mas nao to encontrando um termo pra isso.to tentando if not Rs_INSERT.open mas num ta dando.o que eu preciso é:Se (codigo sql foi executado ok) entãoimprima - Cadastro okse nãoimprima - Não deu.fim dos se'sEntendeu?Se fosse no php, ficaria assim:$sql = "INSERT INTO ilustra(titulo, texto) VALUES('$titulo','$texto')";$consulta = mysql_query( $sql, $link);if($consulta){echo "<script>alert('Cadastro OK!'); document.location='cadastra_ilustra.php'</script>"; }else {echo "<script>alert('Não foi possivel realizar o Teu cadastro por favor tente novamente...'); document.location='cadastra_ilustra.php'</script>"; }}else {echo "<script>alert('Não foi possivel contatar bd...'); document.location='cadastra_ilustra.php'</script>"; }}?>E como testar em asp se deu ou nao o erro?

[Carcleo 4]

Tenho o código abaixo dando erro de objeto necessario. Por que ta dano esse erro agora?<!--#include file="../global/autentica_cadastra_ilustra.asp" --><%If Request.QueryString("action") = 1 Thentitulo = Request.Form("titulo")texto = Request.Form("texto")sql = "INSERT INTO ilustra(titulo, texto) VALUES('"&titulo&"','"&texto&"')"set Rs_INSERT = Conn.execute(sql)if not Recordset.EOF thenresponse.write "<script>alert('Cadastro OK!'); document.location='cadastra_ilustra.asp'</script>"elseresponse.write "<script>alert('Não Deu!'); document.location='cadastra_ilustra.asp'</script>"end ifend if%><%sNomForm = "form"'Recebe o nome do formulario principal da paginasNomCampo = "texto"' Recebe o nome do campo que vai armazernar as alterações no editorsValInicialCampo = ""'Receber o valor que vem do banco de dados para o editor%><form action="cadastra_ilustra.asp?action=1" method=POST name="form" id="form" onsubmit="document.<%=sNomForm%>.<%=sNomCampo%>.value = Composition.document.body.innerHTML"><P><center><H2>Formulário de cadastro de Ilustrações</H2></center><P><p><TABLE border=2 cellpadding=5 cellspacing=5 align=center width=100%><tr> <td colspan=2> <TABLE> <TR> <TD><font size=+1>Título:</font></TD> <TD><INPUT TYPE="text" NAME="titulo" VALUE="" SIZE=59 MAXLENGTH=60></TD> </TR> <TR> <TD><font size=+1>Texto:</font></TD> <TD><!--#include file="../JSeditor/editor.asp" --></TD> </TR> </TABLE></font> </TD></tr></table><P><center><input type="submit" name="submit" value="enviar" onClick="return CriticaFormulario()"><input type="reset" value="Limpar Campos"> </center></FORM></body></html>

[Salgado 4]

Tente com esse código abaixo

<%

If Request.QueryString("action") = 1 Then

titulo = Request.Form("titulo")

texto = Request.Form("texto")

 

ON ERROR RESUME NEXT ' Isso fará com que caso haja algum erro durante a execução de qualquer código o procedimento não seja interrompido. Usado para evitar exibir telas de erro para os usuários.

 

sql = "INSERT INTO ilustra(titulo, texto) VALUES('"&titulo&"','"&texto&"')"

Conn.execute(sql)

 

if Err.Number = 0 then ' Aqui testo se houve algum erro na execução em seu INSERT

response.write "<script>alert('Cadastro OK!'); document.location='cadastra_ilustra.asp'</script>"

else

response.write "<script>alert('Não Deu!'); document.location='cadastra_ilustra.asp'</script>"

end if

end if

%>

[/tr]

No seu código o problema é que você setou um "RS_Insert" e estava testando um "RecordSet". Uma coisa, DELETE, INSERT e UPDATE não retornam RecordSets, então não adianta fazer esse teste.

[Carcleo 4]

Então quer dizr que no código abaixo, nao ha nada que possa preencher no espaço preenchido elas chaves {...... } para que eu possa conferir se a query foi ou nao executada?<%If Request.QueryString("action") = 1 Thentitulo = Request.Form("titulo")texto = Request.Form("texto")sql = "INSERT INTO ilustra(titulo, texto) VALUES('"&titulo&"','"&texto&"')"set Rs_INSERT = Conn.execute(sql)if {...... } thenresponse.write "<script>alert('Cadastro OK!'); document.location='cadastra_ilustra.asp'</script>"elseresponse.write "<script>alert('Não Deu!'); document.location='cadastra_ilustra.asp'</script>"end ifend if%>

[Salgado 4]

Ela será sempre executada, gerando ou não erro no interpretador SQL da base de dados. Usando o ON ERROR ... você saberá se houve ou não esse erro e se sua SQL foi aceita. Veja em minha postagem anterior.

[Carcleo 4]

Por nescessidades profissionais, estou migrando do php para o asp, e num sei quase nada.No php(codigo abaixo), voce pode observar que da pra autenticar erro atraves da variavel $consulta que retem todas as informações da query$sql = "INSERT INTO ilustra(titulo, texto) VALUES('$titulo','$texto')";$consulta = mysql_query( $sql, $link);if($consulta){echo "<script>alert('Cadastro OK!'); document.location='cadastra_ilustra.php'</script>"; }else {echo "<script>alert('Não foi possivel realizar o Teu cadastro por favor tente novamente...'); document.location='cadastra_ilustra.php'</script>"; }}