AnGelBot-Portal²

AnGelBot-Portal² > Scripting > Anfragen > Datenbank Herausforderung
Normale Version: Datenbank Herausforderung
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.
Seiten: 1 2

bvn

05.01.2005, 02:54 Uhr
Hallo zusammen !
Hab zwar jetzt ein paar seiten hier durchgeforstet aber das richtige habe ich nicht gefunden.
Zum Problem:

Ich brauche eine Datenbank die folgendes kann.
Jeder User aus dem Channel (bekommen eh alle OP) muss auf einer Datenbank eintragen können bei welchem Server er momentan drauf ist und was er holt. In etwa so:

[01:53] (@ben) !dl ben download bei musterfrau testdatei.avi

Egal wer auch immer im Channel muss mit dem Befehl !dl all sehen wer bei wem zugreift. (Diese Liste sollte sich dann in einem query vom Bot öffnen)

Wenn jetzt der nächste kommt z.B.
[01:58] (@muster) !dl muster download bei ilse beispiel.avi

sollte im Query nach dem befehl !dl all in etwa folgendes stehen.

1 ben download bei musterfrau testdatei.avi - add 05.01.04 01:53
2 muster download bei ilse beispiel.avi - add 05.01.04 01:58

Der Befehl sollte natürlich auch mit !ul gehen.

Zudem sollte dann jeder User die Möglichkeit haben einen nummerierten Eintrag wieder zu löschen ( !-nr1 oder ähnlich).... dieser sollte dann in der .ini gelöscht werden UND IM CHANNEL (nicht im query) sollte der bot dann in etwa bekannt geben:

msg von <botname> ben download bei musterfrau testdatei.avi - add 05.01.04 01:53 beendet.

Jetzt erst mal vorab. Ist sowas in der Art möglich ?
Es besteht dann noch eine Idee, die dann aber erst kommt wenn sich jemand bereit erklären würde das überhaupt zu übernehmen.

Vielen Dank schon mal im vorraus.

bvn

bvn

05.01.2005, 19:39 Uhr
hat da keiner ein erbarmen, isses zu schwer oder will einfach nur keiner ?

HAPM

05.01.2005, 20:26 Uhr
logisch is das möglich, wenn de mir erklärst wofür und wenn ich mal Zeit finde mach ich das.

bvn

06.01.2005, 22:21 Uhr
HAPM schrieb:logisch is das möglich, wenn de mir erklärst wofür und wenn ich mal Zeit finde mach ich das.

Geht einfach darum das wir wissen wer wann auf welchem server ist, da die anzahl der usern auf den servern begrenzt ist.
ferner dann sehen zu können wer schon was geholt hat bzw. im moment holt.

Wäre fein wenn das hinbekommst.

bvn

11.01.2005, 14:09 Uhr
nach oben schieb das es nicht vergessen wird.
wird sind ne gruppe aus videofilmern und haben es nicht so mit programmieren. pls help

HAPM

13.01.2005, 18:48 Uhr
Vergessen habe ich es nicht, nur mir hat die Zeit gefehlt. Aber hier is das Resultat. Es entspricht der Beschreibung wie ich sie verstanden habe und enthält bisher noch keine Features. Wenn de noch was brauchst, meld dich hier. Bin jetzt aber erst mal für ne Woche wech, Ski-Urlaub.

Code:
Const dlstatINI = "dlulstat.ini"
Const actChan = "#progging_newbies"

Sub Init()
  Script "Down-Up-Stat Script by HAPM"
  Hook "Chan_Msg"
  SpreadFlagMessage 0, "+m", "7*** Down-Up-Stat Script by HAPM loaded"
End Sub

Sub Chan_Msg(Chan, Nick, RegUser, Line)
  Select Case LCase(Param(Line,1))
    Case "!dl"
      If Not LCase(Param(Line,2)) = "all" Then
        AddDownload Nick, Line
        Exit Sub
      End If
      ShowDownloads Nick
    Case "!dldel"
      DelDownload Nick, Line
    Case "!ul"
      If Not LCase(Param(Line,2)) = "all" Then
        AddUpload Nick, Line
        Exit Sub
      End If
      ShowUpload Nick
    Case "!uldel"
      DelUpload Nick, Line
  End Select
End Sub

