%@ LANGUAGE="VBSCRIPT"%>
<% Response.Buffer=True%>
Cvičení k ADO - (c) 2002 Doc. Ing. Radim Farana, CSc.
<%
' Definice proměnných
Dim CRLF
CRLF = Chr(13) & Chr(10)
' Převzetí hodnoty z Cookies
FigName = Request.Cookies("MyFirstFigure")
Select Case FigName
Case "Fig01"
FigName = "Fig02"
Case "Fig02"
FigName = "Fig03"
Case Else
FigName = "Fig01"
End Select
' Uložení názvu posledního obrázku do Cookies
Response.Cookies("MyFirstFigure") = FigName
Response.Cookies("MyFirstFigure").Expires = Date() + 5
' Response.Cookies("MyFirstFigure").Domain = "localhost"
' Response.Cookies("MyFirstFigure").Path = "/AplInf"
' Response.Cookies("MyFirstFigure").Secure = False
' Uložení musí být provedeno před zápisem výstupu stránky!
' Vložení obrázku do stránky
Response.Write "Využití Cookies - změna obrázku na stránce
" & CRLF
Response.Write "
" & CRLF
Response.Write "Vložen obrázek: " & FigName & ".jpg. Při každém načtení (i reload) stránky je zobrazen jiný obrázek.
"
%>