asp / db til xml

Så retter du til:
<%response.contenttype="application/xml"%><?xml version="1.0" encoding="iso-8859-1"?>

<ads>
    <ad image="images/aug07.jpg" link="http://localhost/projekter/www/index.asp?Menu=49&Template=indhold" target="_parent"/>
    <ad image="images/rating_system_590x175.jpg" link="http://localhost/projekter/www/index.asp?Menu=49&Template=indhold" target="_parent"/>
    <ad image="images/photo_gallery_590x175.jpg" link="/products/flash_photo_gallery/"/>
    <ad image="images/micro_menu_590x175.jpg" link="/products/micro_menu/"/>
    <ad image="images/targa_menu_590x175.jpg"/>
</ads>

<options>
    <option display_seconds="4" autoplay="true" fade_seconds="1" show_pause_button="true"/>
    <option buttons_alpha="40" buttons_rollover_alpha="80" buttons_space="-1" buttons_margin="5"/>
    <option show_time_bar="true" time_bar_alpha="100" time_bar_color="CCFF00"/>
</options>
-----------------------------------------------------
Og så skal filen gemmes som [filnavn].asp i stedet for [filnavn].xml - det vil gøre, at den først vil blive udført som ASP (så der kan hentes fra db), men response.contenttype sætter derefter filtypen til xml, så den kan læses som en sådan. Og så kan du bruge al det ASP i filen, du vil! =)

Lange om længe fandt jeg en løsning .... hjulpet godt på vej af din ide :-)
==============================================================================

<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("test.mdb")
Conn.Open DSN

strSQL = "SELECT * FROM Menu ORDER BY MenuOrden ASC"
set rs = Conn.Execute(strSQL)

Do While Not rs.EOF
    dinduno = dinduno & "<ad image=""images/" & rs("MenuTitel") & """ link=""images/" & rs("MenuTitel") & """ target=""_blank""/>"
rs.MoveNext
Loop

Conn.Close
Set Conn = Nothing
%>

<%
name = "ad_loader.xml"

Set oFSO = Server.CreateObject("Scripting.FileSystemObject")
fileName = name
Set iFile = oFSO.CreateTextFile(Server.MapPath(fileName),true)
iFile.WriteLine("<?xml version=""1.0"" encoding=""iso-8859-1""?>")
iFile.WriteLine("<ads>")
iFile.WriteLine("" & dinduno & "")
iFile.WriteLine("</ads>")
iFile.WriteLine("<options>")
iFile.WriteLine("<option display_seconds=""4"" autoplay=""true"" fade_seconds=""1"" show_pause_button=""true""/>")
iFile.WriteLine("<option buttons_alpha=""40"" buttons_rollover_alpha=""80"" buttons_space=""-1"" buttons_margin=""5""/>")
iFile.WriteLine("<option show_time_bar=""true"" time_bar_alpha=""100"" time_bar_color=""CCFF00""/>")
iFile.WriteLine("</options>")

name = ""
dinduno = ""

Set iFile = Nothing
Set oFSO = Nothing
%>