<?php
mysql_connect("xxxxxxx", "xxxxxx","xxxxx") or die ("1");
mysql_select_db("xxxxxxx") or die ("2");
// abfrage der Daten
$name=$_GET['name'];
// Daten abrufen
$sql="SELECT name FROM highscore ORDER BY punkte DESC";
$ergebnis=mysql_query($sql);
// Daten ausgeben
while ($row=mysql_fetch_object($ergebnis)) {
echo "$row";
}
?>

name$="peter"

stream=OpenTCPStream("www.xxxxxx.de",80)
If stream=0 Then Print "konnte nicht verbinden" : WaitKey : End

WriteLine stream, "GET /abfrag.php?name="+name$+" HTTP/1.1"
WriteLine stream, "HOST: www.xxxxxxxxx.de"
WriteLine stream, ""

While Not Eof(stream)
DebugLog(ReadLine(stream))
Wend
CloseTCPStream(stream)
Print "Score erfolgreich eingetragen..."
WaitKey
End

.....
while.....{
echo "[name]".$row['name']."\n"
}

myquery=$_POST['abfrage'];

$daten=getenv("HTTP_meineVariable");
echo $daten;

WriteLine stream, "meineVariable: die Daten der Variable"

1,antarktis,m,200,250,10,model_1.b3d
3,afrika,t,140,100,3,model_2.b3d
.....

Function readhtml(InputFile$)
   Local host$
   Local host_tmp
   Local stream
   Local file
   ;------------------------------- Den Host aus InputFile$ rausfiltern
   host$=Right(inputfile$,Len(inputfile$)-7) ; http:// rausschneiden
   host_tmp=Instr(host$,"/")-1 ; Das erste Slash im String suchen und 1 abziehen
   host$=Left(host$,host_tmp) ; Den Text bis zu dem ersten Slash-1 k?rzen
   ;------------------------------ TCPStream zum Host ?ffnen
   ;Print host$
   stream = OpenTCPStream(host$,80)
   If stream=0 Then Print "Es konnte keine Internetverbindung (READHTML) hergestellt werden" : WaitKey : End
   WriteLine stream, "GET "+InputFile$+ " HTTP/1.1"
   WriteLine stream, "Host: "+host$ :
   WriteLine stream, ""

   While Not Eof(stream)
   punkt$ = ReadLine$(stream)
   Wend
End Function

$query = "SELECT COUNT(*) AS anzahl FROM Tabelle ".
         "WHERE Bedingung";
if(!$result = mysql_query($query, $db))
{
   echo("fehler");
   mysql_close($db);
}
$row = mysql_fetch_object($result)
echo("Anzahl der Einträge: ".$row->anzahl."\n");

...
While Not Eof(stream)
x=x+1 ; -> Zeilenzähler
punkt$= ReadLine(stream)

Pos=Instr(punkt$,",");wo ist das Komma?

l_posX#=Left(punkt$,Pos-1)
      
mitte$=Mid(punkt$,Pos+1,-1)
      
Pos1=Instr(mitte$,",")

l_posY#=Left(mitte$,Pos1-1)
   mitte1$=Mid(mitte$,Pos1+1,-1)
   
Pos2=Instr(mitte1$,","):

l_posZ#=Left(mitte1$,Pos2-1):
   mitte2$=Mid(mitte1,Pos2+1,-1)
   

Pos3=Instr(mitte2$,",")

l_objekt#=Left(mitte2$,Pos3-1):
   

objekt = loadmesh(l_objekt)

POSITIONMESH objekt(x) ,l_posX,l_posY,l_posZ

Wend