<%@LANGUAGE="VBSCRIPT"%> <% Response.Expires = 0 Response.Expiresabsolute = Now() - 1 Response.AddHeader "pragma","no-cache" Response.AddHeader "cache-control","private" Response.CacheControl = "no-cache" %> <% action = request.QueryString("action") %> <% strCode2confirm = GetSecurityCode(6) '******************************************************* '* FORM VALIDATION '******************************************************* If Request.Form("action") = langContactFormSend Then 'First Name If bytFirstNameField = 1 Then frmFirstName = FixString(Request.Form("frmFirstName")) End If If bytFirstNameField = 1 AND bytCheckFirstName = 1 Then If frmFirstName = "" Then msgFirstName = langRequiredField bytError = 1 End If End If 'Last Name If bytLastNameField = 1 Then frmLastName = FixString(Request.Form("frmLastName")) End If If bytLastNameField = 1 AND bytCheckLastName = 1 Then If frmLastName = "" Then msgLastName = langRequiredField bytError = 1 End If End If 'Company If bytCompanyField = 1 Then frmCompany = FixString(Request.Form("frmCompany")) End If If bytCompanyField = 1 AND bytCheckCompany = 1 Then If frmCompany = "" Then msgCompany = langRequiredField bytError = 1 End If End If 'Address If bytAddress1Field = 1 Then frmAddress1 = FixString(Request.Form("frmAddress1")) End If If bytAddress2Field = 1 Then frmAddress2 = FixString(Request.Form("frmAddress2")) End If If bytAddress1Field = 1 AND bytCheckAddress1 = 1 Then If frmAddress1 = "" Then msgAddress1 = langRequiredField bytError = 1 End If End If 'State If bytStateField = 1 Then frmState = FixString(Request.Form("frmState")) End If If bytStateField = 1 AND bytCheckState = 1 Then If frmState = "" Then msgState = langRequiredField bytError = 1 End If End If 'Zip If bytZipField = 1 Then frmZip = FixString(Request.Form("frmZip")) End If If bytZipField = 1 AND bytCheckZip = 1 Then If frmZip = "" Then msgZip = langRequiredField bytError = 1 End If End If 'City If bytCityField = 1 Then frmCity = FixString(Request.Form("frmCity")) End If If bytCityField = 1 AND bytCheckCity = 1 Then If frmCity = "" Then msgCity = langRequiredField bytError = 1 End If End If 'Country If bytCountryField = 1 Then frmCountry = FixString(Request.Form("frmCountry")) End If If bytCountryField = 1 AND bytCheckCountry = 1 Then If frmCountry = "" Then msgCountry = langRequiredField bytError = 1 End If End If 'Security Code If bytSecurityCode = 1 Then frmCode = FixString(Request.Form("frmCode")) frmSecurityCode = FixString(Request.Form("frmSecurityCode")) If frmCode <> frmSecurityCode Then msgSecurityCode = langInvalid bytError = 1 End If End If 'Undefined Field 1 If bytUndefinedField1 = 1 Then frmUndefined1 = FixString(Request.Form("frmUndefined1")) End If If bytUndefinedField1 = 1 AND bytCheckUndefinedField1 = 1 Then If frmUndefined1 = "" Then msgUndefined1 = langRequiredField bytError = 1 End If End If 'Undefined Field 2 If bytUndefinedField2 = 1 Then frmUndefined2 = FixString(Request.Form("frmUndefined2")) End If If bytUndefinedField2 = 1 AND bytCheckUndefinedField2 = 1 Then If frmUndefined2 = "" Then msgUndefined2 = langRequiredField bytError = 1 End If End If 'Undefined Field 3 If bytUndefinedField3 = 1 Then frmUndefined3 = FixString(Request.Form("frmUndefined3")) End If If bytUndefinedField3 = 1 AND bytCheckUndefinedField3 = 1 Then If frmUndefined3 = "" Then msgUndefined3 = langRequiredField bytError = 1 End If End If 'Undefined Field 4 If bytUndefinedField4 = 1 Then frmUndefined4 = FixString(Request.Form("frmUndefined4")) End If If bytUndefinedField4 = 1 AND bytCheckUndefinedField4 = 1 Then If frmUndefined4 = "" Then msgUndefined4 = langRequiredField bytError = 1 End If End If 'Message If bytMessageField = 1 Then frmMessage = FixString(Request.Form("frmMessage")) End If If bytMessageField = 1 AND bytCheckMessage = 1 Then If frmMessage = "" Then msgMessage = langRequiredField bytError = 1 End If End If 'Email frmEmail = FixString(Request.Form("frmEmail")) If frmEmail = "" Then msgEmail = langRequiredField bytError = 1 End If If frmEmail<>"" Then checkifAT=instr(2, frmEmail, "@") If checkifAT<>0 Then numofat=instr(right(frmEmail,(len(frmEmail)-checkifAT)), "@") If numofat<>0 Then msgEmail=langInvalidEmail bytError = 1 End If numofdot=instr(2, right(frmEmail,(len(frmEmail)-checkifAT)), ".") If numofdot=0 Then msgEmail=langInvalidEmail bytError = 1 End If If checkifAT<>"" and numofdot<>"" Then If len(mid(frmEmail,((numofdot)+(checkifAT)))) <= 2 Then msgEmail=langInvalidEmail bytError = 1 End If End If Else msgEmail=langInvalidEmail bytError = 1 End If End If 'Send Email If bytError <> 1 then message = langContactFormMessagePostedFrom &" http://"& strSiteURL &"/"& strFileName &"."&VbCrLf message = message &VbCrLf message = message &"********************"&VbCrLf message = message & Ucase(langContactFormFrom) &VbCrLf message = message &"********************"&VbCrLf If bytFirstNameField = 1 Then message = message & langContactFormFirstName &": "& frmFirstName &VbCrLf End If If bytLastNameField = 1 Then message = message & langContactFormLastName &": "& frmLastName &VbCrLf End If If bytCompanyField = 1 Then message = message & langContactFormCompany &": "& frmCompany &VbCrLf End If If bytAddress1Field = 1 Then message = message & langContactFormAddress1 &": "& frmAddress1 &VbCrLf End If If bytAddress2Field = 1 Then message = message & langContactFormAddress2 &": "& frmAddress2 &VbCrLf End If If bytZipField = 1 Then message = message & langContactFormZip &": "& frmZip &VbCrLf End If If bytCityField = 1 Then message = message & langContactFormCity &": "& frmCity &VbCrLf End If If bytStateField = 1 Then message = message & langContactFormState &": "& frmState &VbCrLf End If If bytCountryField = 1 Then message = message & langContactFormCountry &": "& frmCountry &VbCrLf End If message = message & langContactFormEmail &": "& frmEmail &VbCrLf message = message &VbCrLf message = message &VbCrLf If bytUndefinedField1 = 1 OR bytUndefinedField2 = 1 OR bytUndefinedField3 = 1 OR bytUndefinedField4 = 1 Then message = message &"********************"&VbCrLf message = message & Ucase(langContactFormDefinedField) &VbCrLf message = message &"********************"&VbCrLf If bytUndefinedField1 = 1 Then message = message & bytUndefinedTitle1 &": "& frmUndefined1 &VbCrLf End If If bytUndefinedField2 = 1 Then message = message & bytUndefinedTitle2 &": "& frmUndefined2 &VbCrLf End If If bytUndefinedField3 = 1 Then message = message & bytUndefinedTitle3 &": "& frmUndefined3 &VbCrLf End If If bytUndefinedField4 = 1 Then message = message & bytUndefinedTitle4 &": "& frmUndefined4 &VbCrLf End If message = message &VbCrLf message = message &VbCrLf End If If bytMessageField = 1 Then message = message &"********************"&VbCrLf message = message & Ucase(langContactFormMessage) &VbCrLf message = message &"********************"&VbCrLf message = message & frmMessage &VbCrLf message = message &VbCrLf message = message &VbCrLf End If SendMail frmEmail, strMailaddress, langContactFormMessageFrom &" "& strSiteURL , message msgSent = 1 End If End If %> <% TemplateHeader %> <% TemplateFooter %>