Publicado em 25 de jul.

O que tem de erraod nesse código

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<html>
<title>Criando um arquivo XML a partir de uma base de dados Access</title>
<body bgcolor="#FFFFFF">

<%
' Define o nome do banco de dados a ser consultado
accessdb="../superconectado.mdb"
' Define a string de conexao com o Access
cn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath(accessdb)
' Cria um objeto recortdset
Set rs = Server.CreateObject("ADODB.Recordset")
' define a instrução SQL para obter os dados da tabela
sql = "select id, idsecao, titulo, chamada from tbl_conteudo "
' Executa o SQL
rs.Open sql, cn
' Move para o primeiro registro
rs.MoveFirst
' Nome do documento XML de saida
arquivo_xml= "classificacao.xml"
' cria um arquivo usando o file system object
set fso = createobject("scripting.filesystemobject")
' cria o arquivo texto no disco com opção de sobrescrever o arquivo existente
Set act = fso.CreateTextFile(server.mappath(arquivo_xml), true)
' cabecalho do XML

act.WriteLine("<?xml version=""1.0""?>")
act.WriteLine("<times>")

'percorre o recordset e com o dados escreve no arquivo XML
do while not rs.eof

act.WriteLine("<time>" & rs("id") & "</time>" )
act.WriteLine("<pontos>" & rs("idsecao") & "</pontos>" )
act.WriteLine("<jogos>" & rs("titulo") & "</jogos>")
act.WriteLine("<vitorias>"& rs("chamada") & "</vitorias>")

' move para o proximo registro
rs.movenext
loop
' fecha a tag
act.WriteLine("</times>")

' fecha o objeto xml
act.close

' Escreve um link para o arquivo xml criado

response.write "Classificação do Campeonato Brasileiro de Futebol até a rodade de 15/10/2004.(Só os cinco primeiros )<P>"
response.write " Para ver o arquivo XML gerado , clique no link a seguir <P>"
response.write "<a href='classificacao.xml'>classificacao</a> (.xml) foi criado com sucesso<br>"
response.write "em " & now() & "<br>"

</body>
</html>------------------------------------------------

Talvez eu não tenha o programa XML instalado em meu computador... Mas não tenho certeza... Me indiquem um interpretador bom...

Discussão (2)

Entre ou cadastre-se para participar da discussão

Entrar Criar conta

Carregando comentários...

act.WriteLine("<time>" & rs("id") & "</time>" ) act.WriteLine("<pontos>" & rs("idsecao") & "</pontos>" ) act.WriteLine("<jogos>" & rs("titulo") & "</jogos>") act.WriteLine("<vitorias>"& rs("chamada") & "</vitorias>")

response.write "Classificação do Campeonato Brasileiro de Futebol até a rodade de 15/10/2004.(Só os cinco primeiros )<P>" response.write " Para ver o arquivo XML gerado , clique no link a seguir <P>" response.write "<a href='classificacao.xml'>classificacao</a> (.xml) foi criado com sucesso<br>" response.write "em " & now() & "<br>"