<% Dim strAddress Dim aryAddress Dim strStreetMapLink Dim aryFamilies Dim aryRooms Dim aryServants Dim aryJob Dim aryIncome Dim aryAnswers strAddress = Request.QueryString("address") Set dicAddress = CreateObject("Scripting.Dictionary") ' create a dictionary to store addresses and associated jobs and incomes dicAddress.Add "32 Milman Street", "2--2--0--Farrier,Dressmaker--Poor" dicAddress.Add "34 Milman Street", "4--2,1--0--Plasterer,General Dealer,Cab Driver,House Painter--Poor" dicAddress.Add "36 Milman Street", "1--2--0--Bricklayer--Poor" dicAddress.Add "40 Cadogan Square", "Absent--5--4--Not Given--Rich" dicAddress.Add "42 Cadogan Square", "1--5--6--Living on own means--Rich" dicAddress.Add "44 Cadogan Square", "1--5--6--Merchant--Rich" dicAddress.Add "46 Cadogan Square", "1--5--9--Not Given--Rich" dicAddress.Add "48 Cadogan Square", "1--5--7--MP,Barrister--Rich" dicAddress.Add "9 Upper Cheyne Row", "1--5--2--Journalist,MP--Comfortable" dicAddress.Add "10 Upper Cheyne Row", "1--5--3--Portait Painter--Comfortable" dicAddress.Add "11 Upper Cheyne Row", "1--5--1--Freeman builder--Comfortable" ' split the item returned by the dictionary for this address on the "--" delimeter aryAnswers = Split(dicAddress.Item(strAddress), "--") aryFamilies = Split(aryAnswers(0), ",") aryRooms = Split(aryAnswers(1), ",") aryServants = Split(aryAnswers(2), ",") aryJob = Split(aryAnswers(3), ",") aryIncome = Split(aryAnswers(4), ",") aryAddress = Split(strAddress, " ") For intCount = 1 To UBound(aryAddress) If intCOunt <> 1 Then strStreetMapLink = strStreetMapLink & "_" End If strStreetMapLink = strStreetMapLink & LCase(aryAddress(intCount)) Next strStreetMapLink = strStreetMapLink & ".htm" %> Activity address
<% = strAddress %>
How many families live there?
*
How many rooms does the famliy live in?
*
How many servants does the famliy have?
*
What job does the head of the famliy do?
*
Back to mapBack to street
Try again