Ir para conteúdo

POWERED BY:

Arquivado

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

Netanias

O que tem de erraod nesse código

Por , em ASP Clássico

Recommended Posts

Netanias    0

Netanias
Postado 

<%@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...

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Qual a mensagem de erro apresentada?

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