Rapper

ae fazendo favor como faço um esquema assim, tipo eu to na pagina testando ai eu pego e tento acessar a pagina testanto2, ai eu não tenho acesso, como que faz pra redirecionar pra pagina que eu estava antes ? no caso testanto ?

deu certo aqui! Gladisson, valeu ai pela ajuda

ta mais isso ai é quando usa tipo um href="javascript:funcao()" por exemplo, ai no caso eu queria, chamar ele "direto" caso ocorrece o erro do user não estar logado na pagina!

Ae fazendo favor, alguém sabe me fala se tem como eu faze tipo assim, tenho varios "functions" dentro de um <script languague="javascript"></script> , ai gostaria de saber se tem como eu chamar somente um "function" quando uma pessoa não tem acesso a pagina. tipo assim: <%IF session("user") = "" THEN%> <script> function alerta(); </script> <%END IF%> desde já valeu!

a dexa queto isso :/

olha só porque exemplo faze de conta que esse comando de fechar é o de abrir a janela <script language="JavaScript"> function fechar() { document.getElementById("fechar").style.visibility = "hidden"; } </script> ai por exemplo <%if session("user") = "" then%> <script language="JavaScript"> function fechar(); </script> <%end if%> queria saber se da pra fazer dessa maneira, pois tenho varios script em javascript, onde ta aquele fechar ali, ai gostaria de chamar somente ele, se isso for possivel.

a valeu ai por tentar ajudar, mas não é isso que vocês tão falando que quero mas valeu por tentar ajudar!

então não é desse modo que quero, porque tipo esse java que quero chama é um script pra abrir uma janela "personalizada" ai ta como function alerta() ai eu queria chama esse function se possivel, mas acho eu que não tem como pelo falo aqui.

é que tipo o script é meio grandinho pra faze um Response.Write ai se meio complicadinho. :/

Ae tem como faze tipo quando uma pessoa não tem acesso a uma certa pagina, chamar um javascript, mas não no modo "normal"! <% if session("user") = "" then %> <script language="JavaScript"> alert("mensagem") </script> tipo só chama ele pelo nome ex: <% if session("user") = "" then %> <script language="JavaScript"> function alerta(); </script> tem como faze algo assim ?

Porque não edito o outro tópico ao invez de abrir outro tópico com o mesmo assunto !?

que erro ta dando ? que linha é o erro ? ninguém aqui é "mãe dina" :/

ae fazendo favor, como que faço tipo verica quantas vezes o nome do usuario se repete no DB, pra mim poder retornar em numeros, pra saber quantas mensagem ele posto e tal.

Ae fazendo favor como faço tipo, quando da um "ERRO" ai abrir uma "Janela com imagem" feita por mim. ai no momento que for redireiciona pra pagina que ele tava antes desse "ERRO" a "janela" fechar sozinha. "+/- igual a do site quando a gente se loga e tal".

