It couldnt works.....fuh !
<HTML>
<HEAD>
<TITLE>
Old Pedant
</TITLE>
<SCRIPT LANGUAGE="VBScript">
Sub compare( aButton )
dim sum, frm
Set frm = aButton.form
if CINT( frm.nom0.value ) < CINT( frm.nom1.value ) and CINT( frm.nom0.value ) < CINT( frm.nom2.value ) then
if CINT( frm.nom0.value ) mod 2 = 0 then
msgbox (CINT( frm.nom0.value ) & " is the smallest and Even number")
else
msgbox (CINT( frm.nom0.value ) & " is the smallest and Odd number")
end if
elseif CINT( frm.nom1.value ) < CINT( frm.nom0.value ) and CINT( frm.nom1.value ) < CINT( frm.nom2.value ) then
if CINT( frm.nom1.value ) mod 2 = 0 then
msgbox (CINT( frm.nom1.value ) & " is the smallest and Even number")
else
msgbox (CINT( frm.nom1.value ) & " is the smallest and Odd number")
end if
elseif CINT( frm.nom2.value ) < CINT( frm.nom0.value ) and CINT( frm.nom2.value ) < CINT( frm.nom1.value ) then
if CINT( frm.nom2.value ) mod 2 =0 then
msgbox (CINT( frm.nom2.value ) & " is the smallest and Even number")
else
msgbox (CINT( frm.nom2.value ) & " is the smallest and Odd number")
end if
end if
End Sub
</SCRIPT>
</HEAD>
<BODY>
<FORM>
<TABLE BORDER="0">
<TR>
<TD>
Enter a Number
</TD>
<TD>
<INPUT NAME="nom0" SIZE="10">
</TD>
</TR>
<TR>
<TD>
Enter a Number
</TD>
<TD>
<INPUT NAME="nom1" SIZE="10">
</TD>
</TR>
<TR>
<TD>
Enter a Number
</TD>
<TD>
<INPUT NAME="nom2" SIZE="10">
</TD>
</TR>
</TABLE>
<BR>
<INPUT Type=Button Value="Enter" onClick="Call compare(me)">
</FORM>
</BODY>
</HTML>