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)
Carregando comentários...