ae fazendo favor alguém pode me ajuda a "adaptar" esse código pra ficar no modo: Páginas: 1 de 20 - 1 2 3 4 Páginas: 3 de 20 3 3 4 5 4 Páginas: 5 de 20 3 5 6 7 4 bom se alguém poder me ajudar ficarei muito agradecido! <table width="200" border="0" cellspacing="0" cellpadding="0" style="border: 1 solid #FF0000"> <tr align="center"> <td height="20" style="border-bottom: 1 solid #FF0000; border-right: 1 solid #FF0000"><font color="#00FF00" size="1" face="Verdana"><b>C1</b></font></td> <td height="20" style="border-bottom: 1 solid #FF0000"><font color="#00FF00" size="1" face="Verdana"><b>C2</b></font></td> </tr> <% sql = "SELECT * FROM c ORDER BY c3" set rzo = server.createobject("adodb.recordset") rzo.cursorlocation = 3 rzo.open sql,conexao if (rzo.eof=true) then Response.write("sem registros") Else n = rzo.recordcount rzo.movefirst rzo.pagesize = 5 IF Trim(Request.QueryString("pag")) = "" THEN pag = 1 ELSE IF cint(Request.QueryString("pag")) < 1 THEN pag = 1 ELSE IF cint(Request.QueryString("pag")) > n THEN pag = n ELSE PAG = Request.QueryString("pag") END IF END IF END IF rzo.absolutepage = trim(pag) total = rzo.PageSize x = 0 do while x < total and not rzo.EOF c1 = rzo("c1") c2 = rzo("c2") %> <tr align="center"> <td style="border-right: 1 solid #FF0000"><font color="#00FF00" size="1" face="Verdana"><%=c1%></font></td> <td><font color="#00FF00" size="1" face="Verdana"><%=c2%></font></td> </tr> <% x = x + 1 rzo.movenext Loop End if rzo.close set rzo = nothing IF (n > 1) then pagina = Request.Servervariables("SCRIPT_NAME") %> </table> <table width="200" border="0" cellspacing="0" cellpadding="0"> <tr> <td height="18" align="right"> <% IF pag > 1 THEN %> <font color="#FFFFFF" size="1" face="Verdana">P&aacute;ginas: [<b><%=n%></b>] <% IF cint(pag) > 1 THEN %><a href="<%=pagina%>"?page=1><font color="#FF0000" face="Webdings">3</font></a><% END IF %> <b><%=pag%></b> <a href="<%=pagina%>?pag=<%=pag - 1%>"><font color="#FF0000" face="Webdings">4</font></a></font> <% END IF %> <% IF n > 6 THEN maximo = 6 ELSE maximo = n END IF IF cint(pag) > 1 THEN geral = geral + cint(pag) END IF IF cint(pag) = 1 THEN ini = 1 geral = 6 ELSEIF cint(pag) <> maximo THEN ini = geral geral = maximo + 6 ELSEIF cint(pag) = maximo THEN ini = geral geral = geral + 6 ELSE ini = 1 geral = 6 END IF IF geral > n THEN geral = n END IF FOR i = ini TO geral NEXT IF cint(pag) < n THEN Response.Write("<a href="& pagina &"?pag="& pag + 1 &"><font color='#FF0000' face='Webdings'>4</font>") ELSE Response.write("") END IF END IF %> </td> </tr> </table> </center> </body> </html> <% conexao.close set conexao = nothing %>

ae fazendo favor alguém sabe um tuto sei la ou como posso faze pra pega as noticias do site http://noticias.terra.com.br/ultimas/0,,EI1,00.html e lista no meu site ? ai ao clicar ler a noticia. se isso for possivel.

O código em si ta funcionado perfeitamente. mas ele exibe todos registros. eu quero faze como o modelo acima. pra exebi do geito que ta ai

Ae fazendo favor, como posso atravez desse código, aparecer: Pagina: 2 de 10 -> | Pagina: 2 3 de 10 -> | Pagina: 2 3 4 de 10 -> | Pagina: 2 3 4 5... de 10 -> até 5 depois aparece ... mais 5. <% IF rsm.pagecount <> "0" THEN anterior = page - 1 IF anterior = 0 THEN Response.Write("[ Anterior -") ELSE Response.Write("<a href=mural.asp?page="&anterior&">Anterior</a> -") END IF FOR i = 1 TO rsm.pagecount IF (i <> cint(page)) THEN Response.Write("<a href=mural.asp?page="&i&"><b>"&i&"</b></a>") ELSE Response.Write(""&i&"") END IF NEXT total = i - 1 proxima = page + 1 IF proxima > total THEN Response.Write("- Pr&oacute;ximo ]") ELSE Response.Write("- <a href=mural.asp?page="&proxima&">Pr&oacute;ximo</a> ]") END IF END IF END IF %>

Pronto editei colocando tudo ai em cima!

