PayPal test

<%function RetrieveXML (byVal URL) Dim XML_HTTP : set XML_HTTP = Server.CreateObject("MSXML2.ServerXMLHTTP") Dim Status XML_HTTP.Open "GET", URL, false XML_HTTP.Send Status = XML_HTTP.Status Response.WRite Status & "
" if Status < 400 or Status > 599 then RetrieveXML = XML_HTTP.ResponseText end if set XML_HTTP = nothingend function Dim PayPal_URL : PayPal_URL = "https://tlstest.paypal.com/" Response.WRite RetrieveXML(PayPal_URL) %>

---