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