<%@Language="VBSCRIPT"%>
<%
	' Kafka Endpoint Standard ASP Page- Written by Christopher Dix, February 2001
	'

	Response.Expires = 0

   	On Error Resume Next

	Response.ContentType = "text/xml"

	Dim objMsg
	Dim objEngine

	Set objMsg = Server.CreateObject( "MSXML2.DOMDocument.3.0" )
	Set objEngine = Server.CreateObject( "MSXML2.DOMDocument.3.0" )

	objMsg.ValidateOnParse = True
	objEngine.ValidateOnParse = True

	' The message is the Request
	objMsg.load Request

	' The LtSoap XSL document is the engine, use it here
	objEngine.load Server.MapPath( "time.xsl" )

	strResponse = objMsg.transformNode( objEngine )

	Response.AddHeader "Server", "Kafka/0.6-IIS/5.0"
	Response.Write strResponse
	Response.End
	Response.Flush

%>