Sub AddDownload(Nick, Line)
  Dim DLCount
  If Param(Line, 2) = "" Then
    SendLine "PRIVMSG " & Nick & " :Du hasst vergessen den Nick anzugeben, der etwas runterlädt.", 3
    SendLine "PRIVMSG " & Nick & " :Syntax: !dl [Ziel] [Quelle] [Datei]", 3
    Exit Sub
  End If
  If Param(Line, 3) = "" Then
    SendLine "PRIVMSG " & Nick & " :Du hasst vergessen den Nick anzugeben, von dem runtergeladen wird.", 3
    SendLine "PRIVMSG " & Nick & " :Syntax: !dl [Ziel] [Quelle] [Datei]", 3
    Exit Sub
  End If
  If Param(Line, 4) = "" Then
    SendLine "PRIVMSG " & Nick & " :Du hasst vergessen die Datei anzugeben, die runtergeladen wird.", 3
    SendLine "PRIVMSG " & Nick & " :Syntax: !dl [Ziel] [Quelle] [Datei]", 3
    Exit Sub
  End If
  DLCount = ReadINIString("Download","DLCount",0,dlstatINI)
  DLCount = DLCount*1 + 1
  WriteINIString "Download","DLCount", DLCount, dlstatINI
  WriteINIString "Download",DLCount&"Data", GetRest(Line,2), dlstatINI
  WriteINIString "Download",DLCount&"Time", Now, dlstatINI
  SendLine "PRIVMSG " & Nick & " :Download der Datei "&Param(Line,4)&" von "&Param(Line,2)&" bei "&Param(Line,3)&" wurde hinzugefügt.",3
End Sub

Sub ShowDownloads(Nick)
  Dim DLCount, DLData, DLTime
  DLCount = ReadINIString("Download","DLCount",0,dlstatINI)
  If DLCount <= 0 Then
    SendLine "PRIVMSG " & Nick & " :Aktuell sind keine Downloads bei mir gespeichert.", 3
  End If
  For i = 1 To DLCount
    DLData = ReadINIString("Download",i&"Data","",dlstatINI)
    DLTime = ReadINIString("Download",i&"Time","",dlstatINI)
    SendLine "PRIVMSG "&Nick&" :"&i&") "&Param(DLData,1)&" saugt bei "&Param(DLData,2)&" die Datei "&Param(DLData,3)&". Gestartet: "&DLTime, 3
  Next
End Sub

Sub DelDownload(Nick,Line)
  Dim DLCount, DLData, DLTime
  If Param(Line,2) = "" Then
    SendLine "PRIVMSG " & Nick & " :Du hasst vergessen die Nummer des zu löschenden Downloads anzugeben.", 3
    SendLine "PRIVMSG " & Nick & " :Syntax: !dldel [DelNr]", 3
    Exit Sub
  End If
  If Not IsNumeric(Param(Line,2)) Then
    SendLine "PRIVMSG " & Nick & " :Du die Nummer des Downloads angeben, keinen Text.", 3
    SendLine "PRIVMSG " & Nick & " :Syntax: !dldel [DelNr]", 3
    Exit Sub
  End If
  DLCount = ReadINIString("Download","DLCount",0,dlstatINI)
  If DLCount <= 0 Then
    SendLine "PRIVMSG " & Nick & " :Aktuell sind keine Downloads bei mir gespeichert.", 3
    Exit Sub
  End If
  If DLCount < Param(Line,2) Then
    SendLine "PRIVMSG " & Nick & " :Der Download mit der angegebenen Nr. existiert nicht.", 3
    Exit Sub
  End If
  DLData = ReadINIString("Download",Param(Line,2)&"Data","",dlstatINI)
  DLTime = ReadINIString("Download",Param(Line,2)&"Time","",dlstatINI)
  WriteINIString "Download", Param(Line,2)&"Data", ReadINIString("Download", DLCount&"Data", "", dlstatINI), dlstatINI
  WriteINIString "Download", Param(Line,2)&"Time", ReadINIString("Download", DLCount&"Time", "", dlstatINI), dlstatINI
  DeleteINIString "Download", DLCount&"Data", dlstatINI
  DeleteINIString "Download", DLCount&"Time", dlstatINI
  DLCount = DLCount - 1
  WriteINIString "Download", "DLCount", DLCount, dlstatINI
  SendLine "PRIVMSG " & Nick & " :Der Download mit der Nummer "&Param(Line,2)&" wurde gelöscht.", 3
  SendLine "PRIVMSG " & actChan & " :Download beendet!!! Datei: "&Param(DLData,3)&" | Quelle: "&Param(DLData,1)&" | Ziel: "&Param(DLData,2)&" | Gestartet: "&DLTime, 3
