<% Dim strRecipientName, strRecipient, strRecipientEmail, strFromAddress, SMTPServer, SMTPPort Dim strMsgInfo, strBody, strMsgHeader, strMsgFooter, boolShowForm Dim strCarbonCopy, strBlindCopy '//////////////////////////////////////////////////////////////////////////////////// '// BEGIN SETTINGS SECTION '//////////////////////////////////////////////////////////////////////////////////// SMTPServer = "localhost" SMTPPort = 25 strFromAddress = "Contact Us " strSubjectLine = "Contact Us Form" strCarbonCopy = "" strBlindCopy = "" ' strBlindCopy = "robh@h2ml.com" ' default strRecipient = "Contact Us" strRecipientEmail = "postmaster@goodwillwm.org" 'There are two rows that don't count as selected: ' rows 0 and 9 ' The selection is validated by index below ' search for the following text to find the code: ' $$RECIPIENT VALIDATION$$ Dim aryRecipientNames(19) aryRecipientNames(0) = "Please select..." aryRecipientNames(1) = "Richard J. Carlson, President" aryRecipientNames(2) = "James Moore, Chief Operating Officer" aryRecipientNames(3) = "Rick Snellenberger, Chief Financial Officer" aryRecipientNames(4) = "James Cherney, Retail Operations Director" aryRecipientNames(5) = "John Zervas, Industrial Services Director" aryRecipientNames(6) = "Thomas Griffin, Workforce Development Director" aryRecipientNames(7) = "Mary Wolfinger, Community Services Manager" aryRecipientNames(8) = "Liz Witzler, Marketing Director" aryRecipientNames(9) = "----------------------------------------------" aryRecipientNames(10) = "Computer Recycling / Reconnect" aryRecipientNames(11) = "GoodTemps Staffing Services" aryRecipientNames(12) = "Goodwill Human Resources" aryRecipientNames(13) = "Industrial Services" aryRecipientNames(14) = "Information Technology" aryRecipientNames(15) = "Janitorial Services" aryRecipientNames(16) = "Learning Center / Computer Training" aryRecipientNames(17) = "Vehicle Donations" aryRecipientNames(18) = "Vocational Evaluation & Testing" aryRecipientNames(19) = "Workforce Development Center" Dim aryRecipientEmails(19) aryRecipientEmails(0) = "" aryRecipientEmails(1) = "rcarlson@goodwillwm.org" aryRecipientEmails(2) = "jmoore@goodwillwm.org" aryRecipientEmails(3) = "rsnellenberger@goodwillwm.org" aryRecipientEmails(4) = "jcherney@goodwillwm.org" aryRecipientEmails(5) = "jzervas@goodwillwm.org" aryRecipientEmails(6) = "tgriffin@goodwillwm.org" aryRecipientEmails(7) = "mwolfinger@goodwillwm.org" aryRecipientEmails(8) = "lwitzler@goodwillwm.org" aryRecipientEmails(9) = "" aryRecipientEmails(10) = "jzervas@goodwillwm.org" aryRecipientEmails(11) = "bthompson@goodwillwm.org" aryRecipientEmails(12) = "kmeyers@goodwillwm.org" aryRecipientEmails(13) = "jzervas@goodwillwm.org" aryRecipientEmails(14) = "bveldheer@goodwillwm.org" aryRecipientEmails(15) = "ncarlson@goodwillwm.org" aryRecipientEmails(16) = "lberry@goodwillwm.org" aryRecipientEmails(17) = "gtenbrink@goodwillwm.org" aryRecipientEmails(18) = "dmorell@goodwillwm.org" aryRecipientEmails(19) = "mwolfinger@goodwillwm.org" '//////////////////////////////////////////////////////////////////////////////////// '// END SETTINGS SECTION '//////////////////////////////////////////////////////////////////////////////////// boolShowForm = True Dim strName, strCompany, strEmail, strPhone, strMessage, intRecipient strName = Request.Form("name") strEmail = Request.Form("email") strCompany = Request.Form("company") strPhone = Request.Form("phone") strMessage = Request.Form("message") intRecipient = Request.Form("recipient") intRecipient = CInt(intRecipient) If IsNumeric(intRecipient) And intRecipient >= LBound(aryRecipientEmails) And intRecipient <= UBound(aryRecipientEmails) Then strRecipient = aryRecipientNames(intRecipient) strRecipientEmail = aryRecipientEmails(intRecipient) End If if strName <> "" then boolShowForm = False strMsgHeader = "Received the following contact form submission for " & strRecipient & ":" & vbCrLf & vbCrLf strMsgInfo = strMsgInfo & "Name: " & strName & vbCrLf strMsgInfo = strMsgInfo & "Company: " & strCompany& vbCrLf strMsgInfo = strMsgInfo & "EMail: " & strEmail& vbCrLf strMsgInfo = strMsgInfo & "Phone: " & strPhone & vbCrLf & vbCrLf strMsgInfo = strMsgInfo & "Message:" & vbCrLf & vbCrLf strMsgInfo = strMsgInfo & strMessage & vbCrLf & vbCrLf strMsgFooter = "" strBody = strMsgHeader & strMsgInfo & strMsgFooter Dim objNewMail Set objNewMail = Server.CreateObject("CDO.Message") objNewMail.From = strFromAddress objNewMail.To = strRecipientEmail If strCarbonCopy <> "" Then objNewMail.CC = strCarbonCopy End If If strBlindCopy <> "" Then objNewMail.BCC = strBlindCopy End If objNewMail.Subject = strSubjectLine objNewMail.TextBody = strBody Dim iConf: Set iConf = CreateObject("CDO.Configuration") Dim Flds: Set Flds = iConf.Fields Flds("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 Flds("http://schemas.microsoft.com/cdo/configuration/smtpserver") = SMTPServer Flds("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = SMTPPort Flds.Update Set objNewMail.Configuration = iConf objNewMail.Send Set objNewMail = Nothing 'on error resume next end if %>

