{\rtf1\ansi\deff0\deftab720{\fonttbl{\f0\fswiss MS Sans Serif;}{\f1\froman\fcharset2 Symbol;}} {\colortbl\red0\green0\blue0;} \deflang1033\pard\plain\f0\fs17 var Common0OK=true \par \par function EmptyString(s)\{ \par return (s == null || s.length == 0); \par \} \par \par function ValidEMail(e)\{ \par if(EmptyString(e)==true) return false;\tab \tab //if empty can't be valid \par \par AtLoc=e.indexOf("@");\tab \tab \tab //get location of @ \par DotLoc=e.lastIndexOf(".");\tab \tab //get location of last dot(.) \par \par return (AtLoc != -1 && DotLoc != -1 && DotLoc > AtLoc && DotLoc != e.length-1); \par //if at not present or dot not present or dot before at or dot at end then not valid \par \} \par \par function isGoodEMail(e)\{\tab \tab //if entered, must be valid \par if(EmptyString(e)==true) return true; \par if(ValidEMail(e)== false)\{ \par alert("The E-Mail Address Is Not Valid"); \par return false;\} \par else \par return true; \par \} \par \par function ValidPhone(ph)\{ \par if(EmptyString(ph)==true) return false;\tab \tab //if empty can't be valid \par var s=0, v=0, d=0, b=0, p=0, a=0, n=0; \par for (i=0; i="0" && c<="9") \par \tab \{v++;\}\tab \tab \tab //digits - must be at least 10 \par else if(c=="-") \par \tab \{d++;\}\tab \tab \tab //dashes - no more than 3 \par else if(c=="(") \par \tab \{b++;\}\tab \tab \tab //b will be 0 if \par else if(c==")") \par \tab \{b--;\}\tab \tab \tab //complete set of () - must be 0 to pass \par else if(c==".") \par \tab \{p++;\}\tab \tab \tab //periods - no more than 3 \par else if(c=="+") \par \tab \{a++;\}\tab \tab \tab //plus signs - no more than 1 \par else \par \tab \{n++;\}\tab \tab \tab //any other character - no more than 1 \par \} \par return (s<5 && v>9 && d<4 && b==0 && p<4 && a<2 && n<2); \par /*if more than 3 spaces or less than 10 digits or more than 1 dash or \par not a pair of parens or more than 3 periods or more than 1 plus sign \par or more than 1 of any other character then return false */ \par \} \par \par function isGoodPhone(p,msg)\{\tab \tab //if entered, must be valid \par if(EmptyString(p)==true) return true; \par if(ValidPhone(p) == false)\{ \par alert("The "+msg+"Phone Number Is Not Valid"); \par return false;\} \par else \par return true; \par \} \par \par function isEmpty(o,msg)\{\tab \tab //returns true if empty \par if(EmptyString(o)==true)\{ \par alert("You Must Enter Your "+msg); \par return true;\} \par else \par return false; \par \} \par \par function IsFuture(d)\{\tab \tab //is date in the future \par dTest=new Date(d); \par dYear=dTest.getYear(); \par if (dYear="0") dTest.setYear(2000); \par //alert(dTest); \par dToday=new Date(); \par msTest=dTest.getTime();\tab \tab //convert to millisec \par if(isNaN(msTest)) return false;\tab //if date doesnt convert, not valid \par msToday=dToday.getTime(); \par return (msToday