<% dim testArray(10) testArray(0) = "" testArray(1) = "href" testArray(2) = "javascript" testArray(3) = "viagra" testArray(4) = ".html" testArray(5) = ".js" testArray(6) = ".php" testArray(7) = ".asp" testArray(8) = "http://" testArray(9) = "https://" function TestCaptcha(byval valSession, byval valCaptcha) dim tmpSession valSession = Trim(valSession) valCaptcha = Trim(valCaptcha) if (valSession = vbNullString) or (valCaptcha = vbNullString) then TestCaptcha = false else tmpSession = valSession valSession = Trim(Session(valSession)) Session(tmpSession) = vbNullString if valSession = vbNullString then TestCaptcha = false else valCaptcha = Replace(valCaptcha,"i","I") if StrComp(valSession,valCaptcha,1) = 0 then TestCaptcha = true else TestCaptcha = false end if end if end if end function Function quoteFix(text) dim temptext if isNull(text) then quoteFix = "" else temptext = replace(text, "&acute;", "'") temptext = replace(temptext, "´", "'") temptext = Replace(temptext, Chr(34),""") temptext = Replace(temptext,"<","<") temptext = Replace(temptext,">",">") temptext = Replace(temptext,"&","&") quoteFix = temptext end if end Function '*** other email validator 'VALIDATE EMAIL Function CheckIsEmail(strEmailAddress) Set strRegExp = New RegExp strRegExp.Pattern ="^(([^<>()[\]\\.,;:\s@""]+(\.[^<>()[\]\\.,;:\s@""]+)*)|("".+""))@((\[[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\])|(([a-zA-Z\-0-9]+\.)+[a-zA-Z]{2,}))$" strRegExp.IgnoreCase = true CheckIsEmail = strRegExp.Test(strEmailAddress) End Function if Request.Form("Process") = "Yes" then errMsg = "" 'test for completeness if errMsg = "" then if Trim(Request.Form("Company_Name")) = "" then errMsg = errMsg & "
  • You did not fill in the company name." if Trim(Request.Form("Business_Contact")) = "" then errMsg = errMsg & "
  • You did not fill in your name." if Trim(Request.Form("email")) = "" then errMsg = errMsg & "
  • You did not fill in your email address." if Trim(Request.Form("Business_Phone")) = "" then errMsg = errMsg & "
  • You did not fill in your phone number." end if 'test email address if errMsg = "" then if CheckIsEmail(Request.Form("email")) = "False" then errMsg = errMsg & "
  • Not a valid email address." end if ' test captcha if Not TestCaptcha("ASPCAPTCHA", Request.Form("captchacode")) then errMsg = "
  • You did not enter the code correctly." end if 'test question contents if errMsg = "" then msgTest = "no" for x = 0 to 9 if inStr(Request.Form("Business_Description"), testArray(x)) then msgTest = "yes" next if msgTest = "yes" then errMsg = errMsg & "
  • There is questionable content in your comments. Please reword and submit again." end if if errMsg = "" then 'Create the mail object Set objMail = Server.CreateObject("CDO.Message") 'Set email server variables objMail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Name or IP of Remote SMTP Server objMail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.daalibaba.com" 'Server port (typically 25) objMail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 'Server Authenication objMail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'Server User objMail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusername") = "fryer@daalibaba.com" 'Server Password objMail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "jps6430" objMail.Configuration.Fields.Update 'Set key properties if Request.Form("email") = "" then objMail.From = "info@mantuashalersvillechamber.com" else objMail.From = Request.Form("email") end if objMail.To = "jpsdg@suite224.net,communityjournal@yahoo.com" ' objMail.Subject= "MSACC Membership Application" sTextBody = "" sTextBody = sTextBody & "Company: " & quoteFix(Request.Form("Company_Name")) & chr(10) & chr(13) sTextBody = sTextBody & "Location: " & quoteFix(Request.Form("Location")) & chr(10) & chr(13) sTextBody = sTextBody & "Location2: " & quoteFix(Request.Form("Location2")) & chr(10) & chr(13) sTextBody = sTextBody & "Mailing Address: " & quoteFix(Request.Form("Mailing_Address1")) & chr(10) & chr(13) sTextBody = sTextBody & "Mailing Address2: " & quoteFix(Request.Form("Mailing_Address2")) & chr(10) & chr(13) sTextBody = sTextBody & "Phone Number: " & quoteFix(Request.Form("Business_Phone")) & chr(10) & chr(13) sTextBody = sTextBody & "Fax Number: " & quoteFix(Request.Form("Business_Fax")) & chr(10) & chr(13) sTextBody = sTextBody & "Email Address: " & quoteFix(Request.Form("email")) & chr(10) & chr(13) sTextBody = sTextBody & "Name: " & quoteFix(Request.Form("Business_Contact")) & chr(10) & chr(13) sTextBody = sTextBody & "Title: " & quoteFix(Request.Form("Business_Contact_Title")) & chr(10) & chr(13) sTextBody = sTextBody & "Type of Business: " & quoteFix(Request.Form("Type_of_Business")) & chr(10) & chr(13) sTextBody = sTextBody & "No of Employees: " & quoteFix(Request.Form("No_of_Employees")) & chr(10) & chr(13) sTextBody = sTextBody & "Secondary Contact: " & quoteFix(Request.Form("Secondary_Contact_Name")) & chr(10) & chr(13) sTextBody = sTextBody & "Website: " & quoteFix(Request.Form("WebSite_Link")) & chr(10) & chr(13)& chr(10) & chr(13) sTextBody = sTextBody & "Business Description: " & quoteFix(Request.Form("Business_Description")) & chr(10) & chr(13) objMail.TextBody = sTextBody 'Send the email objMail.Send 'Clean-up mail object Set objMail = Nothing end if end if %>

    P.O. Box 111 • Mantua, Ohio 44255
    Home
    Member Benefits
    Chamber Committees
    Chamber Events
    DMRC News
    Member Yellow Pages
    Business Resources
    Community Resources
    Area Maps
    Newsletters
    Contact Us

    Membership
     

    Yearly Dues:

     

    Individual Patron    $25
    0-5 Employees        $50
    6-20 Employees      $100
    21+ Employees       $150

    Mail completed membership form and dues to:
    MSACC
    PO Box 111
    Mantua, OH 44255

    Print the membership form at right and mail.
    Or, use the form below

    Membership Application Form.pdf

    <% if errMsg <> "" then response.write "There are errors on this form. Please correct." & vbCrLf response.write "
      " & vbCrLf response.write errMsg response.write "
    " & vbCrLf else if Request.Form("Process") = "Yes" then response.write "

    Thank you for your interest in  the Mantua-Shalersville Area Chamber of Commerce. Your application has been received. Somebody will get back to you soon. Don't forget to submit your Business Web Profile for the Yellow Pages." & vbCrLf response.write "

    Sincerely, Marie Louise Stehli, President

    " & vbCrLf else response.write "

    Items with an have to be completed.

    " & vbCrLf end if end if %>
    Company Name " size="40" tabindex="1">
    Location " size="40" tabindex="2">
      " size="40" tabindex="3">
    Mailing Address " size="40" tabindex="4">
      " size="40" tabindex="6">
    Business Phone " size="40" tabindex="7">
    Business Fax " size="40" tabindex="8">
    Primary Contact Name " size="40" tabindex="9">
    Title " size="40" tabindex="10">
    E-mail " size="40" tabindex="11">
    Number of Employees " size="40" tabindex="12">
    Type of Business " size="40" tabindex="13">
    Member Since " size="40" tabindex="14">
    Secondary Contact Name " size="40" tabindex="15">
    Business web site " size="40" tabindex="16">
    Summary of Business
     Change Image
    Enter the Code
    from Above


    Home  |  Member Benefits  |  Chamber Committees  |  Chamber Events  |  Past Chamber Events
     Member Yellow Pages  |  Business Resources  |  Area Maps  |  Newsletters  |  Contact Us
    Copyright © Mantua-Shalersville Area Chamber of Commerce. All rights reserved.