DataToSend = DataToSend & "Time=" & now() Response.Write DataToSend dim
xmlhttp set xmlhttp = server.Createobject("MSXML2.ServerXMLHTTP")
xmlhttp.Open "POST","http://localhost/Cashx/support.asp?WCI=AutoLoan", true
',false xmlhttp.setRequestHeader "Content-Type",
"application/x-www-form-urlencoded" xmlhttp.send DataToSend
'Response.ContentType = "text/xml" Response.Write xmlhttp.responsexml.xml
Set xmlhttp = nothing