" 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 "",gstrChapterName & " Chapter","", 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 "/hawaii/38038.asp" 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"> Address Line 1 * " maxlength="150"> Address Line 2 " maxlength="50"> City * " maxlength="50"> State * " maxlength="50"> Postal Code/Zip * " maxlength="10"> E-mail * " 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.