Erro De Sql E Rs

[DackAle]

E ae galera =)

Hmmmm pra variar me confundo tudo na hora de abrir mais deuma SQL e mais de um RecordSet...

seguinte, tenho que abrir duas SQL, pra pegar dados diferentes na mesma pagina.

O primeiro esta funcionando normal, mostra os dados, mas a segunda SQL da erro

Microsoft VBScript runtime error '800a01a8' 

Object required: '' 

/b2w.com.br_non_ssl/clientes/apos/novo/novidades.asp, line 40 

O codigo é o seguinte (ai só ta parte de ASP mesmo, o resto é HTML e a conexão ta em uma include, mais em cima)

<%
   artigo = "artigo"
   SQL="SELECT * FROM novidades WHERE categoria='" & artigo & "'"
      RS.Open SQL,Conexao
   
   if RS.EOF then
   %>
   <span class="txt_title">Nenhum registro encontrado</span>
   <%end if 
   WHILE NOT RS.EOF %>
   <img src="images/icone.jpg"><span class="txt_title"><a href=novidade.asp?id=<%=rs("id")%> class="texto_normal4_css"><%=trim(rs("titulo"))%></a></span><br><br>
   <%
   RS.MoveNext
   WEND
   rs.close
   set rs=nothing
   %><br>
   <font color="#FFA244" size="2" style="font-size:12px; font-weight:bold; font-family:Verdana, Arial, Helvetica, sans-serif;" #invalid_attr_id="Verdana">Informativo</font><br><br>            
   <%
   informativo = "informativo"
   SQL2="SELECT * FROM novidades WHERE categoria='" & informativo & "'"
   RS2.Open SQL2,Conexao
   if RS2.EOF then
   %>
   <span class="txt_title">Nenhum registro encontrado</span>
   <%end if 
   WHILE NOT RS2.EOF%>
   <img src="images/icone.jpg"><a href=novidade.asp?id=<%=rs2("id")%> class="texto_normal4_css"><%=trim(rs2("titulo"))%><a/></span><br><br>
   <%
   RS2.MoveNext
   WEND
RS2.Close
SET RS2=Nothing
   %>

alguém sabe o porque do erro ?

Abraços e valeu =)

[dark0]

Antes de mais nada.. Qual delas é a linha 40?

<%

  artigo = "artigo"

  SQL="SELECT * FROM novidades WHERE categoria='" & artigo & "'"

  set RS = Conexao.Execute(SQL)

 

  if RS.EOF then

  %>

  <span class="txt_title">Nenhum registro encontrado</span>

  <%else

  WHILE NOT RS.EOF %>

  <img src="images/icone.jpg"><span class="txt_title"><a href=novidade.asp?id=<%=rs("id")%> class="texto_normal4_css"><%=trim(rs("titulo"))%></a></span><br><br>

  <%

  RS.MoveNext

  WEND

  rs.close

  set rs=nothing

  end if

  %><br>

  <font color="#FFA244" size="2" style="font-size:12px; font-weight:bold; font-family:Verdana, Arial, Helvetica, sans-serif;" #invalid_attr_id="Verdana">Informativo</font><br><br>           

  <%

  informativo = "informativo"

  SQL2="SELECT * FROM novidades WHERE categoria='" & informativo & "'"

  RS2.Open SQL2,Conexao

  if RS2.EOF then

  %>

  <span class="txt_title">Nenhum registro encontrado</span>

  <%end if

  WHILE NOT RS2.EOF%>

  <img src="images/icone.jpg"><a href=novidade.asp?id=<%=rs2("id")%> class="texto_normal4_css"><%=trim(rs2("titulo"))%><a/></span><br><br>

  <%

  RS2.MoveNext

  WEND

RS2.Close

SET RS2=Nothing

  %>

Eu alterei o que ta em azul.

Para executar o SQL, pode ser que seu modo funcione tambem, mas eu uso sempre esse que coloquei.

Depois, eu coloquei ELSE, e fechei o IF depois do LOOP. Isso, porque, se for vazio, vai mostrar a mensagem. Mas depois de mostrar a mensagem, o codigo continua a ser executado. E isso pode dar erro.

Faça o mesmo com a parte de baixo.. E veja se funciona.

Se não der, diga qual é a linha do erro!

Abraços