Formular indhold skrives til XML fil

ja

et eksempel med msn adresser. med data i databasen bruger
<%
Dim fso, f, filespec

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


strSQL = "Select * from bruger"
Set rs = Conn.Execute(strSQL)

Set fso = CreateObject("Scripting.FileSystemObject")
filespec = Server.Mappath("./adresser.ctt")
Set f = fso.OpenTextFile(filespec,2)

f.WriteLine "<?xml version='1.0'?>"
f.WriteLine "<messenger>"
f.WriteLine "<service name='.NET Messenger Service'>"
f.WriteLine "<contactlist>"
do
    if IsNull(rs("msn")) or rs("msn") = "" then
    else
        f.WriteLine "<contact>" & rs("msn") & "</contact>"
    end if
   
    rs.movenext
loop while not rs.EOF

f.WriteLine ""
f.WriteLine "</contactlist>"
f.WriteLine "</service>"
f.WriteLine "</messenger>"

f.Close
Conn.Close
Set Conn = Nothing
%>

- det er så her jeg hopper af..?

Hvordan får jeg det til at virke på web'en..?

Den fuktion jeg har lavet, laver simpelthen en ny side ud af en tom side.
Det vil sige du laver en tomt dokument der hedder det du vil kalde til visning.
i mit eksempel adresser.ctt (det er for at brugere kan importere listen af msn adresser direkte til messenger), i dit tilfælde vil det jo nok være noget andet. :-)

men prøv at lave en tom fil der hedder adresser.ctt i samme mappe som du køre den program stump jeg smider her, Se så filen after du har kørt program bid. Tror du har fanget min ide så...

<%
Dim fso, f, filespec

Set fso = CreateObject("Scripting.FileSystemObject")
filespec = Server.Mappath("./adresser.ctt")
Set f = fso.OpenTextFile(filespec,2)

f.WriteLine "<?xml version='1.0'?>"
f.WriteLine "<messenger>"
f.WriteLine "<service name='.NET Messenger Service'>"
f.WriteLine "<contactlist>"
f.WriteLine "<contact>min@mail.dkcontact>"
f.WriteLine ""
f.WriteLine "</contactlist>"
f.WriteLine "</service>"
f.WriteLine "</messenger>"

f.Close
%>