Goodwill Industries of
West Michigan, Inc.

Corporate Headquarters

Corporate Headquarters
271 East Apple Avenue
Muskegon, MI 49442
Phone/TTY (231) 722-7871
Fax (231) 728-6408
map

Workforce Development Center

Workforce Development Center
950 West Norton Avenue
Muskegon, MI 49441
Phone/TTY (231) 739-9010
Fax (231) 830-0005
map

Send A Message

<% If boolShowForm = False Then %>
Send A Message
Your message has been sent to:
<%=strRecipient%>
Your Name:
<%=strName%>
Company:
<%=strCompany%>
E-mail:
<%=strEmail%>
Phone:
<%=strPhone%>
Message:
<%=strMessage%>
<% Else %>
This message is for:
Your Name:
Company:
E-mail:
Phone:
Message:
<% End If ' boolShowForm %> 		Phone Extensions
CORP: (231) 722-7871

PRESIDENT
x225 Richard J. Carlson
CHIEF OPERATING OFFICER
x224James Moore
CHIEF FINANCIAL OFFICER
x232Rick Snellenberger
RETAIL OPERATIONS DIRECTOR
x227James Cherney
INDUSTRIAL SERVICES
DIRECTOR
x228John Zervas
WORKFORCE DEVELOPMENT
DIRECTOR
x226Thomas Griffin
MARKETING DIRECTOR
x223Liz Witzler
HUMAN RESOURCES MANAGER
x231Kay Meyers
INFORMATION SYSTEMS
MANAGER
x230Brian Veldheer


WDC: (231) 739-9010

COMMUNITY SERVICES
MANAGER
x224 Mary Wolfinger

 
Copyright Goodwill Industries of West Michigan, Inc. All Rights Reserved.
 
Web Development by Foxbright