Button doesn't work... use to. Only change I made was the reference to @ code requirement. Can anyone tell me what is going on here???
<SCRIPT LANGUAGE=vbscript>
Sub btnSubmit_onclick()
If Len(frmNewUser.custemail.value) = 0 THen
Alert "Please enter your email address!"
frmNew.custemail.focus
exit sub
ElseIF Len(frmnewUser.custemail.value) > 0 Then
If instr(1, Len(frmNewUser.Custemail.value),@) = 0 Then
Alert "Please enter your FULL valid email address-including @hp.com or @non.hp.com"
frmNew.custemail.focus
End IF
exit sub
ElseIF Len(frmNewuser.PWD.value) = 0 Then
Alert "Please enter a password!"
frmNew.pwd.focus
exit sub
ElseIF Len(frmNewuser.PWD2.value) = 0 Then
Alert "Please enter your password again."
frmNew.pwd2.focus
exit sub
ElseIF frmNewUser.PWD.value <> frmNewUser.PWD2.value Then
Alert "Passwords don't match, please enter again."
frmNew.PWD.focus
End IF
Call frmNewUser.submit()
end sub
</script>
Mary
Rule 1: Don't sweat the small stuff.
Rule 2: EVERYTHING is small stuff!! X-)
<SCRIPT LANGUAGE=vbscript>
Sub btnSubmit_onclick()
If Len(frmNewUser.custemail.value) = 0 THen
Alert "Please enter your email address!"
frmNew.custemail.focus
exit sub
ElseIF Len(frmnewUser.custemail.value) > 0 Then
If instr(1, Len(frmNewUser.Custemail.value),@) = 0 Then
Alert "Please enter your FULL valid email address-including @hp.com or @non.hp.com"
frmNew.custemail.focus
End IF
exit sub
ElseIF Len(frmNewuser.PWD.value) = 0 Then
Alert "Please enter a password!"
frmNew.pwd.focus
exit sub
ElseIF Len(frmNewuser.PWD2.value) = 0 Then
Alert "Please enter your password again."
frmNew.pwd2.focus
exit sub
ElseIF frmNewUser.PWD.value <> frmNewUser.PWD2.value Then
Alert "Passwords don't match, please enter again."
frmNew.PWD.focus
End IF
Call frmNewUser.submit()
end sub
</script>
Mary
Rule 1: Don't sweat the small stuff.
Rule 2: EVERYTHING is small stuff!! X-)