Ajuda com "transformação'

[Luis Peixoto]

Boa tarde, estou com um probleminha aqui no meu trabalho, me passaram um código php para "transformar' em asp...

o problema é que eu sei muito pouco de asp, eu estou tentando mais não esta saindo como eu gostaria, alguém poderia dar uma olhada nos 2 códigos php e asp e ver como poderia me ajudar, ou dar um toque... desde já agradeço :)

PHP:

<?
function post($host,$porta,$path,$query) {

       $fp = fsockopen($host, $porta);
  // echo "$host $path $query $porta";
    echo($query);
       if (!$fp){
           return false;
       }
           fputs($fp, "POST $path HTTP/1.1\r\n");
           fputs($fp, "Host: $host\r\n");
           fputs($fp, "Content-type: application/x-www-form-urlencoded\r\n");
           fputs($fp, "Content-length: " . strlen($query) . "\r\n");
           fputs($fp, "Connection: close\r\n\r\n");
           fputs($fp, $query);

             $retorno = "";

       while (!feof($fp)) {
           $retorno.=fgets($fp,128);
       }
       fclose($fp);

       return $retorno;
   }
?>

ASP:

<%
Function post(host,porta,path,query)


Set fp = server.CreateObject("scripting.FileSystemObject")
arquivo= request.serverVariables("APPL_PHYSICAL_PATH") & "arquivo.txt"

Set Out=fp.OpenTextFile(Server.MapPath("arquivo.txt"),2, True)

Out.write(arquivo & "POST path HTTP/1.1\r\n")
Out.write(arquivo & "Host: host\r\n")
Out.write(arquivo & "Content-type: application/x-www-form-urlencoded\r\n")
Out.write(arquivo & "Content-length: " & "query.length" & "\r\n")
Out.write(arquivo & "Connection: close\r\n\r\n")
Out.write(arquivo & query)

retorno  = ""
Do While (Server.MapPath("arquivo.txt")).eof = false
retorno = retorno & fso.GetFile(arquivo,128)
Loop
arquivo.close

fpost = retorno

End Function
%>

[bareta]

o que a função em php faz?

começamos por ai... qual o erro na função ASP?