this asp program not working

< % @ LANGUAGE="VBscript" % >
< %Option Explicit % >
< % dim no, sum
For no = 0 to 20 step 2
sum = sum + no
Next
Response.Write "The sum of all the even numbers between 1 to 20 is" &sum % >