<% If IsEmpty(request.querystring("osoba")) Then blad = true Else Set fs=Server.CreateObject("Scripting.FileSystemObject") plik="kadra/" & request.querystring("osoba") & ".txt" If (fs.FileExists(Server.MapPath(plik)))=true Then Set f=fs.OpenTextFile(Server.MapPath(plik), 1) Else blad = true End If End If If (blad = true) Then response.Write("Bledny identyfikator") response.end Else title=f.Readline pozycja=f.Readline urodzony=f.Readline wzrost=f.ReadLine waga=f.ReadLine wychowanek=f.ReadLine debiut=f.ReadLine kariera=f.ReadLine osiagniecia=f.ReadLine plany=f.ReadLine piast=f.ReadLine stan=f.ReadLine hobby=f.ReadLine komentarz=f.ReadLine f.Close set f=Nothing set fs=Nothing End If %>

Andrzej Grajek Funkcja: Masażysta Data i miejsce urodzenia: Specjalizacja: Na co dzień : Przygoda z Piastem: Plany na przyszłość: Stan cywilny:

Uwaga: Dane są aktualizowane po zakonczeniu każdej rundy

Zamknij Okno