Tenho 2 Duvidas

Carlos Rocha · Janeiro 25, 2005

Olá Pessoal, tenho 2 duvidas

1ª - 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 Then
titulo = 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 then
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
%>

Carlos Rocha

Rob_g2*6(sic)6 · Janeiro 25, 2005

Bom caso 1°.

você pode passar por query o Valor Por Ex.

link = link.asp?url=link
session("link") = request.queryString("url") & ".asp"
Ao logar
response.redirect(session("link"))

No caso 2 em Primeiro Lugar a Conexão já tem que estar Aberta ...!!!! p/ você poder Inserir dados !!!!

você pode tentar isso .... NÃO TESTEI

if conn.Execute(sql) then
response.write("Inseri")
else
response.write("Não Inseri")
end if

Espero ter sido claro .......

Posta ai o resultado !!!!!!!!!!

Carlos Rocha · Janeiro 25, 2005

usando:

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

set Rs_INSERT = Conn.execute(sql)

if Conn.execute(sql) then

Ta dando o seguinte erro:

Tipo de erro:

Erro de tempo de execução do Microsoft VBScript (0x800A000D)

Tipos incompatíveis

/host/viveasp/admin/paginas/cadastra_ilustra_conteudo.asp, line 10

Developer · Janeiro 25, 2005

1)

<a href="pagina.asp?pagina=teste.asp">

<%
session("pagina") = request("pagina")
%>

<%="A página que você está acessando se chama: "&session("pagina")%>

2)

<%
If Request.QueryString("action") = 1 Then
titulo = Request.Form("titulo")
texto = Request.Form("texto")

sql = "INSERT INTO ilustra(titulo, texto) VALUES('"&titulo&"','"&texto&"')"
set Rs_INSERT = Conn.execute(sql)
response.write "Cadastrado com sucesso!!!"
%>

Carlos Rocha · Janeiro 25, 2005

E se o cadastro não tiver tido sucesso, como testar?

Developer · Janeiro 25, 2005

E se o cadastro não tiver tido sucesso, como testar?

Como assim se ele não der certo... Você quer algo que quando não digitar um campo ele aparece uma mensagem falando para preencher os campos... Isso?

Carlos Rocha · Janeiro 25, 2005

Oberve:

sql = "INSERT INTO ilustra(titulo, texto) VALUES('"&titulo&"','"&texto&"')"
set Rs_INSERT = Conn.execute(sql)

if not Rs_INSERT.open then
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>"

No

if not Rs_INSERT.open then//

Eu preciso testar se o camando foi executado ok. mas não 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ão imprima - Cadastro ok se não imprima - Não deu. fim dos se's Entendeu? 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>"; }
}
?>

Developer · Janeiro 25, 2005

Ta ai

<%
If Request.QueryString("action") = 1 Then
titulo = Request.Form("titulo")
texto = Request.Form("texto")
if titulo="" or texto="" then
response.write "Algo ficou errado!"
else
sql = "INSERT INTO ilustra(titulo, texto) VALUES('"&titulo&"','"&texto&"')"
set Rs_INSERT = Conn.execute(sql)
response.write "Cadastrado com sucesso!!!"
end if
%>

Carlos Rocha · Janeiro 25, 2005

não, num quero testar se os campos do formulario foram ou não preenchidos.

O que eu quero testar é se a query de inserção no bd foi ou não executada, entendeu?

Developer · Janeiro 25, 2005

não, num quero testar se os campos do formulario foram ou não preenchidos.
O que eu quero testar é se a query de inserção no bd foi ou não executada, entendeu?

if Recordset.EOF then

response.write "Não cadastra..."

else

response.write "Cadastra"

end if

Carlos Rocha · Janeiro 25, 2005

Parece que agora vai, ta danu o erro:

Tipo de erro:

Erro de tempo de execução do Microsoft VBScript (0x800A01A8)

Objeto necessário: ''

/host/viveasp/admin/paginas/cadastra_ilustra_conteudo.asp, line 11

Developer · Janeiro 25, 2005

Parece que agora vai, ta danu o erro:
Tipo de erro:
Erro de tempo de execução do Microsoft VBScript (0x800A01A8)
Objeto necessário: ''
/host/viveasp/admin/paginas/cadastra_ilustra_conteudo.asp, line 11

Posta o codigo pra dar uma olhada...

Carlos Rocha · Janeiro 25, 2005

<!--#include file="../global/autentica_cadastra_ilustra.asp" -->
<%
If Request.QueryString("action") = 1 Then
titulo = 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 then
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
%>
<%
sNomForm = "form"'Recebe o nome do formulario principal da pagina
sNomCampo = "texto"' Recebe o nome do campo que vai armazernar as alterações no editor
sValInicialCampo = ""'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>

Editado: Utilize as tags CODE ou QUOTE quando postar códigos

Editado Janeiro 25, 2005 por cyberalexxx

Developer · Janeiro 25, 2005

<!--#include file="../global/autentica_cadastra_ilustra.asp" -->
<%
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open "select * from tabela", conn, 3
If Request.QueryString("action") = 1 Then
titulo = Request.Form("titulo")
texto = Request.Form("texto")

if not rs.EOF then
sql = "INSERT INTO ilustra(titulo, texto) VALUES('"&titulo&"','"&texto&"')"
set Rs_INSERT = Conn.execute(sql)
response.write "Cadastrado com sucesso!"
else
response.write "Não."
end if
end if
%>
<%
sNomForm = "form"'Recebe o nome do formulario principal da pagina
sNomCampo = "texto"' Recebe o nome do campo que vai armazernar as alterações no editor
sValInicialCampo = ""'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>

Carlos Rocha · Janeiro 25, 2005

Olha só o que voce fez foi testar no bd se já existe ou não algum registro com os dados do form, caso não exista, prosegue com a query, caso contrario, desiste da query, certo?

O que eu preciso, é saber, depois da execução da query, se ele foi realizada ok ou deu erro na hora da execução, entende?

Developer · Janeiro 25, 2005

Olha só o que voce fez foi testar no bd se já existe ou não algum registro com os dados do form, caso não exista, prosegue com a query, caso contrario, desiste da query, certo?
O que eu preciso, é saber, depois da execução da query, se ele foi realizada ok ou deu erro na hora da execução, entende?

Acho que isso não tem como..

Rob_g2*6(sic)6 · Janeiro 25, 2005

Caramba trocentas postadas ..... e não é a da dúvida eu entendi rocha oque você quer fazer !!!!

Olha só você não precisa de

set RS_insert = conn.execute(sql)
porque se trata de uma inserção e você não vai guardar resgistro nehum
conn.Open("STRING DE CONEXÃO")
sql = "insert bla bla bla"
Tenta isso
dim desc,numero
on Error Resume Next
numero = err.Number
desc = err.Desc
conn.execute(sql)
if err.number <> 0 then
response.write("houve um erro de "& desc)
end if

Também não testei mais se não for isso é quase isso

tenta provocar um erro, tipo coloca o insert errado e testa o código ...

Posta o resultado

Developer · Janeiro 25, 2005

Ele quer

"O que eu preciso, é saber, depois da execução da query, se ele foi realizada ok ou deu erro na hora da execução, entende? "

Eu verifiquei... E não tem como...

Entrar

Tenho 2 Duvidas

Pergunta

Link para o comentário

Compartilhar em outros sites

17 respostass a esta questão

Posts Recomendados

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns