Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

creipi

[Resolvido] Criando um XML acessando dados de um bd - para RSS

Por , em ASP Clássico

Recommended Posts

creipi    0

creipi
Postado

Olá pessoal, estou tentando criar um RSS em meu site está dando o seguinte erro:

 

--------------

Microsoft VBScript runtime error '800a0046'

 

Permission denied

 

/profgerson/gera_rss.asp, line 26

--------------

 

Essa é a linha 26: set objtstream = objfso.createtextfile(var_file, true)

 

 

Agradeço quem puder me ajudar. Valeu.

 

Segue o arquivo gera_rss.asp:

 

 

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Mural</title>
<link rel="service.feed" type="application/atom+xml" title="RSS testando" href="rss/mural.xml"></link>
</head>

<body>
<%
Set conmural = Server.Createobject ("ADODB.Connection")
ABRIR="DSN=grandedirceu_cefet"
conmural.open ABRIR
Set recmural = Server.Createobject ("ADODB.Recordset")
recmural.open "select * from mural ORDER BY codmural DESC", conmural
%>	 

<%
dim var_path, var_file, var_count

var_path = server.mappath("rss")
var_file = var_path & "\" & "mural.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>CEFET-UNED-PHB - Professor Francisco Gerson</title>"
objtstream.writeline "<link>http://www.piracuruca.com/profgerson</link>"
objtstream.writeline "<description>Informações e material sobre as disciplinas ministradas pelo professor</description>"
objtstream.writeline "<language>pt-br</language>"

while (var_count < 7) and (not recmural.eof)

objtstream.writeline "<item>"
objtstream.writeline "<title>"&recmural.fields.item("descricao").value&"</title>"
objtstream.writeline "<link>http://www.piracuruca.com/profgerson</link>"
objtstream.writeline "<description>Informações e material sobre as disciplinas ministradas pelo professor</description>"
objtstream.writeline "</item>"

var_count = var_count + 1
recmural.movenext()
wend

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

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

<%
recmural.close
conmural.close
set conmural=nothing
%>

<a href="rss/mural.xml" title="rss_mural">Clique RSS</a>
</body>
</html>

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito