<? // asp2php (vbscript) converted on Tue Nov 28 13:46:01 2006
 ?>
<?php include 'Connections/conn.php' ?>

<? 
//This web service just try to search in the IOPI Database if a name is allready on it or not.
//If its there send a green button, if not send a red button.

if (${"NameCache"}!="")
{

  $name=${"NameCache"};

  $SQL="SELECT Name.NameCache AS Name FROM Name INNER JOIN PTaxon ON Name.NameId = PTaxon.PTNameFk WHERE (Name.FullNameCache LIKE '".str_replace("'","''",$name)."')";
  // $Rspecie is of type "ADODB.Recordset"
    echo $MM_jun_STRING;
    echo $SQL;
    echo 3;
    echo 2;
    echo 1;
  $rs=mysql_query();

  if (mysql_num_rows($Rspecie_query)>0)
  {

//This name exists in the database and has a potential taxon using it.
//We have to resturn the gree button
    $file_to_use="green.gif";

  }
    else
  {

//This name doesnt't exist in the database
//We have to return the red button
    $file_to_use="red.gif";
  } 

  
  $Rspecie=null;

}
  else
{

//There's no name to search for
//We have to return the red button
  $file_to_use="red.gif";

} 



?>
<? 
$PathTo=$DOCUMENT_ROOT."images/".$file_to_use;
$FileNameOf=substr($PathTo,((strrpos($PathTo,"\\") ? strrpos($PathTo,"\\")+1 : 0)+1)-1,strlen($PathTo));
$FileEXT=substr($PathTo,(strrpos($PathTo,".") ? strrpos($PathTo,".")+1 : 0)-1,strlen($PathTo));
$BlockOf=100000;
$CountOf=0;
$ContentTypeOf="image/GIF";
//-------------------------------------------------

//Get File Size------------------------------------ 
// $fso is of type "Scripting.FileSystemObject"
$fileObject=GetFile($PathTo) /* don't know how to convert this filesystem method */ 
$SizeOf=filesize($fileObject);
//-------------------------------------------------

//Header and Cache---------------------------------
header("Expires: " . gmdate("D, d M Y H:i:s", time() + (0*60)) . " GMT"); ob_start();
ob_clean();

header("Content-type: ".$ContentTypeOf); header("content-disposition".": "."attachment; filename=".$FileNameOf);
header("Content-Length".": ".$SizeOf);
// Unknown response object on line 62
="UTF-8";
flush();

//-------------------------------------------------

//Open Adodb stream to get chunks of file----------
// $BinaryStream is of type "ADODB.Stream"
$BinaryStream->Open;
$BinaryStream->Type=1;
$BinaryStream->LoadFromFile($PathTo);
//-------------------------------------------------

//Loop through blocks of data and send-------------
while($SizeOf>$BlockOf+$CountOf)
{

  $CountOf=$CountOf+$BlockOf;
  print $BinaryStream->Read($BlockOf);
  flush();

} 
//-------------------------------------------------

//Read Last Block of bytes and send----------------
print $BinaryStream->Read($SizeOf-$CountOf);
flush();

exit();

//-------------------------------------------------

//Set to Nothing--------------
$BinaryStream=null;

$fso=null;

//----------------------------
?>