<% dim a,b,c,d,m,n,z i=1 for i=100 to 999 a=mid(i,1,1) b=mid(i,2,1) c=mid(i,3,1) d=a*a*a m=b*b*b n=c*c*c z=d+m+n if z=i then response.write z & "<br>" end if next %>
Dim i, j, Str for i = 1 to 9 Str = "<tr>" for j = 1 to 9 Str = Str & "<td>" & i & "*" & j & "=" & i*j & "</td>" next Str = Str & "</tr>" Response.write Str next