<%@ LANGUAGE="VBSCRIPT" %>
Rico SimpleGrid-Example 2
<%
dim action
action=trim(Request.Form("action"))
if action="" then
DisplayForm
else
DisplayResult
end if
sub DisplayResult()
dim k,a
response.write "
"
response.write "
Problem
Your answer
Result"
for each k in Request.Form
a=split(k,"_")
select case a(0)
case "p": CheckResult a(1),a(2),Request.Form(k),"+",CInt(a(1))+CInt(a(2))
case "t": CheckResult a(1),a(2),Request.Form(k),"x",CInt(a(1))*CInt(a(2))
end select
next
response.write "
"
end sub
sub CheckResult(a,b,answer,operator,correctAnswer)
response.write "
" & a & " " & operator & " " & b & "
" & answer & "
"
if trim(answer)="" then
response.write "no answer"
elseif not IsNumeric(answer) then
response.write "not a number"
elseif CDbl(answer)=correctAnswer then
response.write "correct!"
else
response.write "incorrect"
end if
end sub
sub DisplayForm()
dim grid,r,a,b
set grid=new SimpleGrid ' create instance of class
' define heading
grid.AddHeadingRow true
grid.AddCell "A"
grid.AddCell "B"
grid.AddCell "A + B"
grid.AddCell "A x B"
' define data
for r=3 to 9 step 2
a=r
b=r-2
grid.AddDataRow
grid.AddCell a
grid.AddCell b
grid.AddCell ""
grid.AddCell ""
next
response.write "
This example shows how to use a SimpleGrid within a form.