Ret i xml med asp

Det er alt for besværligt, brug hellere en anden Content type! Den vil generere XML'en for dig!

<%
    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=localhost; database=test; uid=test; pwd=test"
   
    lngMonday = Date() - Weekday(Date(), vbMonday) + 1
    lngMonday = Year(lngMonday) & "-" & Month(lngMonday) & "-" & Day(lngMonday)
   
    lngFriday = DateAdd("d", 4, Date() - Weekday(Date(), vbMonday) + 1)
    'lngFriday = DateAdd("d", 4, Date() - Weekday(Date(), vbMonday) + 1)
    lngFriday = Year(lngFriday) & "-" & Month(lngFriday) & "-" & Day(lngFriday)
   
    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)
%>

hvad tænker du på med en anden Content type ? hvad kunne det være

Den laver dokumentet om til at være et XML dokument, istedet for et normalt HTML dokument!

prøv fx sådan her:

<%
  Response.ContentType = "text/xml"

  With Response
      .Write("<personer>")
        .Write("<navn>Rune Nielsen</navn")
      .Write("</personer>")
  End With
%>

//>Rune

Thx 4 Poinz

//>Rune