<?php
   //MySQL Connection Data
      $SQL_User = "tibario";      //Benutzername
      $SQL_Pass = "****";      //Passwort
      $SQL_Host = "tibario.square7.ch";      //SQL Host
      $SQL_DaBa = "";      //Datenbank auf die zugegriffen wird
   
      //MySQL Connection
      mysql_connect($SQL_Host,$SQL_User,$SQL_Pass) OR die(mysql_error());
      mysql_selectdb($SQL_DaBa) OR die(mysql_error());
   
      //Der Rest des Codes hier drunter
   
   mysql_query("CREATE TABLE IF NOT EXISTS tibario_OH (
   Name TEXT,
   Punkte INT)") or die(mysql_error());

   //Getting the Data
   $OHS_Action = $_GET['Action'];
   $OHS_Spieler = $_GET['Name'];
   $OHS_Punkte = $_GET['Punkte'];

   switch($OHS_Action) {
         case "add":      //Add Entry
         mysql_query("INSERT INTO
            tibario
            VALUES
                  (".$OHS_Spieler.",".$OHS_Punkte.")") or die(mysql_error());
               break;
         case "rem":      //Remove Entry
         mysql_query("DELETE FROM
                  tibario
            WHERE
                  Name = '".$OHS_Spieler."' AND
                  Punkte = '".$OHS_Punkte."'") or die(mysql_error());
               break;
         case "red":      //Read Highscore
               $result = mysql_query("SELECT
                  Name,
                  Punkte
            FROM
                  tibario
            SORT BY
                 Punkte DESC");   //ASC = Aufwärts sortiert, DESC = Abwärts sortiert
            $CurrentPlace = 1;
         if (mysql_num_rows($result)) {
               while ($row = mysql_fetch_assoc($result)) {
                     //Ausgabecode der Liste
                     echo $CurrentPlace+"\r\n";
                     echo $row['Name']+"\r\n";
                     echo $row['Punkte']+"\r\n";
                     $CurrentPlace += 1;
               }
         }
               break;
   }
?>

Global HTTPServerAdress$ = "tibario.square7.ch"
Global HTTPServerFile$ = "/highscore.php";/users/tibario/www/
Global OHS_TimeOut = 1000

Type OHS_Highscores
   Field Place
   Field Name$
   Field Score
End Type

While Not KeyHit(1)
   If KeyHit(59) Then OHS_AddHighscore$("Hannes",120)
   If KeyHit(60) Then
      OHS_GetHighscore$()
      For o.OHS_Highscores = Each OHS_Highscores
         Print o\Place+" "+o\Name$+": "+o\Score
      Next
   EndIf
Wend
End

Function OHS_AddHighscore$(Name$, Punkte)
   Local TCP,ExitCode$,StartMS
   TCP = OpenTCPStream(HTTPServerAdress, 80)
   
   ;HTTP GET
   WriteLine TCP, "GET "+HTTPServerFile+"?action=add&name="+Name+"&Punkte="+Punkte+" HTTP/1.0"
   WriteLine TCP, ""
   
   StartMS = MilliSecs()
   While Eof(TCP)
      If MilliSecs()-StartMS > OHS_TimeOut Then Exit
      Delay 25
   Wend
   
   ExitCode$ = ReadLine(TCP)
   While Not Eof(TCP)
      DebugLog ReadLine(TCP)
   Wend
   
   Return ExitCode
End Function

Function OHS_RemHighscore$(Name$, Punkte)
   Local TCP,ExitCode$,StartMS
   TCP = OpenTCPStream(HTTPServerAdress, 80)
   
   ;HTTP GET
   WriteLine TCP, "GET "+HTTPServerFile+"?action=rem&name="+Name+"&Punkte="+Punkte+" HTTP/1.0"
   WriteLine TCP, ""
   
   StartMS = MilliSecs()
   While Eof(TCP)
      If MilliSecs()-StartMS > OHS_TimeOut Then Exit
      Delay 25
   Wend
   
   ExitCode$ = ReadLine(TCP)
   While Not Eof(TCP)
      DebugLog ReadLine(TCP)
   Wend
   
   Return ExitCode
End Function

Function OHS_GetHighscore$()
   Local TCP,ExitCode$,StartMS
   TCP = OpenTCPStream(HTTPServerAdress, 80)
   
   ;HTTP GET
   WriteLine TCP, "GET "+HTTPServerFile+"?action=red HTTP/1.0"
   WriteLine TCP, ""
   
   StartMS = MilliSecs()
   While Eof(TCP)
      If MilliSecs()-StartMS > OHS_TimeOut Then Exit
      Delay 25
   Wend
   
   ExitCode$ = ReadLine(TCP)
   Repeat
      Local Ln$ = ReadLine(TCP)
      DebugLog Ln$
      If Ln$ = ""
         While Not Eof(TCP)
            Local OHSE.OHS_Highscores = New OHS_Highscores
            OHSE\Place = ReadLine(TCP)
            OHSE\Name = ReadLine(TCP)
            OHSE\Score = ReadLine(TCP)
         Wend
      EndIf
   Until Eof(TCP)
   
   Return ExitCode
End Function

Warning: mysql_connect() [function.mysql-connect]: Host 'Client1' is not allowed to connect to this MySQL server in /users/tibario/www/highscore.php  on line 9
Host 'Client1' is not allowed to connect to this MySQL server

   WriteLine TCP, "GET "+HTTPServerFile+"?action=add&name="+Name+"&Punkte="+Punkte+" HTTP/1.1"
   WriteLine TCP, "Host: tibario.square7.ch"
   WriteLine TCP, "Connection: Close"
   WriteLine TCP, ""

Date: Fri, 26 Mar 2010 19:49:02 GMT
Server: Apache/2.2
Vary: Accept-Encoding
Transfer-Encoding: chunked
Content-Type: text/html

   WriteLine TCP, "GET "+HTTPServerFile+"?action=add&name="+Name$+"&Punkte="+Punkte+" HTTP/1.1"
   WriteLine TCP, "Host: tibario.square7.ch"
   WriteLine TCP, "Connection: Close"
   WriteLine TCP, ""

   WriteLine TCP, "GET "+HTTPServerFile+"?action=red HTTP/1.1"
   WriteLine TCP, "Host: tibario.square7.ch"
   WriteLine TCP, "Connection: Close"
   WriteLine TCP, ""

tibario_OH

tibario