Web 2 MC

Ecco una semplice funzione per scrivere un file XML direttamente tramite una pagina ASP.

Questo script prende i dati da un database di appoggio in formato Access mdb ma potrete connettervi a qualsiasi database di qualsiasi 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

if not rs.eof then

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&"' ")

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

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

Response.Write ("><![CDATA["&ContentDescrizione&"]]></web>"&VbCrLf)

end if

rs.close
conn.close
set rs=Nothing
set conn=Nothing

Response.Write("</group>"&VbCrLf)
%>

Segnala presso:

Articoli correlati

• Programmare in ASP: Vedere se un utente è ancora connesso
• Programmare in ASP: Trovare e visualizzare indirizzo IP visitatori
• Programmare in ASP: Paginazione
• Programmare in ASP: Evitare memorizzazione cache di una pagina
• Programmare in ASP: Bloccare indirizzi IP e generare errore 403