------------------------------
<HTML>
<HEAD>
<TITLE></TITLE>
<SCRIPT LANGUAGE="VBScript">
Sub T1_onkeyup()
AddUp
End Sub
Sub T2_onkeyup()
AddUp
End Sub
Sub AddUp()
Dim i1, i2
i1 = 0
i2 = 0
If (Len(t1.value) > 0) And IsNumeric(T1.value) Then i1 = CLng(t1.value)
If (Len(t2.value) > 0) And IsNumeric(T2.value)Then i2 = CLng(t2.value)
T3.value = CStr(i1 + i2)
End Sub
</SCRIPT>
</HEAD>
<BODY BGCOLOR="#FFFFFF" TEXT="#000000">
<INPUT ID="T1" TYPE="text"> </INPUT><BR>
<INPUT ID="T2" TYPE="text"> </INPUT><BR>
<INPUT ID="T3" TYPE="text"> </INPUT><BR>
</BODY></HTML>
------------------------------------
I'm on the road here thanks to you and your help.
Jenny
"mayayana" <mayaX...@rcXXn.com> wrote in message
news:%23xJa31e...@TK2MSFTNGP04.phx.gbl...