Can someone please help me translate this code into ASP. I have tried it with the PHP>>ASP.NET converter but there were errors I didn't know how to fix! I know nothing about asp. Thanks

<?

/* (c) Graham Eames 2002
   Code in this file may be re-used or modified providing this copyright notice is retained */

function read_stats($username)
{
/* Convert the query string into a valid string to pass to the file function */
  $usercode = ereg_replace(" ", "+", $username);
/* Generate the URL of the page on the UD site we require */
/* The ord=CPU_TIME_PER_DAY is used to force a sort which makes the data extraction simpler */
  $url= "http://www.grid.org/stats/members/compare.htm?un1=".$userco de."&ord=CPU_TIME_PER_DAY";
/* Read the contents of the statistics page into an array */
  $fcontents = file ($url);
  $output=false;
  $section="";
/* Examine the contents of the file line-by-line */
  for($line=0;$line<sizeof($fcontents);$line++)
  {
/* When we detect this string in the file, we are approaching the area we want in the file so enable the next test */
    if (ereg("ord=CPU_TIME\"", $fcontents[$line]))
    {
      $output=true;
      $section = "CPU_TIME";
    }
/* If we are in the right are of the file, then start checking for the line we want*/
    if (($output==true) && ($section == "CPU_TIME"))
    {
/* The time line is the first one to start with "<td" in this area of the file */
      if (ereg("\<td", $fcontents[$line]))
      {
/* The time figure is surrounded by <b> and </b> so cut this from the centre of the line */
        $q = split("<b>", $fcontents[$line]);
        $q = split("</b>", $q[1]);
        $time = $q[0];
/* Disable the tests again as we have this figure */
        $output=false;
        $section = "";
      }
    }
/* When we detect this string in the file, we are approaching the area we want in the file so enable the next test */
    if (ereg("ord=POINTS\"", $fcontents[$line]))
    {
      $output=true;
      $section = "POINTS";
    }
/* If we are in the right are of the file, then start checking for the line we want*/
    if (($output==true) && ($section == "POINTS"))
    {
/* The points line is the first one to start with "<td" in this area of the file */
      if (ereg("\<td", $fcontents[$line]))
      {
/* The time figure is surrounded by <b> and </b> so cut this from the centre of the line */
        $q = split("<b>", $fcontents[$line]);
        $q = split("</b>", $q[1]);
        $points = $q[0];
/* Disable the tests again as we have this figure */
        $output=false;
        $section = "";
      }
    }
/* When we detect this string in the file, we are approaching the area we want in the file so enable the next test */
    if (ereg("ord=RESULTS\"", $fcontents[$line]))
    {
      $output=true;
      $section = "RESULTS";
    }
/* If we are in the right are of the file, then start checking for the line we want*/
    if (($output==true) && ($section == "RESULTS"))
    {
/* The results line is the first one to start with "<td" in this area of the file */
      if (ereg("\<td", $fcontents[$line]))
      {
/* The results figure is surrounded by <b> and </b> so cut this from the centre of the line */
        $q = split("<b>", $fcontents[$line]);
        $q = split("</b>", $q[1]);
        $results = $q[0];
        $output = false;
        $section = "";
        $line = sizeof($fcontents);
        $return[0] = $time;
        $return[1] = $points;
        $return[2] = $results;
        return $return;
/* Finally break out of the loop, as we do not need to parse any more of the file */
        break;
      }
    }
  }
}

$figures = read_stats("huwnet");
printf("CPU Time = %s<br>\n", $figures[0]);
printf("Points = %s<br>\n", $figures[1]);
printf("Results = %s<br>\n", $figures[2]);
?>

How about trying this:

http://www.php-asp-convertor.com - http://www.php-asp-convertor.com

And I got that last link from here:

Can I convert from ASP to PHP or from PHP to ASP?  -  1083
http://faq.ozoneasylum.com/1083 - http://faq.ozoneasylum.com/1083

You can do it in .net  with 2 lines of code:

Dim wc As New System.Net.WebClient

ASP

<%
Dim objXMLHTTP
On Error Resume Next
Set objXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objXMLHTTP.Open "GET", "address", False
objXMLHTTP.Send
If ErrNum <> 0 Then
 Response.Write(vbCrLf & "<font size=""3"" color=""#FF0000""><strong>")
 Response.Write(vbCrLf & " Failed to contact the server!!")
 Response.Write(vbCrLf & " <br />Please check your internet connection and try again.")
 Response.Write(vbCrLf & "</strong></font>")
Else
 Response.Write(objXMLHTTP.responseText)
End If
Set objXMLHTTP = Nothing
%>