Problemas para gerar XML

[Tchello]

Tenho o seguinte script:

<!--#include file="conexao.asp"-->

<%

Query="SELECT Nome,Foto,Descricao "

Query=Query&"FROM Fotos ORDER BY Ordem"

Set rs=Conexao.Execute(Query)

arquivo_xml= "fotos.xml"

set fso= createobject("scripting.filesystemobject")

set act= fso.CreateTextFile(server.mappath(arquivo_xml), true)

act.WriteLine("<?xml version=""1.0"" encoding=""ISO-8859-1"" ?>")

act.WriteLine("<root diretorio='fotos/'>")

do while not rs.eof

act.WriteLine("<foto img=""" & rs("foto") & """ nome=""" & rs("nome") & """>" & rs("descricao") & "</foto>" )

rs.movenext

loop

act.WriteLine("</root>")

act.close

%>

Local gera ok porém online dá erro...

Alguém sabe me dizer porque isso acontece???

[bareta]

qual o erro retornado?

if not rs.eof then

do while not rs.eof

act.WriteLine("<foto img=""" & rs("foto") & """ nome=""" & rs("nome") & """>" & rs("descricao") & "</foto>" )

rs.movenext
loop

end if

[Tchello]

Internal Server Error

The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator to inform of the time the error occurred and of anything you might have done that may have caused the error.

More information about this error may be available in the server error log.

[bareta]

desative os erros amigaveis de seu navegador.

e poste a mensagem de erro