Microsoft VBScript runtime error '800a0006' Overflow

[jmagcase]

Hey Everyone,

I am learning ASP at the moment and came across an error with this code:

Function Encrypt( plain, symkey )
    keylen=Len(symkey)
    plainlen=Len(plain) 
    Encrypt=""
    for i=0 to plainlen-1
        curchar=mid(plain, i+1, 1)
        charvalue=asc(curchar)
        if i<keylen then
            keypoint=i
        else
            keypoint=i-(int(i/keylen)*keylen)
        End if
        keyvalue=asc(mid(key,keypoint+1,1))
        charvalue=charvalue+keyvalue
        encrypt=encrypt & charvalue & " "
    next
End Function

The error is said to be coming from this line:

keypoint=i-(int(i/keylen)*keylen)

TIA!

[jhardman]

print out the values of all the variables at this point.

response.write "keypoint:" & keypoint & "<br>"& vbnewline
response.write "i:" & i & "<br>"& vbnewline
response.write "keylen:" & keylen & "<br>"& vbnewline
response.write "value:" & i-(int(i/keylen)*keylen) & "<br>" & vbnewline

Does this happen the first time it goes through the loop?

Jared