fra ASP til XML...

Jeg bruger fx. denne:

<%
    Session.LCID = 1030
    Response.ContentType = "text/xml"
    Response.Write("<?xml version=""1.0"" encoding=""ISO-8859-1""?>" & vbCrLf)

    Set objRs = Server.CreateObject("ADODB.Recordset")
    Set objConn = Server.CreateObject("ADODB.Connection")
   
    objConn.Open "DRIVER={MySql}; server=******; database=*******; uid=******; pwd=*******"
   
    If Request.QueryString("Find") = "All" Then
        strSQL = "SELECT * FROM tblOrdres ORDER BY Date " & Request.QueryString("OrderBy")
    Else
        strSQL = "SELECT * FROM tblOrdres WHERE date BETWEEN '" & lngMonday & "' AND '" & lngFriday & "' ORDER BY Date DESC"
    End If
    Set objRs = objConn.Execute(strSQL)
   
    Response.Write("<ordres>" & vbCrLf)
   
    While Not objRs.EOF
    Response.Write(vbTab & "<ordre date=""" & objRs("date") & """>" & vbCrLf)
        Response.Write("<ordreinfo>")
        Response.Write(vbTab & vbTab & "<userid>" & objRs("userid") & "</userid>" & vbCrLf)
        Response.Write(vbTab & vbTab & "<customername>" & objRs("customername") & "</customername>" & vbCrLf)
            Response.Write(vbTab & vbTab & "<ordreno>" & objRs("ordreno") & "</ordreno>" & vbCrLf)
                Response.Write(vbTab & vbTab & "<types>" & objRs("types") & "</types>" & vbCrLf)
                    Response.Write(vbTab & vbTab & "<totalprice>" & objRs("totalprice") & "</totalprice>" & vbCrLf)
                Response.Write(vbTab & vbTab & "<consequences>" & objRs("consequences") & "</consequences>" & vbCrLf)
            Response.Write(vbTab & vbTab & "<afhdate>" & objRs("AfhDate") & "</afhdate>" & vbCrLf)
            Response.Write(vbTab & vbTab & "<levdate>" & objRs("LevDate") & "</levdate>" & vbCrLf)
            Response.Write(vbTab & vbTab & "<date>" & objRs("Date") & "</date>" & vbCrLf)
    Response.Write("</ordreinfo>")
    Response.Write(vbTab & "</ordre>" & vbCrLf)
    objRs.MoveNext()
    Wend
   
    Response.Write("</ordres>" & vbCrLf)
%>

//>Rune

Ham her - har sku' lavet en lille smart funktion :)

http://www.magik.dk/vis_funktion.asp?id=5

?