"Não executa uma função"

[Hempinho 0]

Ae fazendo favor alguem pode me dizer porque o JAVASCRIPT, não está sendo executado ?

 

<%acao = Request.Querystring("acao")IF acao = "salvar" THENcategoria = 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 quando do um Salvar ao invez de salvar a a ID que abri pra edita e salvar, ele salva em outra id as modificações.

[rOcKLoCo 0]

provavelmente a variavel ACAO está vazia ou com outro valor q não é o salvarfalows

[lfbadwolf 0]

tente logo apos o comando acao = Request.Querystring("acao")dar um write em acao para ver se ha algo na variavel ...e na parte id="&id&"") a parte do &"" é dispensavel uma aspas esta eliminando a outroa ... e verifica este Id onde você esta jogando valor nele e imprimi antes pra ver se ha algum valor na variavel.e ao inves de usar <script language="JavaScript"> alert("Tudo ocorreu corretamente!"); </script><%Response.Redirect("noticias.asp")use <script language="JavaScript1.2"> alert("Tudo ocorreu corretamente window.location.replace("pagina.asp"); </script>Atenciosamente,Luiz Feipe porgramador PHP e ASP felipeoutros@bol.com.brmsn: felipestagio@hotmail.com

[Hempinho 0]

bom eu dei um response.wirite em todas "variaveis" ai do resquest.for, e todos retorno ao falo 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 foir editada.

[rOcKLoCo 0]

veja se você está passando o ID na query stringfalows

[Hempinho 0]

ASP [/tr][tr]<%

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

%>

[/tr]

 

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.

[Hempinho 0]

Alguem pode me da uma força aqui fazendo favor, e me fala porque não salva as alterações na ID que está sendo editada no momento, as alterações salva em uma outra id.

 

Comando de Salvar:

 

ASP [/tr][tr]<%

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

%>

[/tr]

 

Essa tabela aparece quando executo a acao LER.

 

ASP [/tr][tr]<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: </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: </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: </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 %>

[/tr]

 

Comando para LER a mensagem "Retorna numa textarea" e uma "Combo", ´pra poder ser editado e executar o comando salvar acima:

 

ASP [/tr][tr]<%

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

%>

[/tr]

 

depois que eu coloquei o id = Request.Querystring("id") no comando de salvar 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.

[rOcKLoCo 0]

você não está passando o ID pela QueryStringfalows

[Hempinho 0]

aonde isso ? :huh:

[rOcKLoCo 0]

:wacko:

 

verifique na barra de endereço se está assim

 

http://www.seusite.com.br/pagina.asp?id=1025514

 

 

Exemplo... ok?

 

 

:blink:

 

 

:huh: B)

[Hempinho 0]

esta sim a id aparce corretamente.