% ' =============================================================================== ' == WALI Awards Entry Form Application == ' == Copyright 2000, SynergyMedia, Inc == ' == http://www.synergymedia.net == ' =============================================================================== frmStatus = "not entered" frmCompany = Request.Form("txtCompany") frmTitle = Request.Form("txtTitle") frmEmail = Request.Form("txtEmail") frmContact = Request.Form("txtContact") frmUrl = Request.Form("txtUrl") frmAddress1 = Request.Form("txtAddress1") frmAddress2 = Request.Form("txtAddress2") frmCity = Request.Form("txtCity") frmState = Request.Form("sltState") frmZipCode = Request.Form("txtZipCode") frmPhone = Request.Form("txtPhone") frmfax = Request.Form("txtFax") frmResponsb = Request.Form("taResponsb") frmOtherExpr = Request.Form("taOtherExpr") frmPreScreen = Request.Form("chkPreScreen") If ("Yes" = frmPreScreen) Then frmPreScreen = -1 End If frmAction = Request.Form("action") ' tack on http:// if missing If "" <> frmUrl Then frmUrl = RemoveProtocol(frmUrl) End If If ("create" = frmAction) Then If ("" = frmCompany) Or ("" = frmContact) Or ("" = frmEmail) Then frmStatus = "failed" Else If AlreadyExists("Judges","email",frmEmail) Then errMsg = "Sorry, you have already appled to be a judge. If you need further assistance please contact the LIWDG." frmStatus = "failed" Else tFieldList = Array("Company","Title","Contact","Url","Address1","Address2","City","State","ZipCode","Phone","Fax","Email","PreScreen","Responsb","OtherExpr") tValueList = Array(frmCompany,frmTitle,frmContact,frmUrl,frmAddress1,frmAddress2,frmCity,frmState,frmZipCode,frmPhone,frmfax,frmEmail,frmPreScreen,frmResponsb,frmOtherExpr) query = buildInsertQuery("Judges", tFieldList, tValueList) oConn.Execute(query) oConn.Close() frmStatus = "passed" End If End If End If %>