<% Set FileObject = Server.CreateObject("Scripting.FileSystemObject") Dir = Request.ServerVariables("SCRIPT_NAME") Dir = StrReverse(Dir) Dir = Mid(Dir, InStr(1, Dir, "/")) Dir = StrReverse(Dir) HitsFile = Server.MapPath(Dir) & "/hits.txt" On Error Resume Next Set InStream= FileObject.OpenTextFile (HitsFile, 1, false ) OldHits = Trim(InStream.ReadLine) NewHits = OldHits + 1 Set OutStream= FileObject.CreateTextFile (HitsFile, True) OutStream.WriteLine(NewHits) %> Normale Seite ohne Titel

Meine Homepage

ANTIKES   KURIOSES UHREN. SCHMUCK, ETC:
TECHNISCHES BÜCHER,CD's  PC, HARD & SOFTWARE
ICH SUCHE GEWAND; ETC SPORT & FREIZEIT
DIENSTLEISTUNGEN HAUSRAT & GESCHIRR BEHINDERTENARBEIT
IMMOBILIEN, KFZ, etc.

GRATIS

  

      Schreibe mir:               Gästebuch:

 

Wegen der neuen Gesetzesbestimmungen erfolgt der Verkauf unter Ausschluss jeglicher Gewährleistung, Garantie und Rücknahme. Da es sich um einen Privatverkauf handelt kann ich keine Garantie nach neuem EU-Recht übernehmen. Der Käufer erklärt sich damit einverstanden und erkennt dies mit seinem Kauf an! Laut dem neuen EU-Recht muss dieser Zusatz hier stehen, ansonsten haftet der Verkäufer auch als Privatperson ein ganzes Jahr für die verkaufte Ware.