Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
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">](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><%
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"](http://www.piracuruca.com/profgerson)
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"](http://www.piracuruca.com/profgerson)
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>Carregando comentários...