Ir para conteúdo
Fórum Script Brasil
  • 0

Erro Na Pagina Que Gera O Rss?


ibreak

Pergunta

Oi pessoal, beleza... estou com o erro abaixo numa página que é responsável por gerar o arquivo rss do meu site.

Podem ajudar. Obrigado.

Erro de compilação do Microsoft VBScript erro '800a0409'

Constante de seqüência não finalizada

/rss/generate.asp, line 31

objtstream.writeline "<?xml version="&chr(34)&"1.0"&chr(34)&"

-------------------------------------------------------------^

Na linha 31 eu tenho isso:

set objfso = server.createobject("scripting.filesystemobject")

set objtstream = objfso.createtextfile(var_file, true)

objtstream.writeline "<?xml version="&chr(34)&"1.0"&chr(34)&"

encoding="&chr(34)&"ISO-8859-1"&chr(34)&"?>"

objtstream.writeline "<rss version="&chr(34)&"2.0"&chr(34)&">"

objtstream.writeline "<channel>"

Abaixo código completo da página:

<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/data.asp" -->
<%
Dim rs_news
Dim rs_news_numRows

Set rs_news = Server.CreateObject("ADODB.Recordset")
rs_news.ActiveConnection = MM_data_STRING
rs_news.Source = "SELECT * FROM noticias ORDER BY data DESC"
rs_news.CursorType = 0
rs_news.CursorLocation = 2
rs_news.LockType = 1
rs_news.Open()

rs_news_numRows = 0
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>

<%
dim var_path, var_file, var_count

var_path = server.mappath("rss")
var_file = var_path & "\" & "news.xml"
var_count = 0

set objfso = server.createobject("scripting.filesystemobject")
set objtstream = objfso.createtextfile(var_file, true) 

objtstream.writeline "<?xml version="&chr(34)&"1.0"&chr(34)&" 
encoding="&chr(34)&"ISO-8859-1"&chr(34)&"?>"
objtstream.writeline "<rss version="&chr(34)&"2.0"&chr(34)&">"
objtstream.writeline "<channel>"
objtstream.writeline "<title>Notícia Regional</title>"
objtstream.writeline "<link>http://www.noticiaregional.com.br</link>"
objtstream.writeline "<description>As principais notícias de Rio Claro/SP e região atualizadas diariamente.
</description>"
objtstream.writeline "<language>pt-br</language>"

while (var_count < 10) and (not rs_news.eof)

objtstream.writeline "<item>"
objtstream.writeline "<title>"&rs_news.fields.item("new_title").value&"</title>"
objtstream.writeline 
"<link>http://www.noticiaregional.com.br/noticias/view.asp?id="&rs_news.fields.item("new_id").value&"</link>"
objtstream.writeline "<description>"&rs_news.fields.item("new_resume").value&"</description>"
objtstream.writeline "</item>"

var_count = var_count + 1
rs_news.movenext()
wend

objtstream.writeline "</channel>"
objtstream.writeline "</rss>"

objtstream.close
Set objtstream = nothing
Set objfso = nothing
%>



<title>Documento sem t&iacute;tulo</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
<font color="#FF9900" size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong><a href="rss/news.xml">RSS 
&gt;&gt; </a></strong><a href="rss/news.xml">rss/news.xml</a></font> 
</body>
</html>
<%
rs_news.Close()
Set rs_news = Nothing
%>

Link para o comentário
Compartilhar em outros sites

6 respostass a esta questão

Posts Recomendados

Visitante
Este tópico está impedido de receber novos posts.


  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...