End Sub

Sub AddUpload(Nick, Line)
  Dim ULCount
  If Param(Line, 2) = "" Then
    SendLine "PRIVMSG " & Nick & " :Du hasst vergessen den Nick anzugeben, der etwas hochlädt.", 3
    SendLine "PRIVMSG " & Nick & " :Syntax: !ul [Quelle] [Ziel] [Datei]", 3
    Exit Sub
  End If
  If Param(Line, 3) = "" Then
    SendLine "PRIVMSG " & Nick & " :Du hasst vergessen den Nick anzugeben, von dem hochgeladen wird.", 3
    SendLine "PRIVMSG " & Nick & " :Syntax: !ul [Quelle] [Ziel] [Datei]", 3
    Exit Sub
  End If
  If Param(Line, 4) = "" Then
    SendLine "PRIVMSG " & Nick & " :Du hasst vergessen die Datei anzugeben, die hochgeladen wird.", 3
    SendLine "PRIVMSG " & Nick & " :Syntax: !ul [Quelle] [Ziel] [Datei]", 3
    Exit Sub
  End If
  ULCount = ReadINIString("Upload","ULCount",0,dlstatINI)
  ULCount = ULCount*1 + 1
  WriteINIString "Upload","ULCount", ULCount, dlstatINI
  WriteINIString "Upload",ULCount&"Data", GetRest(Line,2), dlstatINI
  WriteINIString "Upload",ULCount&"Time", Now, dlstatINI
  SendLine "PRIVMSG " & Nick & " :Upload der Datei "&Param(Line,4)&" von "&Param(Line,2)&" zu "&Param(Line,3)&" wurde hinzugefügt.",3
End Sub

Sub ShowUpload(Nick)
  Dim ULCount, ULData, ULTime
  ULCount = ReadINIString("Upload","ULCount",0,dlstatINI)
  If ULCount <= 0 Then
    SendLine "PRIVMSG " & Nick & " :Aktuell sind keine Uploads bei mir gespeichert.", 3
  End If
  For i = 1 To ULCount
    ULData = ReadINIString("Upload",i&"Data","",dlstatINI)
    ULTime = ReadINIString("Upload",i&"Time","",dlstatINI)
    SendLine "PRIVMSG "&Nick&" :"&i&") "&Param(ULData,1)&" lädt bei "&Param(ULData,2)&" die Datei "&Param(ULData,3)&" hoch. Gestartet: "&ULTime, 3
  Next
End Sub

Sub DelUpload(Nick,Line)
  Dim ULCount, ULData, ULTime
  If Param(Line,2) = "" Then
    SendLine "PRIVMSG " & Nick & " :Du hasst vergessen die Nummer des zu löschenden Uploads anzugeben.", 3
    SendLine "PRIVMSG " & Nick & " :Syntax: !uldel [DelNr]", 3
    Exit Sub
  End If
  If Not IsNumeric(Param(Line,2)) Then
    SendLine "PRIVMSG " & Nick & " :Du die Nummer des Uploads angeben, keinen Text.", 3
    SendLine "PRIVMSG " & Nick & " :Syntax: !uldel [DelNr]", 3
    Exit Sub
  End If
  ULCount = ReadINIString("Upload","ULCount",0,dlstatINI)
  If ULCount <= 0 Then
    SendLine "PRIVMSG " & Nick & " :Aktuell sind keine Uploads bei mir gespeichert.", 3
    Exit Sub
  End If
  If ULCount < Param(Line,2) Then
    SendLine "PRIVMSG " & Nick & " :Der Upload mit der angegebenen Nr. existiert nicht.", 3
    Exit Sub
  End If
  ULData = ReadINIString("Upload",Param(Line,2)&"Data","",dlstatINI)
  ULTime = ReadINIString("Upload",Param(Line,2)&"Time","",dlstatINI)
  WriteINIString "Upload", Param(Line,2)&"Data", ReadINIString("Upload", ULCount&"Data", "", dlstatINI), dlstatINI
  WriteINIString "Upload", Param(Line,2)&"Time", ReadINIString("Upload", ULCount&"Time", "", dlstatINI), dlstatINI
  DeleteINIString "Upload", ULCount&"Data", dlstatINI
  DeleteINIString "Upload", ULCount&"Time", dlstatINI
  ULCount = ULCount - 1
  WriteINIString "Upload", "ULCount", ULCount, dlstatINI
  SendLine "PRIVMSG " & Nick & " :Der Upload mit der Nummer "&Param(Line,2)&" wurde gelöscht.", 3
  SendLine "PRIVMSG " & actChan & " :Upload beendet!!! Datei: "&Param(ULData,3)&" | Quelle: "&Param(ULData,1)&" | Ziel: "&Param(ULData,2)&" | Gestartet: "&ULTime, 3
