<%
Randomize
Pic1 = Int(Rnd * 9)
strPic1 = " images/ani/" & Pic1 & ".gif"
Randomize
Pic2 = Int(Rnd * 9)
strPic2 = "images/ani/" & Pic2 & ".gif"
Randomize
Pic3 = Int(Rnd * 2) + 1
	if Pic3 = 1 then
		strPic3 = "images/ani/minus.gif"
	end if
	if Pic3 = 2 then
		strPic3 = "images/ani/plus.gif"
	end if
	if Pic3 = 3 then
		strPic3 = "images/ani/times.gif"
	end if
strPic4 = "images/ani/equals.gif"
strPic5 = "images/ani/solve.gif"
Response.Write	"<table width=""158"" height=""50""  cellspacing=""0"" cellpadding=""0"" border=""1"" align=""center"">" & vbNewLine & _
	"	<tr>" & vbNewLine & _
	"		<td>" & vbNewLine
Response.Write "<img src=""" & strPic1 & """ border=0>"
Call Delay
Response.Clear
Response.Write "<img src=""" & strPic3 & """ border=0>"
Call Delay
Response.Clear
Response.Write "<img src=""" & strPic2 & """ border=0>"
Call Delay
Response.Clear
Response.Write "<img src=""" & strPic4 & """ border=0>"
Call Delay
Response.Clear
Response.Write "<img src=""" & strPic5 & """ border=0>"
Call Delay
Response.Write	"		</td>" & vbNewLine & _
	"	</tr>" & vbNewLine & _
	"</table>" & vbNewLine
Response.End

Function Delay
	Randomize
	DelTm = Int(Rnd * 2) + 1
	TT = timer
		do until timer-TT> DelTm
 			' do nothing
		loop
end Function
%>