<%@ Language = "VBScript" %>
<%
	Response.Buffer = true
    xmlUrl = "http://www.lunasil.com/samples/" & Request.QueryString("xml")
    xslUrl = "http://www.lunasil.com/samples/" & Request.QueryString("xsl")

	Response.Clear


    ' Try to tell the browser what kind of content this is
    ' so that it can be displayed by the correct application (Acrobat)
	Response.ContentType = "application/pdf"
	Response.AddHeader "Content-Type", "application/pdf"

    ' Attempt to tell the browser what filename should be used if
    ' the user wants to save to disk.
	Response.AddHeader "Content-Disposition", "inline;filename=test.pdf"

	Dim formatter

	Set formatter=CreateObject("XincServer.XincFormatter")
	pdfBytes = formatter.formatToMem(xmlUrl, xslUrl)
	Response.BinaryWrite(pdfBytes)

	Response.End
%>