A Visual Preference Survey is a tool used to exchange ideas and information about the physical image and quality of an area. This information can be very useful in developing design concepts and specific improvements for Downtown Mundelein. Your input will help us gain a better understanding of how village residents see their Downtown today and in the future." &_ "
Includes outdoor elements such as: Signage; Lighting; Landscape; Street furniture; Materials; and, Scale" &_ "
Includes transit and transportation facilities such as: Informational signage; Circulation; Inter-modal connections; and, Pedestrian access. Also includes parking facilities including: Parking location and configuration; and, Multi-story structures" & _ "
Includes the following land uses and activities: Residential; Retail; and, Commercial." &_ "
Indicate whether the displayed images are desirable or undesirable features for Downtown Mundelein. The scale is ranked -3 (least desirable) to +3 (most desirable). A zero (0) indicates a neutral preference. Indicate only one preference per slide." &_ "
Mark your preference by choosing the number on the scale below the image." &_ "
Answer the questions that follow each section of images by typing in the space provided." &_ "
Thank you for completing the survey!" & _ "
" 'Generate a unique ID to identify surveys intLowerBound = 1 intUpperBound=9999999999 ' Initialize the random number generator. ' Randomize can actually take parameters telling it how to initialize ' things, but for the most you'll just want to call it without passing ' it anything. Randomize() ' Generate our random number. ' The Rnd function does most of the work. It returns a value in the ' range 0 <= value < 1 so to generate a random integer in the specified ' range we need to do some calculation. Specifically we take the size ' of the range in which we want to generate the number (add 1 so the ' upper bound can be generated!) and then multiply it by our random ' element. Then to place the value into the correct range of numbers ' we add the lower bound. Finally we truncate the number leaving us ' with the integer portion which is always somewhere between the ' lower bound and upper bound (inclusively). ' Find range size intRangeSize = intUpperBound - intLowerBound + 1 ' Get a random number from 0 to the size of the range sngRandomValue = intRangeSize * Rnd() ' Center the range of possible random numbers over the desired result set sngRandomValue = sngRandomValue + intLowerBound ' Convert our value to an integer intRandomInteger = Int(sngRandomValue) varUniqueID=intRandomInteger Session("UniqueID")=varUniqueID End If If varPhoto="End" Then varBody="Your scores and comments have been submitted. Your input is very valuable and will ultimately shape the outcome of the plan. Thanks for participating." Session.Abandon End If If IsNumeric(varPhoto)= True Then If Session("UniqueID")="" Then objConn.Close Set objConn=Nothing Response.Redirect "vps.asp?Slide=Begin" End If varIPAddress= Request.ServerVariables("REMOTE_ADDR") Dim photoRS Set photoRS=Server.CreateObject("ADODB.RecordSet") photoSQL="SELECT * FROM Images WHERE ImageID=" & varPhoto & ";" photoRS.Open photoSQL, objConn, 1, 1 varBody="
 |
|
<%=varBody%>
|
|
 |
|