I am so new to ASP I'm not sure I am breathing. A company one of my clients deals with provides information over the web. They provided the ASP code for a default web site that is used to communicate with them and I have installed it and coded a VB6 app to provide the interface. Here is the problem. The ASP gets an error "Exception occurred" message. When I respond to the error, the returned XML is not received. Also, the ASP stops via the debugger at the statement and stops the whole process. The guys who supplied the code don't know why and they have been less than helpful. Here is the complete code for the ASP:
<%
'& Response.Write( "version 1.0.1" & vbcrlf)
Server.ScriptTi meout = 60000
Dim xmlDoc
Set xmlDoc = CreateObject("M icrosoft.XMLDOM ")
xmlDoc.preserve WhiteSpace = TRUE
IF len(Request("XM L") & "" ) > 0 THEN ''*** Error occurs here ***"
' Validate the XML String
xmlDoc.loadXML( Request("XML"))
ELSE
' Validate the XML String
xmlDoc.load(Req uest)
END IF
IF xmlDoc.parsed THEN
' Send Valid XML to Processor
Dim NodeName
Set xNode = xmlDoc.firstChi ld
IF NOT xNode IS NOTHING THEN
NodeName = xNode.nodename
IF ucase(xNode.nod ename) = "XML" THEN
Set xNode = xNode.NextSibli ng
END IF
END IF
IF NOT xNode IS NOTHING THEN
NodeName = xNode.nodename
SELECT CASE xNode.nodename
CASE "OrderStatusRes ponse"
Dim objFSO, intX, fname
set objFSO = Nothing
Set objFSO = CreateObject("S cripting.FileSy stemObject")
intX = 0
Do
intX = intX + 1
fname = ("E:\dac\report _received_" & Cstr(intX) & ".xml")
Loop Until objFSO.FileExis ts(fname) = False
IF Request.TotalBy tes > 0 then
Const ForAppending = 8
Set objTextFile = objFSO.OpenText File(fname, ForAppending, True)
objTextFile.Wri teLine(xmlDoc.x ml)
END IF
objTextFile.Clo se
Response.Write "<XML><Status>A CCEPTED</Status></XML>"
CASE ELSE
Response.Write "<OrderStatusRe sponse>"
Response.Write "<ErrorDescript ion>"
Response.Write "<Element>X ML Root</Element>"
Response.Write "<Description>E RROR - INVALID TRANSACTION</Description>"
Response.Write "<Code>Post ing CSD System - default.asp: Invalid Transaction</Code>"
Response.Write "<Help>Vali d transactions are OrderStatusResp onse or XML. Contact IT for Help.</Help>"
Response.Write "</ErrorDescriptio n>"
Response.Write "</OrderStatusResp onse>"
END SELECT
END IF
ELSE
' Return an Error
Response.Write "<OrderStatusRe sponse>"
Response.Write "<ErrorDescript ion>"
Response.Write "<Element>X ML</Element><br>"
Response.Write "<Description>X ML String could not be parsed:" & xmlDoc.parseErr or & "</Description><br >"
Response.Write "<Code>Post ing CSD System - default.asp: XML not Valid</Code><br>"
Response.Write "<Help>Make sure all tags match and are of the same case.</Help><br>"
Response.Write "</ErrorDescriptio n>"
Response.Write "</OrderStatusResp onse>"
Response.Write "<ErrorDescript ion>"
Response.Write "<Element>X ML</Element>"
Response.Write "<Description>X ML String could not be parsed:" & xmlDoc.parseErr or & "</Description>"
Response.Write "<Code>Cust omer to USIS-CSD System - default.asp: XML not Valid</Code>"
Response.Write "<Help>Make sure all tags match and are of the same case.</Help>"
Response.Write "</ErrorDescriptio n>"
Response.Write "</OrderStatusResp onse>"
END IF
%>
Any ideas?????