End Sub

bvn

13.01.2005, 21:55 Uhr
Erst mal Danke für die Mühe und einen schönen Urlaub.

Hab aber schon das eine oder andere gefunden, was man "verbessern" könnte, obwohl das Teil schon klasse ist.

1.Eine komplette Stausübersicht (lsit all) (list dl) (!list ul)
2.Man sieht keine Nummerierung der Einträge wobei es dann schwer ist bei vielen Einträgen den richtigen DL oder UL auszutragen.

Das wars erst mal auf die schnelle.

Trotzdem nochmal danke...schön das es noch USer gibt die für "Lau" und Lob arbeiten.

HAPM

14.01.2005, 17:29 Uhr
Hab kurz vor Abfahrt nochmal drüber geschaut, bitte:

Code:
Const dlstatINI = "dlulstat.ini"
Const actChan = "#progging_newbies"

Sub Init()
  Script "Down-Up-Stat Script by HAPM"
  Hook "Chan_Msg"
  SpreadFlagMessage 0, "+m", "7*** Down-Up-Stat Script by HAPM loaded"
End Sub

Sub Chan_Msg(Chan, Nick, RegUser, Line)
  Select Case LCase(Param(Line,1))
    Case "!dl"
      AddDownload Nick, Line
    Case "!dldel"
      DelDownload Nick, Line
    Case "!ul"
      AddUpload Nick, Line
    Case "!uldel"
      DelUpload Nick, Line
    Case "!list"
      Select Case LCase(Param(Line,2))
        Case "ul"
          ShowUpload(Nick)
        Case "dl"
          ShowDownloads(Nick)
        Case "all"
          ShowUpload(Nick)
          ShowDownloads(Nick)
      End Select
  End Select
End Sub

Sub AddDownload(Nick, Line)
  Dim DLCount
  If Param(Line, 2) = "" Then
    SendLine "PRIVMSG " & Nick & " :Du hasst vergessen den Nick anzugeben, der etwas runterlädt.", 3
    SendLine "PRIVMSG " & Nick & " :Syntax: !dl [Ziel] [Quelle] [Datei]", 3
    Exit Sub
  End If
  If Param(Line, 3) = "" Then
    SendLine "PRIVMSG " & Nick & " :Du hasst vergessen den Nick anzugeben, von dem runtergeladen wird.", 3
    SendLine "PRIVMSG " & Nick & " :Syntax: !dl [Ziel] [Quelle] [Datei]", 3
    Exit Sub
  End If
  If Param(Line, 4) = "" Then
    SendLine "PRIVMSG " & Nick & " :Du hasst vergessen die Datei anzugeben, die runtergeladen wird.", 3
    SendLine "PRIVMSG " & Nick & " :Syntax: !dl [Ziel] [Quelle] [Datei]", 3
    Exit Sub
  End If
  DLCount = ReadINIString("Download","DLCount",0,dlstatINI)
  DLCount = DLCount*1 + 1
  WriteINIString "Download","DLCount", DLCount, dlstatINI
  WriteINIString "Download",DLCount&"Data", GetRest(Line,2), dlstatINI
  WriteINIString "Download",DLCount&"Time", Now, dlstatINI
  SendLine "PRIVMSG " & Nick & " :Download der Datei "&Param(Line,4)&" von "&Param(Line,2)&" bei "&Param(Line,3)&" wurde hinzugefügt.",3
End Sub

