Many thanks to Andy, Sam and Tracy!!!

I got pass the username and password part.  Moving ahead, now am receiving
an HTML response from the server.

The piece code looks like this:

lcParametros = "Username=" + lcUsuario + "&" + "Password=" + lcPassword
lcURL = "https://www.clearinghouse.com/hipaa/Get271.asp";
lcFile = FILETOSTR("c:\temp\eligblty.txt") 
loXmlHttp = NEWOBJECT( "MSXML2.XMLHttp" )
loXmlHttp.open( "POST", lcURL +"?"+lcParametros, .F.)
loXmlHttp.send(lcFile)

lcFiler = "c:\temp\eligresp.txt"

STRTOFILE(loXmlHttp.responsetext, lcFiler,0)

Looking at the response the file is being sent (461 bytes).

But apparently still missing something cause instead of an
XML response I get an HTML server response as follows:


<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 Final//EN">

<html dir=ltr>

<head>
<style>
a:link                  {font:8pt/11pt verdana; color:FF0000}
a:visited               {font:8pt/11pt verdana; color:#4e4e4e}
</style>

<META NAME="ROBOTS" CONTENT="NOINDEX">

<title>The page cannot be displayed</title>

<META HTTP-EQUIV="Content-Type" Content="text-html; charset=Windows-1252">
</head>

<script> 
function Homepage(){
<!--
// in real bits, urls get returned to our script like this:
// res://shdocvw.dll/http_404.htm#http://www.DocURL.com/bar.htm 

        //For testing use DocURL =
"res://shdocvw.dll/http_404.htm#https://www.microsoft.com/bar.htm";
        DocURL=document.URL;
        
        //this is where the http or https will be, as found by searching for
:// but skipping the res://
        protocolIndex=DocURL.indexOf("://",4);
        
        //this finds the ending slash for the domain server 
        serverIndex=DocURL.indexOf("/",protocolIndex + 3);

        //for the href, we need a valid URL to the domain. We search for the
# symbol to find the begining 
        //of the true URL, and add 1 to skip it - this is the BeginURL
value. We use serverIndex as the end marker.
        //urlresult=DocURL.substring(protocolIndex - 4,serverIndex);
        BeginURL=DocURL.indexOf("#",1) + 1;
        urlresult=DocURL.substring(BeginURL,serverIndex);
                
        //for display, we need to skip after http://, and go to the next
slash
        displayresult=DocURL.substring(protocolIndex + 3 ,serverIndex);
        InsertElementAnchor(urlresult, displayresult);
}

function HtmlEncode(text)
{
    return text.replace(/&/g, '&amp').replace(/'/g, '&quot;').replace(/</g,
'&lt;').replace(/>/g, '&gt;');
}

function TagAttrib(name, value)
{
    return ' '+name+'="'+HtmlEncode(value)+'"';
}

function PrintTag(tagName, needCloseTag, attrib, inner){
    document.write( '<' + tagName + attrib + '>' + HtmlEncode(inner) );
    if (needCloseTag) document.write( '</' + tagName +'>' );
}

function URI(href)
{
    IEVer = window.navigator.appVersion;
    IEVer = IEVer.substr( IEVer.indexOf('MSIE') + 5, 3 );

    return (IEVer.charAt(1)=='.' && IEVer >= '5.5') ?
        encodeURI(href) :
        escape(href).replace(/%3A/g, ':').replace(/%3B/g, ';');
}

function InsertElementAnchor(href, text)
{
    PrintTag('A', true, TagAttrib('HREF', URI(href)), text);
}

//-->
</script>

<body bgcolor="FFFFFF">

<table width="410" cellpadding="3" cellspacing="5">

  <tr>    
    <td align="left" valign="middle" width="360">
        <h1 style="COLOR:000000; FONT: 13pt/15pt verdana"><!--Problem-->The
page cannot be displayed</h1>
    </td>
  </tr>
  
  <tr>
    <td width="400" colspan="2">
        <font style="COLOR:000000; FONT: 8pt/11pt verdana">There is a
problem with the page you are trying to reach and it cannot be
displayed.</font></td>
  </tr>
  
  <tr>
    <td width="400" colspan="2">
        <font style="COLOR:000000; FONT: 8pt/11pt verdana">

        <hr color="#C0C0C0" noshade>
        
    <p>Please try the following:</p>

        <ul>
      <li id="instructionsText1">Click the 
      <a href="javascript:location.reload()">
      Refresh</a> button, or try again later.<br>
      </li>
          
      <li>Open the 
          
          <script>
          <!--
          if (!((window.navigator.userAgent.indexOf("MSIE") > 0) &&
(window.navigator.appVersion.charAt(0) == "2")))
          {
                 Homepage();
          }
          //-->
          </script>

          home page, and then look for links to the information you want.
</li>
    </ul>
        
    <h2 style="font:8pt/11pt verdana; color:000000">HTTP 500.100 - Internal
Server
    Error - ASP error<br>
    Internet Information Services</h2>

        <hr color="#C0C0C0" noshade>
        
        <p>Technical Information (for support personnel)</p>

<ul>
<li>Error Type:<br>
Microsoft VBScript runtime  (0x800A0005)<br>Invalid procedure call or
argument: 'mid'<br><b>/hipaa/Get271.asp, line 36</b><br>
</li>
<p>
<li>Browser Type:<br>
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322)
</li>
<p>
<li>Page:<br>
POST 461 bytes to /hipaa/Get271.asp</li><p><li>POST Data:<br> . . .</li>
<p>
<li>Time:<br>
Saturday, July 22, 2006, 2:43:17 PM
</li>
</p>
<p>
<li>More information:<br>
 
<a
href="http://www.microsoft.com/ContentRedirect.asp?prd=iis&sbp=&pver=5.0&ID=
500;100&cat=Microsoft+VBScript+runtime+&os=&over=&hrd=&Opt1=&Opt2=%2D2146828
283&Opt3=Invalid+procedure+call+or+argument%3A+%27mid%27">Microsoft
Support</a>
</li>
</p>

    </font></td>
  </tr>
  
</table>
</body>
</html>



Regards.

Aida I. Rivera-Benítez, MSMIS
AiR Information Systems, Inc.
Medical Billing Software & Clearinghouse
P.O. Box 270152
San Juan PR 00927-0152
 




_______________________________________________
Post Messages to: [email protected]
Subscription Maintenance: http://leafe.com/mailman/listinfo/profox
OT-free version of this list: http://leafe.com/mailman/listinfo/profoxtech
** All postings, unless explicitly stated otherwise, are the opinions of the 
author, and do not constitute legal or medical advice. This statement is added 
to the messages for those lawyers who are too stupid to see the obvious.

Reply via email to