Mais Dois Erros =p

[DackAle]

E ae galera, seis vão me bater né ahauhhau calmaaa que ta no final ahahaha

bom seguinte agora to com erro numa coisa besta o UPDATE, consegui mexer sussa com INSERT, DELETE e SELECT, mas o UPDATE já tentei de tudo um pouco mas num achei a sintaxe certa

<!--#include file="includes/config.asp"-->
<!--#include file="includes/verificacao.asp"-->
<%
Dim SQL,RS,titulo,conteudo
titulo=trim(Request.form("titulo"))
conteudo=trim(request.form("conteudo"))

[B]SQL="UPDATE noticias SET titulo='" & titulo & "' conteudo='" & conteudo & "' WHERE id=" & id[/B]
Call AbreConexao
Conexao.Execute(SQL)
Call FechaConexao
SET RS = NOTHING

if error=0 Then
Response.Redirect("mod_sucesso.asp")
else 
Response.Redirect("exc_sucesso.asp")
end if
%>

Bom tentei isso, sem aspas, mas não da tambem, já tei tudo junto, pondo só virgula para separar mas tambem não deu...

Microsoft JET Database Engine error '80040e14' 

Syntax error (missing operator) in query expression ''Teste 3' conteudo='lalalalala3''. 

/Las Tapas/editar_noticias2.asp, line 10 

da esse erro bom e para terminar estou com p*** problimnha de paginação o erro é esse

ADODB.Recordset error '800a0cb3' 
Current Recordset does not support bookmarks. This may be a limitation of the provider or of the selected cursortype. 

/Las Tapas/edit_noticias3.asp, line 136 

e o codigo é esse

<%
   Dim SQL,RS,id,titulo,data
   SQL="SELECT id,titulo,data From noticias ORDER BY data"
   Call AbreConexao
   Set RS = Conexao.Execute(SQL)
   RS.PageSize = 5
   IF RS.EOF then 
   Response.Write "Nenhum Registro encontrado"
   Response.End 
ELSE
   IF Request.QueryString("pagina")="" then 
      intpagina=1 
   ELSE
      IF cint(Request.QueryString("pagina"))<1 then
         intpagina=1 
      ELSE
         IF cint(Request.QueryString("pagina"))> RS.PageCount then 
            intpagina=RS.PageCount 
         ELSE
            intpagina=Request.QueryString("pagina")
         END IF
      END IF
   END IF
END IF
RS.AbsolutePage=intpagina

intrec=0

While intrec < RS.PageSize and not RS.EOF 
   %>
         <tr>
           <th height="20" align="left" valign="bottom" scope="row"><%=fonte08%><%=rs("titulo")%><span class="style22"><%=fonte%></span></th>
           <td align="left" valign="bottom"><%=fonte08%><%=rs("data")%><span class="style22"><%=fonte%></span></td>
           <td valign="bottom"><span class="style22"><a href=editar_noticias.asp?id=<%=rs("id")%> class="LINK2">Editar</a></span></td>
         </tr>
   <%
RS.MoveNext

   intrec=intrec+1 

   IF RS.EOF then 
      response.write " " 
   END IF
Wend 
IF intpagina > 1 then 
%> 
   <a href="edit_noticias.asp?pagina=<%=intpagina-1%>">Anterior</a> 
<% 
END IF

IF strcomp(intpagina,RS.PageCount) <> 0 then 
%> 
   <a href="edit_noticias.asp?pagina=<%=intpagina + 1%>">Próxima</a> 
<% 
END IF
Rs.Close
SET RS=Nothing
Call FechaConexao
%>

bom essas são minhas duvidas para enxer vocês hahahaha desculpa enxer e tal, espero um dia poder ajudar igual vocês fazem, valeu mesmo galera =)

Abraçãooooo

[DackAle]

poxaaa ninguém ? hehehehe

Abraçosss =)

[Victor]

Tenta assim:

titulo=Request.form("titulo")
conteudo=request.form("conteudo")
conn.execute "UPDATE noticias set titulo='"&titulo&"', conteudo='"&conteudo&"' where id="&id&"", conn, 3

Mas só uma pergunta.... Esse ID, tem um select no ID do produto no banco de dados, e fazendo uma variavel numa parte do arquivo para chamar no SQL?? Porque ai eu não vi essa variavel ID

[]'s

Victor

[DackAle]

Bom tinha realmente esquecido de pegar a id e declarar ela, eu fiz isso

<!--#include file="includes/config.asp"-->
<!--#include file="includes/verificacao.asp"-->
<%
Dim SQL,RS,id,titulo,conteudo
id=request.querystring("id")
titulo=trim(Request.form("titulo"))
conteudo=trim(request.form("conteudo"))

SQL="UPDATE noticias SET titulo=" & titulo & " , conteudo=" & conteudo & " WHERE id=" & id
Call AbreConexao
Conexao.Execute(SQL)
Call FechaConexao
SET RS = NOTHING

if error=0 Then
Response.Redirect("mod_sucesso.asp")
else 
Response.Redirect("exc_sucesso.asp")
end if
%>

e deu esse erro

Microsoft JET Database Engine error '80040e14'

Syntax error (missing operator) in query expression 'Teste 2'.

/Las Tapas/editar_noticias2.asp, line 11

teste 2 foi o conteudo que mudei tipo tava teste e mudei pra teste2

Bom to tomando um coro do update hahahahahahaha

Abraços e Valeuuu

[Victor]

já que você fazendo essa variavel está dando erro, tente fazer com o request.form direto no SQL, ai se funcionar você coloca a variavel denovo... Tenta assim:

conn.execute "UPDATE noticias set titulo='"&request.form("titulo")&"', conteudo='"&request.form("conteudo")&"' where id="&request.querystring("id")&"", conn, 3

Se der erro, posta novamente, que vou tentar pensar em outra solução para ir certo!!!!

[]'s

Victor