<% ' Your Email Address sYouEmail="sales@avantionhold.com" ' Email Subject EmailSubject="Message from AvantiOnhold EQUIPMENT page" ' Heading font color FontColor="black" ' Heading Background Color HeadColor="#999999" ' Form Font Color FormFontColor="black" ' Form Background Color FormBackColor="#F7CB69" 'Error Message Color ErrorColor="red" Function ValidateField(sFieldvalue, sFieldtype) ValidField = true Select Case LCase(sFieldtype) Case "company" If Len(sFieldvalue) = 0 Then ValidField = False Case "phone" If Len(sFieldvalue) = 0 Then ValidField = False Case "email" If Len(sFieldvalue) < 5 Then ValidField = False Else If InStr(1, sFieldvalue, "@", 1) < 2 Then ValidField = False Else If InStr(1, sFieldvalue, ".", 1) < 4 Then ValidField = False End If End If End If Case "else" ValidField = False End Select ValidateField = ValidField End Function Sub ShowForm %>