<% Dim a,b,c a=1 c=0 Do While a<=100 b=a Mod 2 If b<>1 Then c=c+a End If a=a+1 Loop response.write c %>
<% Dim a a=0 For i = 22 To 202 Step 20 a=a+i Next response.write a %>