<%@ LANGUAGE="VBSCRIPT" %> <% Response.Buffer=True Response.Expires=0 Dim pool Dim PgArr Dim Page, SubPage, PgSee Dim pathPrima, AbsPathPrima Dim m Page = Request.QueryString ("Pg") SubPage= Request.QueryString ("SubPg") AbsPathPrima = "c:/Inetpub/wwwroot/n-text/teletext/TTX_Pages" PathPrima = "../teletext/TTX_Pages/prima/GIF/" '***************************************************************************** If Page = "" Then Page = "100" 'Set default Start Page 100 for PRIMA TV End If '***************************************************************************** PgSee = Page 'Helper If SubPage <> "" Then 'byla zadana podstranka Page = Mid(SubPage,2,3) 'vyrizni jeji cislo (od 2 pozice, delka 3) PgSee = Page End If ' Vytvor instanci objektu Set TTX = Server.CreateObject("PageLst.ClsPageLst") ' napln pole Pool = TTX.GetGIFPagesLst(CStr(AbsPathPrima), "PRIMA", CStr(Page)) ' rosekej pole (oddelovac je \) PgArr = Split(Pool,"\",-1,1) %>

 

" 'zobraz image stranky If SubPage = "" Then 'Stranka Response.Write "   <% m = 0 'Vypis seznam stranek If (UBound(PgArr)+1) = 0 Then Response.Write ("Stránka " & PgSee & " nenalezena") Response.Write (" ") Response.Write ("100") Else For i = LBound(PgArr) To (UBound(PgArr)-1) If Mid(PgArr(i),2,3) = PgSee and UCase(Right(PgArr(i),2)) <> "FL" Then m = m + 1 'prvni stranku zobraz If m = 1 Then Page = PgArr(i) End If 'zobraz podstranky pismeny abecedy PodStr = Chr(asc("@") + m) Response.Write ( "" & PodStr & " ") End If Next Response.Write " " Else 'Podstranka Response.Write " " End If End If Set TTX = Nothing %>

-    <%=PgSee%>  +