<% if Len(Request.Form("btnSubmitAdvocacy")) > 0 then dim errString errstring="" if len(trim(Request.form("firstname")))=0 then errString=errString & "&errFirstName=1" end if if len(trim(Request.form("lastname")))=0 then errString=errString & "&errlastName=1" end if if len(trim(Request.form("email")))=0 then errString=errString & "&errEmail=1" end if if len(trim(Request.form("zip")))=0 then errString=errString & "&errzip=1" end if if len(errstring)>1 then Response.Write "ERROR IN FORM SUBMITTING DATA

" else set objQuery=server.CreateObject ("Modimes.ModDB") ReDim arrInput(10) arrInput(0) = Trim(Request.Form("firstname")) arrInput(1) = Trim(Request.Form("lastname")) arrInput(2) = Trim(Request.Form("street1")) arrInput(3) = Trim(Request.Form("street2")) arrInput(4) = Trim(Request.Form("city")) arrInput(5) = Trim(Request.Form("state")) arrInput(6) = Trim(Request.Form("zip")) arrInput(7) = Trim(Request.Form("email")) arrInput(8) = Trim(Request.Form("phone")) arrInput(9) = Request.Form("chapterCode") objQuery.ExecSP_New "sp_advocacy_insert",arrInput '************************************************************************* '* EMAIL DATA TO CHAPTER * '************************************************************************* strBody = strBody & "The following individual is interested in joining the Advocacy Network" & vbCrLf strBody = strBody & "First Name: " & Trim(Request.Form("firstname")) & vbCrLf strBody = strBody & "Last Name: " & Trim(Request.Form("lastname")) & vbCrLf strBody = strBody & "Address: " & Trim(Request.Form("street1")) & vbCrLf strBody = strBody & "Address 1: " & Trim(Request.Form("street2")) & vbCrLf strBody = strBody & "City: " & Trim(Request.Form("city")) & vbCrLf strBody = strBody & "State: " & Trim(Request.Form("state")) & vbCrLf strBody = strBody & "Zip: " & Trim(Request.Form("zip")) & vbCrLf strBody = strBody & "Country: " & Trim(Request.Form("email")) & vbCrLf strBody = strBody & "Phone: " & Trim(Request.Form("phone")) & vbCrLf Set objEmail = Server.CreateObject("Modimes.Email") objEmail.AddTempEmail chapterEmailAddress,gstrChapterName & " Chapter",chapterEmailAddress, gstrChapterName & " Website","New Advocacy Form Registration",strBody,strtempemail_id 'objEmail.AddTempEmail "amatteson@marchofdimes.com",gstrChapterName & " Chapter","amatteson@marchofdimes.com", gstrChapterName & " Website",gstrChapterName & " - New Advocacy Form Registration",strBody,strtempemail_id 'Edited by DE. Added logic for adding record in the Submition table for Email project. if request("txtYes") = "Yes" then sYesNo = "1" else sYesNo = "0" end if if Request.Form("chapterCode") = empty then sChapterCode = "NULL" else sChapterCode = "'" & Request.Form("chapterCode") & "'" end if deSQL = "EXEC de_submission_insert '" & Trim(Request.Form("firstname")) & "', '" & Trim(Request.Form("lastname")) & "', '', '" deSQL = deSQL & "', '" & Trim(Request.Form("street1")) & "', '" & Trim(Request.Form("street2")) & "', '" & Trim(Request.Form("city")) deSQL = deSQL & "', '" & Trim(Request.Form("state")) & "', '" & Trim(Request.Form("zip")) & "', '', '" & Trim(Request.Form("phone")) & "', '', '" & Trim(Request.Form("email")) deSQL = deSQL & "', " & sYesNo & ", '', '', '', '', " & sChapterCode & ", '" & Request.Cookies("00b_point")("OtherValues") & "'" objQuery.Execute(deSQL) Set objEmail = nothing Set objQuery = nothing Response.Redirect "" end if end if %>
I would like to join the March of Dimes <%=gstrChapterName%> Advocacy Network!

Please provide the following information so that we may better understand your interest in working with the March of Dimes.

*First Name: " maxlength="50">
*Last Name: " maxlength="50">
Street Address: " maxlength="150">
Address 2: " maxlength="50">
City: " maxlength="50">
State: " maxlength="50">
*Zip Code: " maxlength="10">
*Email: " maxlength="150">
Phone: " maxlength="50">
I would like to receive the monthly e-mail newsletters from the March of Dimes with news, tips and personal stories.
Yes     No
We respect your desire for privacy and will not share your e-mail address with third parties.