<%
str_fs=request.querystring("fs")
str_rok=request.querystring("rok")
str_soutez=request.querystring("soutez")
if Len(str_fs)=0 OR Len(str_rok)=0 OR Len(str_soutez)=0 then
Response.Write "
Chybný parametr
"
else
Response.Write "Zpět na archiv soutěží "
On Error Resume Next
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
TestFile = Server.MapPath ("/c/KaO/001_archiv/") & "/" & left(str_fs,3) & "/Archiv_" & str_rok & "_" & str_soutez & ".html"
Set InStream = FileObject.OpenTextFile (TestFile, 1, False, False)
if InStream.AtEndOfStream then
Response.Write "
Litujeme, ale KFS (OFS) k této soutěži a tomuto odkazu zatím nedodává na server WWW.FOTBAL.CZ potřebná data.
"
else
Do While InStream.AtEndOfStream <> True
retstring = InStream.ReadLine
retstring = Replace(retstring,"/c/clubs/adr/ViewAdr.asp","/adresare/adresar-klubu/viewadr.asp")
retstring = Replace(retstring,"/img/hlstr/odskok.gif","/img/2008nvfimages/odskok.gif")
Response.Write (retstring & vbCrLf)
Loop
Set Instream=Nothing
TestFile.close
end if 'if InStream.AtEndOfStream then
Response.Write "
SOUTĚŽE
