<%@ LANGUAGE="VBSCRIPT" %> <% nadpis = "" navrat = "no" pageKat = "UN" CanIUseSubSec = "yes" ' chci používat subsekce defatrib = "UKXEIW" kat = "prazdna" 'atrib = defatrib & "(t012)" 'nadpis1 = "

Přečtěte si

" 'pata1 = "" kat2 = "UN" atrib2 = defatrib & "(t008)" 'nadpis2 = "" 'nadpiskat2 = "NadpisKat" 'patakat2 = "" 'sectname(2) = "pgsc-mit_UB" 'sclass2 = "sct-full" 'VypisKateg_MiniPrefix2 = "" kat3 = "ON" atrib3 = defatrib nadpis3 = "

" & tx_ome_nadpis & "

" 'nadpiskat3 = "NadpisKat" 'patakat3 = "" sectname(3) = "pgsc-mit_ON" sectname(3) = "pgsc-mit_UB" 'sclass3 = "sct-full" VypisKateg_MiniPrefix3 = "" ' takhle se vytváří subsekce 'Set subsec(2,1) = New subsec_item 'subsec(2,1).part = "" 'subsec(2,1).tab = "chatamodrava22" 'subsec(2,1).kat = "UB_21" 'subsec(2,1).atrib = defatrib & "(t003)" 'subsec(2,1).nadpis = "

Ubytování

" 'subsec(2,1).sclass = "nazev_tridy" ' !!! tahle je možné přidat třídu. Třída se přidá jak buňce, tak případně i řádce ' bunka ma sekundární třídu subcell- ' pokud je v PART definována radka, bude mit subrow- 'Set subsec(2,2) = New subsec_item 'subsec(2,2).part = "" 'subsec(2,2).tab = "chatamodrava22" 'subsec(2,2).kat = "UB_22" 'subsec(2,2).atrib = defatrib & "(t003)" 'subsec(2,2).nadpis = "

Ubytování

" 'Set subsec(2,3) = New subsec_item 'subsec(2,3).part = "" 'subsec(2,3).tab = "chatamodrava22" 'subsec(2,3).kat = "UB_S" 'subsec(2,3).atrib = defatrib & "(t003)" 'subsec(2,2).nadpis = "

Ubytování

" kat4 = "NA" atrib4 = defatrib nadpis4 = "

" & tx_nabidka & "

" 'nadpiskat = "" 'patakat4 = "" sectname(4) = "pgsc-mit_NA" sectname(4) = "pgsc-mit_RE" kat5 = "CE" atrib5 = defatrib nadpis5 = "

" & tx_cenik & "

" 'patakat5 = "" sectname(5) = "pgsc-mit_CE" sectname(5) = "pgsc-mit_ME" kat7 = "" atrib7 = defatrib 'nadpis7 = "

Kontakt

" 'patakat7 = "" sectname(7) = "pgsc-mit_KO" Set subsec(7,1) = New subsec_item subsec(7,1).part = "" 'subsec(7,1).kat = "@file" 'subsec(7,1).atrib = "(url=webcam-inc.asp)" subsec(7,1).tab = tab subsec(7,1).kat = "KO" subsec(7,1).kat1 = lngkat subsec(7,1).atrib = defatrib subsec(7,1).nadpis = "

Kontakt

" subsec(7,1).sclass = "webcam" Set subsec(7,2) = New subsec_item subsec(7,2).part = "" 'subsec(7,2).kat = "@code" 'subsec(7,2).atrib = FacebookPlugin subsec(7,2).kat = "@file" if ( lng = "cz" ) then subsec(7,2).atrib = "(url=objednavka_inc2.asp)" else subsec(7,2).atrib = "(url=objednavka_inc2_de.asp)" end if subsec(7,2).nadpis = "

" & tx_kontaktniformular & "

" subsec(7,2).sclass = "formular" kat8 = "@file" atrib8 = "(url=kontakt-mapka.asp)" 'nadpis8 = "

Mapka

" 'patakat8 = "" sclass8 = "sct-full nospace" ' kat9 = "@id" ' atrib9 = "(id=86)" ' nadpis9 = "

Rozeposani ID

" ' .... first block 'katF = "%AK%" 'atribF = "UKXEI(t006)" 'atribF = "UKXEI(subj-x1)" 'katG = "AN17" 'nadpisG = "

" & tx_akcninabidky & "

" 'atribG = "UKXEI(t003)" '--- uvodni = "yes" sloupcu = 1 Want_LevySloupec = "no" 'NadpisHorniTextText = "

Úvodní informace

" 'id = 48 'url = "uvodni-inc.asp" 'url2 = GetTLng(lng, "uvod_inc_cz.asp", "uvod_inc_de.asp", "uvod_inc_en.asp" ) %> Chybné volání
Chybné volání