Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
<%
If (isEmpty(Request.Form("books")) And isEmpty(Request.Form("music"))) Then
Call PrintForm()
Else
Call PrintResults()
End If
Sub PrintResults()
Dim arrBooks,arrMusic
arrBooks = Split(Request.Form("books"), ", ")
arrMusic = Split(Request.Form("music"), ", ")
Response.Write ("<b>Books you like:</b><br>")
For Each strBook In arrBooks
Response.Write strBook & "<br>"
Next
Response.Write ("<br>")
Response.Write ("<b>Music you like:</b><br>")
For Each strMusic In arrMusic
Response.Write strMusic & "<br>"
Next
End Sub
Sub PrintForm()%>
<form method=post>
What books do you like?<br>
<small>Please select all that apply</small><br>
<select name=books multiple>
<option value="Novel"> Novel
<option value="Fiction"> Fiction
<option value="Science Fiction"> Science Fiction
<option value="True_Stories"> True Stories
<option value="Fairy_Tales"> Fairy Tales
</select><br><br>
What music do you like?<br>
<small>Please select all that apply</small><br>
<input type=checkbox name=music value="Rock"> Rock<br>
<input type=checkbox name=music value="Country"> Country<br>
<input type=checkbox name=music value="Jazz"> Jazz<br>
<input type=checkbox name=music value="Techno"> Techno<br>
<input type=checkbox name=music value="Hard_Rock"> Hard Rock<br>
<input type=checkbox name=music value="World"> World<br><br>
<input type=submit>
</form>
<%End Sub%>
Request.Form("values")
Request.Form("music")
PrintForm
PrintResults
Split