VBScript : if statement not running as usual.

<script language="VBScript">
form1.h1.value=form1.selectday.value
Sub calculate_onclick()

if form1.selectmonth.value=month(date) AND form1.selectday.value<day(date) then
alert "Please enter a future day"
form1.selectday.focus
exit sub
elseif form1.ccentre.value="" Then
alert "Please enter cost centre!"
form1.ccentre.focus
exit sub
elseif form1.selectday.value="" then
alert "Please enter day"
form1.selectday.focus
exit sub
elseif form1.selectmonth.value="" then
alert "Please enter month"
form1.selectmonth.focus
exit sub
elseif form1.selectyear.value="" then
alert "Please enter year"
form1.selectyear.focus
exit sub

elseif form1.selectexpenses.value="" Then
alert "Please select expenses "
form1.selectexpenses.focus
exit sub
elseif form1.quantity.value="" then
alert "please enter the quantity"
form1.quantity.focus
exit sub
elseif form1.accountcode.value="" Then
alert "Please select accountcode "
form1.accountcode.focus
exit sub
elseif form1.description1.value="" Then
alert "Please enter description1!"
form1.description1.focus
exit sub
elseif form1.quantity.value="" Then
alert "Please enter quantity !!"
form1.quantity.focus
exit sub
elseif form1.up1.value="" Then
alert "Please enter unit price !!"
form1.up1.focus
exit sub
elseif form1.up2.value="" Then
alert "Please enter unit !!"
form1.up2.focus
exit sub
elseif form1.v1.value="" Then
alert "Please enter vendor or put NONE!!"
form1.v1.focus
exit sub

end if

call form1.submit()
end Sub

</script>

Whole coding is running correctly except for the part I have bolden. The if statement do not run while other run normally.
Can anyone of you see either my coding have error or not. What ever error you think is apper please reply to me as soon as possible.I am apriciate on your help.