Sub Citaj
A=document.cookie
if A=""Then Pole = Split(";;",";"):exit sub'ak cookie neexistuje
Pole = Split(A,";")
End Sub

Sub TL1_onclick'zapis cookie
'cookie c1
Meno="COO1"
Hodnota="1234"
Str=Meno &"="& Hodnota
Document.cookie= str & " ;expires=date"&(now+2)
'cookie c2
Meno="COO2"
Hodnota="5678"
Str=Meno &"="& Hodnota
Document.cookie= str & " ;expires=date"&(now+365)
'cookie c3
Meno="COO3"
Hodnota="SomrSoftware"
Str=Meno &"="& Hodnota
Document.cookie= str & " ;expires=date"&(now+365)
End Sub

Sub TL2_onclick
Citaj
La.innerText=A'zobraz vsetky cookie
End Sub

Sub TL3_onclick
Citaj
La.innerText=Pole(0)'zobraz cookie c1
End Sub

Sub TL4_onclick
Citaj
La.innerText=Pole(1)'zobraz cookie c2
End Sub

Sub TL5_onclick
Citaj
La.innerText=Pole(2)'zobraz cookie c3
End Sub

Sub TL6_onclick'stale maze prve z lava
For i =0 to 2
document.cookie= document.cookie & " ;expires=date"&(now-100)
next
La.innerText=""
End Sub
--></SCRIPT>