Comando de Salvar: <% acao = Request.Querystring("acao") IF acao = "salvar" THEN id = Request.Querystring("id") categoria = Request.Form("categoria") texto = Replace(Request.Form("texto"), "'" , "''") texto = Replace(texto,chr(13),"<br>") conexao.execute("UPDATE noticias SET categoria='"&categoria&"', texto='"&texto&"', aprovado='sim' WHERE id = "&id&"") %> <script language="JavaScript"> alert("Tudo ocorreu corretamente!"); </script> <% Response.Redirect("noticias.asp") END IF %> Essa tabela aparece quando executo a acao LER. <table width="90%" border="0" align="center" cellpadding="0" cellspacing="0"> <form name="moderar" method="post" action="noticias.asp?acao=salvar"> <tr> <td width="17%" height="26" align="right"><font size="1" face="Verdana">Assunto:&nbsp;</font></td> <td width="83%" height="26"><font size="1" color="#FF0000" face="Verdana"><%=titulo%></font></td> </tr> <tr> <td width="17%" height="22" align="right"><font size="1" face="Verdana">Categoria:&nbsp;</font></td> <td width="83%" height="22"> <select name="categoria" class="combo" size="1"> <% sql = ("SELECT * FROM categorias ORDER BY id") set rsi = Server.Createobject("adodb.recordset") rsi.open sql,conexao,3,3 total = rsi.recordcount x = 0 do while x < total imagem = rsi("imagem") nome = rsi("categoria") %> <option value="<%=imagem%>" <% IF categoria = imagem THEN %>selected<% END IF %>><%=nome%></option> <% x = x + 1 rsi.movenext loop rsi.close set rsi = nothing %> </select> </td> </tr> <tr> <td width="17%" align="right" valign="top"><font size="1" face="Verdana">Texto:&nbsp;</font></td> <td width="83%"><textarea name="texto" cols="70"><%=texto%></textarea></td> </tr> <tr> <td width="17%" height="20"></td> <td width="83%" height="25"><input type="image" src="../imgs/botao_salvar.gif"> <a href="noticias.asp?acao=del&id=<%=id%><img src="../imgs/botao_apagar.gif" border="0"></a></td> </tr> </form> </table> <% END IF %> Comando para LER a mensagem "Retorna numa textarea" e uma "Combo", ´pra poder ser editado e executar o comando salvar acima: <% acao = Request.Querystring("acao") IF acao = "ler" THEN id = Request.Querystring("id") sql = ("SELECT * FROM noticias WHERE id = "&id&"") set rsv = Server.Createobject("adodb.recordset") rsv.open sql,conexao,3,3 categoria = rsv("categoria") texto = rsv("texto") texto = Replace(texto,"<br>",chr(13)) titulo = rsv("titulo") id = rsv("id") rsv.close set rsv = nothing %> depois que eu coloquei o id = Request.Querystring("id") no comando de salvar como cyberalexxx... falo, deu erro: Erro de sintaxe (operador faltando) na expressão de consulta 'id ='. isso pode ser conflito com outro "comando", bom quem tiver paciencia em me ajuda eu posso passar o arquivo. valeu :/ pronto todo código ai.

Cara num deu certo nem com o Response.Write. Po eu já to é ficando é nervoso na frente desse PC, tentando acha o erro, poque ele salva as auteções em id errada, e não executa esse java.

Salva ele salva com o conteudo errado mais salva e executa o Redirect que ta no final antes do END IF.

sim basta usar um Response.Redirect("pagina.asp")

Ae fazendo favor alguém pode me dizer porque o JAVASCRIPT, não está sendo executado ? <% acao = Request.Querystring("acao") IF acao = "salvar" THEN categoria = Request.Form("categoria") conexao.execute("UPDATE noticias SET categoria='"&categoria&"' WHERE id="&id&"") %> <script language="JavaScript"> alert("Tudo ocorreu corretamente!"); </script> <% Response.Redirect("noticias.asp") END IF %> e tipo eu dei um response.wirite em todas "variaveis" ai do resquest.form, e todos retorno ao valor certo, tipo o que ta acontecendo é que quando eu dou um SALVAR, em em qualquer uma ID, as auterações vão tudo pra "primeira" ID. e não pra ID que foi editada. o comando de ler é esse <% acao = Request.Querystring("acao") IF acao = "ler" THEN id = Request.Querystring("id") sql = ("SELECT * FROM noticias WHERE id = "&id&"") set rsv = Server.Createobject("adodb.recordset") rsv.open sql,conexao,3,3 categoria = rsv("categoria") texto = rsv("texto") id = rsv("id") rsv.close set rsv = nothing %> olha só quando eu clico em LER ele me retorna a essa info numa combox (categoria) e numa textarea, para mim poder editar e SALVAR, que é o comando que site acima, mas é o que falei ele muda as alterações em outra id.

Ae tipo eu to tentando aqui faze pra tipo ao clicar no link "APAGAR" ele executa uma função ASP, que seria essa: <% acao = Request.Querystring("acao") IF acao = "excluir" THEN id = Request.Form("selecionar") conexao.execute("DELETE FROM noticias WHERE id IN ("&id&")") Response.Redirect("noticias.asp") END IF %> porque tipo eu tava tentando faze assim <a href=noticia.asp?acao=excluir>deletar</a> mas ai ele não executa o "FORM" ele não substitui a função de um botão SUBMIT, então me falaram que era em java-script pra tipo chama a função como um "LINK/SUBMIT", alguém pode me da uma força. desde já valeu!