Sub ShowDownloads(Nick)
  Dim DLCount, DLData, DLTime
  DLCount = ReadINIString("Download","DLCount",0,dlstatINI)
  If DLCount <= 0 Then
    SendLine "PRIVMSG " & Nick & " :Aktuell sind keine Downloads bei mir gespeichert.", 3
  End If
  SendLine "PRIVMSG " & Nick & " :Downloads: ", 3
  For i = 1 To DLCount
    DLData = ReadINIString("Download",i&"Data","",dlstatINI)
    DLTime = ReadINIString("Download",i&"Time","",dlstatINI)
    SendLine "PRIVMSG "&Nick&" :"&i&") "&Param(DLData,1)&" saugt bei "&Param(DLData,2)&" die Datei "&Param(DLData,3)&". Gestartet: "&DLTime, 3
  Next
End Sub

Sub DelDownload(Nick,Line)
  Dim DLCount, DLData, DLTime
  If Param(Line,2) = "" Then
    SendLine "PRIVMSG " & Nick & " :Du hasst vergessen die Nummer des zu löschenden Downloads anzugeben.", 3
    SendLine "PRIVMSG " & Nick & " :Syntax: !dldel [DelNr]", 3
    Exit Sub
  End If
  If Not IsNumeric(Param(Line,2)) Then
    SendLine "PRIVMSG " & Nick & " :Du die Nummer des Downloads angeben, keinen Text.", 3
    SendLine "PRIVMSG " & Nick & " :Syntax: !dldel [DelNr]", 3
    Exit Sub
  End If
  DLCount = ReadINIString("Download","DLCount",0,dlstatINI)
  If DLCount <= 0 Then
    SendLine "PRIVMSG " & Nick & " :Aktuell sind keine Downloads bei mir gespeichert.", 3
    Exit Sub
  End If
  If DLCount < Param(Line,2) Then
    SendLine "PRIVMSG " & Nick & " :Der Download mit der angegebenen Nr. existiert nicht.", 3
    Exit Sub
  End If
  DLData = ReadINIString("Download",Param(Line,2)&"Data","",dlstatINI)
  DLTime = ReadINIString("Download",Param(Line,2)&"Time","",dlstatINI)
  WriteINIString "Download", Param(Line,2)&"Data", ReadINIString("Download", DLCount&"Data", "", dlstatINI), dlstatINI
  WriteINIString "Download", Param(Line,2)&"Time", ReadINIString("Download", DLCount&"Time", "", dlstatINI), dlstatINI
  DeleteINIString "Download", DLCount&"Data", dlstatINI
  DeleteINIString "Download", DLCount&"Time", dlstatINI
  DLCount = DLCount - 1
  WriteINIString "Download", "DLCount", DLCount, dlstatINI
  SendLine "PRIVMSG " & Nick & " :Der Download mit der Nummer "&Param(Line,2)&" wurde gelöscht.", 3
  SendLine "PRIVMSG " & actChan & " :Download beendet!!! Datei: "&Param(DLData,3)&" | Quelle: "&Param(DLData,1)&" | Ziel: "&Param(DLData,2)&" | Gestartet: "&DLTime, 3
End Sub

Sub AddUpload(Nick, Line)
  Dim ULCount
  If Param(Line, 2) = "" Then
    SendLine "PRIVMSG " & Nick & " :Du hasst vergessen den Nick anzugeben, der etwas hochlädt.", 3
    SendLine "PRIVMSG " & Nick & " :Syntax: !ul [Quelle] [Ziel] [Datei]", 3
    Exit Sub
  End If
  If Param(Line, 3) = "" Then
    SendLine "PRIVMSG " & Nick & " :Du hasst vergessen den Nick anzugeben, von dem hochgeladen wird.", 3
    SendLine "PRIVMSG " & Nick & " :Syntax: !ul [Quelle] [Ziel] [Datei]", 3
    Exit Sub
  End If
  If Param(Line, 4) = "" Then
    SendLine "PRIVMSG " & Nick & " :Du hasst vergessen die Datei anzugeben, die hochgeladen wird.", 3
    SendLine "PRIVMSG " & Nick & " :Syntax: !ul [Quelle] [Ziel] [Datei]", 3
    Exit Sub
  End If
  ULCount = ReadINIString("Upload","ULCount",0,dlstatINI)
  ULCount = ULCount*1 + 1
  WriteINIString "Upload","ULCount", ULCount, dlstatINI
  WriteINIString "Upload",ULCount&"Data", GetRest(Line,2), dlstatINI
  WriteINIString "Upload",ULCount&"Time", Now, dlstatINI
  SendLine "PRIVMSG " & Nick & " :Upload der Datei "&Param(Line,4)&" von "&Param(Line,2)&" zu "&Param(Line,3)&" wurde hinzugefügt.",3
