<% msgadd = false action = UCase(left(Request.Form("action"),3)) Select Case action Case "SUB" strPhone = chkphone(Request.Form("phone")) ' strUname = left(Request.Form("fname"),1)&trim(Request.Form("lname")) sql = "insert into tblDonor (fname, lname, mi, addr, city, zipcode, state, phone, email, donateid) VALUES ('"_ & replace(Request.form("fname"),"'","''") & "','" _ & replace(Request.form("lname"),"'","''") & "','" _ & Ucase(replace(Request.form("mi"),"'","''")) & "','" _ & replace(Request.form("addr"),"'","''") & "','" _ & replace(Request.form("city"),"'","''") & "','" _ & request.form("zipcode") & "','" _ & request.form("state") & "','" _ & strPhone & "','" _ & request.form("email") & "','" _ & request.form("donate") & "')" Conn.Execute(sql) if err = 0 then msgadd = true set rs = Conn.Execute("select max(did) from tbldonor") id = rs(0) rs.close Response.Redirect("../pages/printjob.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 %>

		Donations - Support The Humanities I wish to donate the following amount to support public humanities programming in Mississippi: Please provide the following information   * Required * Donation  > Select Donation.............. <% 'On Error Resume Next QUOT = Chr(34) CRLF = Chr(13) & Chr(10) strSQL="SELECT id, donate FROM tblDonate ORDER BY id" Set sRS = Conn.Execute(strSQL, lngRecs, 1) 'adCmdText Do While Not sRS.EOF txtElement = sRS.Fields("id") txtElement2 = sRS.Fields("donate") Response.Write "" & "$" & txtElement & " " & txtElement2 & "" & CRLF sRS.MoveNext Loop sRS.Close %> * First Name     Mi  * Last Name  * Address  * City  * State/Province  > Select State...................... <% 'On Error Resume Next 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  * Phone  * Email    The Mississippi Humanities Council is supported by Congress through the National Endowment for the Humanities and by the generosity of individual donors like you. Your contributions allow for the continuation of quality public programs in our state. The Mississippi Humanities Council does not discriminate on the basis of race, color, national origin, sex, disability, or age. All contributions are 100% tax deductible.

<%if msgadd then%> <%end if%>