<% msgadd = false action = UCase(left(Request.Form("action"),3)) Select Case action Case "SUB" strHPhone = chkphone(Request.Form("hphone")) strWPhone = chkphone(Request.Form("wphone")) strFax = chkphone(Request.Form("fax")) ' strUname = left(Request.Form("fname"),1)&trim(Request.Form("lname")) sql = "insert into tblCouncilMember (fname, lname, mi, occupation, addr, city, state, zipcode, hphone, wphone, fax, email, prevexperience, humanexperience, q1, q2, q3, q4, q5, q6, entrydate) VALUES ('"_ & replace(Request.form("fname"),"'","''") & "','" _ & replace(Request.form("lname"),"'","''") & "','" _ & Ucase(replace(Request.form("mi"),"'","''")) & "','" _ & replace(Request.form("title"),"'","''") & "','" _ & replace(Request.form("addr"),"'","''") & "','" _ & replace(Request.form("city"),"'","''") & "','" _ & request.form("state") & "','" _ & request.form("zipcode") & "','" _ & strHPhone & "','" _ & strWPhone & "','" _ & strFax & "','" _ & request.form("email") & "','" _ & replace(Request.form("prevdesc"),"'","''") & "','" _ & replace(Request.form("humandesc"),"'","''") & "','" _ & request.form("q1") & "','" _ & request.form("q2") & "','" _ & request.form("q3") & "','" _ & request.form("q4") & "','" _ & request.form("q5") & "','" _ & request.form("q6") & "','" _ & date() & "')" Conn.Execute(sql) if err = 0 then msgadd = true set rs = Conn.Execute("select max(id) from tblCouncilMember") id = rs(0) rs.close Response.Redirect("../pages/printjobtc.asp?id="&id) else Response.Write err.Description end if End Select function chkphone(strPhone) if strPhone <> "" then if instr(strPhone, "-") or instr(strPhone, ")") or instr(strPhone, "(") or instr(strPhone, " ") or instr(strPhone, ".") then strPhone = replace(strPhone, "-", "") strPhone = replace(strPhone, ")", "") strPhone = replace(strPhone, "(", "") strPhone = replace(strPhone, " ", "") strPhone = replace(strPhone, ".", "") end if if len(strPhone) <> 10 AND len(strPhone) <> 7 then chkPhone = 1 end if for i = 1 to len(strPhone) if not isnumeric(mid(strPhone, i, 1)) then chkPhone = 1 end if next else chkPhone = 0 end if if chkPhone <> 1 then chkPhone = strPhone end if end function %>

		Council Member Nomination The Mississippi Humanities Council needs members who are able to make a substantial commitment of time and energy. Members must be able to attend meetings and spend time on grant evaluation, planning, assessment, fund-raising, member recruitment, and other committee work. If you have questions about this commitment, please contact our office (601) 432-6752 or a current Council member. Please provide the following information   * Required * Name First  Mi Last  * Occupation  * Address  City  * State/Province  > Select State...................... <% QUOT = Chr(34) CRLF = Chr(13) & Chr(10) strSQL="SELECT stateid, statedesc FROM tblStateProv ORDER BY statedesc" Set sRS = Conn.Execute(strSQL, lngRecs, 1) 'adCmdText Do While Not sRS.EOF txtElement = sRS.Fields("stateid") txtElement2 = sRS.Fields("statedesc") if "MS" = txtElement then Response.Write "" & txtElement2 & "" & CRLF else Response.Write "" & txtElement2 & "" & CRLF end if sRS.MoveNext Loop sRS.Close %> Zip  Telephone - Home  Work  * Email  Fax  * Previous board and/or leadership experience: * Humanities scholarship, experience, or interest: * Will you give 5-10 hours per month and attend 2 or 3 day meeting per year?   Yes  No * Will you join with your colleagues to help raise funds for the humanities?   Yes  No * Will you communicate with elected officials about the humanities and the work of the Council?   Yes  No * Will you help make contacts and build relationships for the Council in your region or community?   Yes  No * Will you serve on board committees devoted to planning, development, or grant evaluation?   Yes  No * Will you sign a Code of Ethics agreement upon election of the Council?   Yes  No Please attach your resume and a statement discussing what you would like to contribute to the board and the organization.