3 Duvidas =d

[DackAle]

E ae galera blzim ?

Bom vou aproveitar e por 3 duvidas de uma vez a primeira é com um looping, fiz uma consulta no banco de dados e fiz o looping para ele ir mostrando resultado mas aparece esse erro:

Microsoft VBScript compilation error '800a0400' 

Expected statement 

/2/tapas/edit_noticias.asp, line 123 

WEND
^

e o codigo é o seguinte

      <%
   Dim SQL,RS,id,texto,data
   SQL="SELECT id,texto,data From novidades ORDER BY data"
   Call AbreConexao
   Set RS = Conexao.Execute(SQL)
   %>
         <tr>
           <th align="left" valign="top" scope="row"><%=rs("texto")%></th>
           <td align="left" valign="top"><%=rs("data")%></td>
           <td><span class="style22"><a href=editar_noticias.asp?id=<%=rs("id")%> class="LINK2">Editar</a></span></td>
         </tr>
    <% RS.MoveNext
    WEND
    Rs.Close
    SET RS=Nothing
    Call FechaConexao
    %>

Aonde estou errando ? Bom segunda duvida para eu deletar um registro no banco de dados eu faço ao invés de insert ou select

SQL="DELETE * from noticias WHERE id=" & id

assim por exemplo ?

e o UPDATE no caso eu uso um SELECT pego pelo ID e pego os dados, dai eu uso um text area por exemplo e no conteudo inicial eu ponho por exemplo <input name="titulo" type="text" id="titulo" value="<%=rs("texto")%>" size="40"> dai quando mandar vou para outra pagina e la faço ao invés de INSERT ponho o comando UPDATE ?

desculpe as ignorancias ehhehehe mas é falta de pratica =P

Abraçosss e valeu

[Victor]

Você com esse wend quiz fechar um loop que não existiu e nem existe, você tem que colocar um while... Fica assim então:

<%
Dim SQL,RS,id,texto,data
SQL="SELECT id,texto,data From novidades ORDER BY data"
Call AbreConexao
Set RS = Conexao.Execute(SQL)
while not rs.EOF
%>
<tr>
<th align="left" valign="top" scope="row"><%=rs("texto")%></th>
<td align="left" valign="top"><%=rs("data")%></td>
<td><span class="style22"><a href=editar_noticias.asp?id=<%=rs("id")%> class="LINK2">Editar</a></span></td>
</tr>
<% rs.MoveNext
WEND
rs.Close
SET RS=Nothing
Call FechaConexao%>

Espero ter ajudado, caso tenha mais alguma dúvida é só chamar que nós te ajudaremos!!!!!

[]'s

Victor

[DackAle]

aaa valeu velho, mas agora ta praticamente tudo OK =D

Pro site ficar OK só falta trabalhar emcima da paginação, que eu me f*** =(

Não sei fazer, dai peguei um script pronto e esta dando o seguinte erro:

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

/2/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
%>

A parte de paginação é totalmente scrip pronto adaptado e errado ahauhahua praticamente só falta isso para o site. Só para avisar, sem a paginação ta ok, ele retorna os resultados, mas preciso da paginação senão vai quebrar tudo a pagina hehehe

Bom se alguém souber me ajudar tavalendo, brigadão por me aguentar galera hahahaha é fodis, meu ASP é basico e mandam eu fazer um site com um p*** sistema hahahahaha

Abraçosssss e Valeu =)