End Sub

Sub ShowUpload(Nick)
  Dim ULCount, ULData, ULTime
  ULCount = ReadINIString("Upload","ULCount",0,dlstatINI)
  If ULCount <= 0 Then
    SendLine "PRIVMSG " & Nick & " :Aktuell sind keine Uploads bei mir gespeichert.", 3
  End If
  For i = 1 To ULCount
    ULData = ReadINIString("Upload",i&"Data","",dlstatINI)
    ULTime = ReadINIString("Upload",i&"Time","",dlstatINI)
    SendLine "PRIVMSG "&Nick&" :"&i&") "&Param(ULData,1)&" lädt bei "&Param(ULData,2)&" die Datei "&Param(ULData,3)&" hoch. Gestartet: "&ULTime, 3
  Next
End Sub

Sub DelUpload(Nick,Line)
  Dim ULCount, ULData, ULTime
  If Param(Line,2) = "" Then
    SendLine "PRIVMSG " & Nick & " :Du hasst vergessen die Nummer des zu löschenden Uploads anzugeben.", 3
    SendLine "PRIVMSG " & Nick & " :Syntax: !uldel [DelNr]", 3
    Exit Sub
  End If
  If Not IsNumeric(Param(Line,2)) Then
    SendLine "PRIVMSG " & Nick & " :Du die Nummer des Uploads angeben, keinen Text.", 3
    SendLine "PRIVMSG " & Nick & " :Syntax: !uldel [DelNr]", 3
    Exit Sub
  End If
  ULCount = ReadINIString("Upload","ULCount",0,dlstatINI)
  If ULCount <= 0 Then
    SendLine "PRIVMSG " & Nick & " :Aktuell sind keine Uploads bei mir gespeichert.", 3
    Exit Sub
  End If
  If ULCount < Param(Line,2) Then
    SendLine "PRIVMSG " & Nick & " :Der Upload mit der angegebenen Nr. existiert nicht.", 3
    Exit Sub
  End If
  ULData = ReadINIString("Upload",Param(Line,2)&"Data","",dlstatINI)
  ULTime = ReadINIString("Upload",Param(Line,2)&"Time","",dlstatINI)
  WriteINIString "Upload", Param(Line,2)&"Data", ReadINIString("Upload", ULCount&"Data", "", dlstatINI), dlstatINI
  WriteINIString "Upload", Param(Line,2)&"Time", ReadINIString("Upload", ULCount&"Time", "", dlstatINI), dlstatINI
  DeleteINIString "Upload", ULCount&"Data", dlstatINI
  DeleteINIString "Upload", ULCount&"Time", dlstatINI
  ULCount = ULCount - 1
  WriteINIString "Upload", "ULCount", ULCount, dlstatINI
  SendLine "PRIVMSG " & Nick & " :Der Upload mit der Nummer "&Param(Line,2)&" wurde gelöscht.", 3
  SendLine "PRIVMSG " & actChan & " :Upload beendet!!! Datei: "&Param(ULData,3)&" | Quelle: "&Param(ULData,1)&" | Ziel: "&Param(ULData,2)&" | Gestartet: "&ULTime, 3
End Sub

Übrigens die Nr. wurde schon angezeigt: Wenn du die Liste ausgeben lässt die Zahl ganz am Anfang

bvn

14.01.2005, 22:50 Uhr
Hi,
und wieder einmal einen ganz tiefen bückling vor dir mache. ist ja absolut kein fehler zu finden. soll dich jetzt schon von allen benutzern herzlichst grüßen und dank sagen.

es sind noch ideen da, die der eine oder andere noch gerne hätte und wenn sie in worte genau wiederzugeben sind, werde ich dich wieder "nerven" wenn ich darf. jetzt relax erst mal bei deinem skiurlaub und lass deine knochen heil.

thx a lot

HAPM

23.01.2005, 14:51 Uhr
so bin wieder da, alles ganz geblieben, wenn noch was sein sollte kannst de bescheit sagen.
Seiten: 1 2
AnGelBot-Portal² > Scripting > Anfragen > Datenbank Herausforderung
Referenz-URLs