Web 2 MC

Aqui é uma simples função para gravar um arquivo XML diretamente de uma página ASP.

Este script recebe os dados de um suporte de banco de dados Access para o formato MDB, mas você pode se conectar a qualquer banco de dados de qualquer tipo.

  %> <% @ Language = VBScript
 <%
 "Response.ContentType =" text / xml "
 Response.CodePage = 65001
 Response.Charset = "UTF-8"
 Response.Write ("<? Xml version = '1 .0 'encoding =' iso-8859-1'?>"& vbCrLf)
 Response.Write ("<group>" & vbCrLf)

 Set Conn = Server.CreateObject ("ADODB.Connection")
 conn.Open "DRIVER = (Microsoft Access Driver (*. mdb)); DBQ ="
 & Server.MapPath ("MioDB.mdb) 

  Set rs = Server.CreateObject ("ADODB.Recordset")
 sql = "SELECT * FROM MiaTabella"
 rs.Open sql, conn, 3, 3

 Se não, então RS.EOF

 ContentID = rs (IDTab ")
 ContentPal = rs (SitoTab ")
 ContentNome = rs (NomeTab ")
 ContentDescrizione = rs (DescrizioneTab ")
 ContentUrl = rs (UrlTab ")
 ContentClip = rs (FlashTab ")

 Response.Write ("web <id = '" & ContentID & "' palid = '" & ContentPal & "'") 

  "& ContentNome &" Response.Write ("title =" link = '"& ContentUrl &"' ") 

  "& ContentID &" Response.Write ("thumb = 'clip' = '" & ContentClip & "'") 

  Response.Write ("><![ CDATA ["& ContentDescrizione &"]]></ Web>" & vbCrLf)

 fim se

 rs.Close
 conn.Close
 Set rs = Nothing
 Set Conn = Nothing

 Response.Write ("> </ grupo" & vbCrLf)
 %> 

Relatório em:

Artigos Relacionados

• ASP Programação: Veja se o usuário ainda está conectado
• Programação em ASP: localizar e visualizar os visitantes endereço IP
• Programação em ASP: Paging
• Programação em ASP: Evitar o armazenamento de cache de uma página
• Programação em ASP: bloqueio de endereços IP e gerar erro 403