ASP to XML

ernst · September 9th, 2003, 12:05 PM

Hi,

I need to write an ASP that when called with

URL = ....../conversion.asp?amount=100&account=USD

returns a XML file that looks like

<?xml version = "1.0" standalone = "yes"?>
<NOK> i </NOK> '(i is the result of a currency conversion)

My attempt (short version) was

<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>

<b><% ' declares variables .......

    n = Request.Item("amount") ' input1
    strCode = "'" & Request.Item("account") & "'" ' input2

    ' .......calls database using n and strCode to find

    i = CInt(Trim(rS.Fields(0)))

    Set fso = CreateObject("Scripting.FileSystemObject")
    Set a = fso.CreateTextFile("NOK.xml", True)

    a.WriteLine("<?xml version=" & Chr(34) & "1.0" & Chr(34) & _
                    " standalone=" & Chr(34) & "yes" & Chr(34) & "?>")

    a.WriteLine(" <NOK>" & i & "</NOK>")

    a.Close

    response.Redirect("C:\NOK.xml")

    %></b>

</BODY>
</HTML>

this almost works and it indeed does create the file NOK.xml
in the c-directory, however the redirection gives the error
message:

" Cannot view XML input using style sheet. etc. "

can anyone help?

                                           ernst.

pgtips · September 10th, 2003, 03:10 AM

You don't need to save an XML file to disk, you can just send XML directly to the browser instead, like this:

Code:

<%   ' do not output any HTML before this, instead tell the browser we're sending XML
    Response.ContentType = "text/xml"

    ' declares variables .......

    n = Request.Item("amount")                          ' input1
    strCode = "'" & Request.Item("account") & "'"       ' input2

    ' .......calls database using n and strCode to find

    i = CInt(Trim(rS.Fields(0)))
      
    Response.Write("<?xml version=""1.0"" standalone=""yes""?>")
    Response.Write("<NOK>")
    Response.Write(i)
    Response.Write("</NOK>")

    %>

ernst · September 10th, 2003, 09:24 AM

Hi pqtips,

Yes that works! Thank's a lot.

ernst.