Výpis zdrojového textu souboru http://www12.brinkster.com:80/mibla/priklady/dictionary.asp
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html;charset=windows-1250">
<title>Jemný úvod do ASP - Objekt Dictionary - Pøíklad</title>
</head>
<body>
<h1>Objekt Dictionary - Pøíklad</h1>
<form action="dictionary.asp" method="post">
Jak se vám líbí tyto stránky po obsahové stránce?<br>
<input type="radio" name="Obsah" value="Ujde to">Líbí</input><br>
<input type="radio" name="Obsah" value="Nic extra">Nelíbí</input><br>
Jak se vám líbí vzhled stránek?<br>
<input type="radio" name="Vzhled" value="Ujde to">Líbí</input><br>
<input type="radio" name="Vzhled" value="Nic extra">Nelíbí</input><br>
<input type="submit" value="Odeslat">
</form>
<p>
<%
If Request.Form.Count > 1 Then
Set objDict = Server.CreateObject("Scripting.Dictionary")
For Each polozka In Request.Form
objDict.Add polozka, Request.Form(polozka)
Next
klice = objDict.Keys()
polozky = objDict.Items()
Response.Write "Zadal(a) jste následující odpovìdi:<br>"
For i = 0 To objDict.Count - 1
Response.Write " " & klice(i) & " = " & polozky(i) & "<br>"
Next
Response.Write "Dìkujeme za váš názor, bohužel se ho nikdy nedozvíme :-)"
End If
%>
</p>
</body>
</html>