<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim RsShowVar Response.CacheControl="no-cache" Response.AddHeader "Pragma","no-cache" Response.Expires=0 Set Conexao = Server.CreateObject("ADODB.Connection") Conexao.Open = db Set RsShow = Server.CreateObject("ADODB.RecordSet") sql = "" sql = sql & " Select ID, imagempq, titulo, datashow, clicks " sql = sql & " FROM shows " sql = sql & " WHERE status = 1 " sql = sql & " AND DateValue('"&date()&"') BETWEEN DateValue(diai&'/'&mesi&'/'&anoi) AND DateValue(diaf&'/'&mesf&'/'&anof) " sql = sql & " ORDER BY DateValue(diaf&'/'&mesf&'/'&anof) " RsShow.Open SQL, Conexao, 3, 3 ' Nome do documento XML de saida arquivo_xml= "viafunchal_selo.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("") act.WriteLine("") 'percorre o recordset e com o dados escreve no arquivo XML do while not RsShow.EOF act.WriteLine("") act.WriteLine(""&RsShow(2)&"") act.WriteLine(""&RsShow(3)&"") act.WriteLine("") ' move para o proximo registro RsShow.movenext loop ' fecha a tag act.WriteLine("") ' fecha o objeto xml act.close %>