Philabundance- email sync

[DaveBerard]

User Name: MarloZ

Company Name: Philabundance

Our website currently supports an e-newsletter sign-up form that syncs directly to constant contact. Essentially, email signups deposit in real time on the admin side of our constant contact account.

Annually, we run a poll on our homepage that requires visitors to signup for our newsletter before voting. In the past, the form was designed with the same code as that of the e-newsletter signup form thus allowing email addresses to directly deposit into constant contact. This was the same case this year except this time, the 2,031 email addresses that we recruited did not deposit into constant contact. We don't know where these email addresses are currently living- that's where your help comes in- below is the code that we used for both the form and the poll as well as links to the way the poll looked and our existing e-newsletter signup. Please advise as early as possible! Thanks!

E-newletter signup form

http://www.philabundance.org/contact/freshnews.asp

Poll Processing Code:



Processing... <% First_Name = Request.Form("First_Name") Last_Name = Request.Form("Last_Name") ea = Request.Form("ea") Address_Line_1 = Request.Form("Address_Line_1") Address_Line_2 = Request.Form("Address_Line_2") City = Request.Form("City") State = Request.Form("State") Postal_Code = Request.Form("Postal_Code") Home_Phone = Request.Form("Home_Phone") loginName = "username" loginPassword = "password" ic = "MainList" Function PostTo(Data, URL)  Dim objXMLHTTP, xml  On Error Resume Next  Set xml = Server.CreateObject("MSXML2.ServerXMLHTTP.3.0")  xml.Open "POST", URL, False  xml.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"  xml.Send Data  If xml.readyState <> 4 then    xml.waitForResponse 10  End If  If Err.Number = 0  AND http.Status = 200 then    PostTo = xml.responseText  else    PostTo = "Failed"  End If  Set xml = Nothing End Function PostData = "loginName="&loginName&"&loginPassword="&loginPassword&"&ea="&ea&"&ic="&ic&"&First_Name="&First_Name&"&Last_Name="&Last_Name&"&ea="&ea&"&Address_Line_1="&Address_Line_1&"&Address_Line_2="&Address_Line_2&"&City="&City&"&State="&State&"&Postal_Code="&Postal_Code&"&Home_Phone="&Home_Phone&"" rslt = PostTo(PostData,"http://ccprod.roving.com/roving/wdk/API_AddSiteVisitor.jsp?")     response.redirect "poll.asp" %>





--------------------------------------------



E-newsletter Process Code



Processing... <% First_Name = Request.Form("First_Name") Last_Name = Request.Form("Last_Name") ea = Request.Form("ea") Address_Line_1 = Request.Form("Address_Line_1") Address_Line_2 = Request.Form("Address_Line_2") City = Request.Form("City") State = Request.Form("State") Postal_Code = Request.Form("Postal_Code") Home_Phone = Request.Form("Home_Phone") loginName = "username" loginPassword = "password" ic = "MainList" Function PostTo(Data, URL)  Dim objXMLHTTP, xml  On Error Resume Next  Set xml = Server.CreateObject("MSXML2.ServerXMLHTTP.3.0")  xml.Open "POST", URL, False  xml.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"  xml.Send Data  If xml.readyState <> 4 then    xml.waitForResponse 10  End If  If Err.Number = 0  AND http.Status = 200 then    PostTo = xml.responseText  else    PostTo = "Failed"  End If  Set xml = Nothing End Function PostData = "loginName="&loginName&"&loginPassword="&loginPassword&"&ea="&ea&"&ic="&ic&"&First_Name="&First_Name&"&Last_Name="&Last_Name&"&ea="&ea&"&Address_Line_1="&Address_Line_1&"&Address_Line_2="&Address_Line_2&"&City="&City&"&State="&State&"&Postal_Code="&Postal_Code&"&Home_Phone="&Home_Phone&"" rslt = PostTo(PostData,"http://ccprod.roving.com/roving/wdk/API_AddSiteVisitor.jsp?")     response.redirect "freshnewsthanks.asp" %>

http://www.philabundance.org/indexVOTE2.asp

Poll link- (not live)

[DaveBerard]

I looked into your account and the information you posted on the forums (I blanked our your Username/Password for security reasons).  Your ASP ran on my local machine with my account information without issue.  The list name matched your account.  I looked into the details for your MainList in your account and I do see 100s of sign ups over the past month to this list.  We have been adding all of the requests we have received to the account as we received them.

Do you have an unpublished or hidden version of your poll site that I can access directly to test and do you have the full code for the poll system?  There could be problems in the code for the poll itself causing the ASP to not send the request to us.  On our end, we have no record of those 2031 requests that I can see outside of the 252 contacts I see added since April 1st.

[DaveBerard]

***Update***

I noticed that you did include the page with the poll on it.  I registered myself for your poll (I did not take the poll as I did not want to scew your results) and was successfully added to your account.  What I did notice is that if I was already subscribed to your account, my information was also successfully updated.  This would correct my FirstName and LastName, however it would not update my "date added" as it was an update.  This could be a possible explanation for what you are seeing if most of the people taking your poll were already members.  Since they are going into your MainList that contains a majority of your existing contacts and not to a different list, it would be virtually impossible to see if these people are already existing and you're updating them or if they were new adds.

In the future, I would recommend changing the list these people sign up to for the poll so that you can get an accurate representation of who the people are taking the poll.  This would differentiate these as newly added to the new list and we could see exactly who was added to it and when they were added.

[caberra]

http://www.philabundance.org/indexVOTE2.asp  <----- that's the hidden version of the poll site (is that what you're referring to?) code below

Poll_process.asp code:



-------------------------------





Processing...

<%



First_Name = Request.Form("First_Name")

Last_Name =

Request.Form("Last_Name")

ea = Request.Form("ea")

Address_Line_1 =

Request.Form("Address_Line_1")

Address_Line_2 =

Request.Form("Address_Line_2")

City = Request.Form("City")

State =

Request.Form("State")

Postal_Code = Request.Form("Postal_Code")

Home_Phone =

Request.Form("Home_Phone")

loginName = "username"

loginPassword = "password"

ic

= "MainList"



Function PostTo(Data, URL)

  Dim objXMLHTTP, xml

  On Error

Resume Next

  Set xml = Server.CreateObject("MSXML2.ServerXMLHTTP.3.0")



xml.Open "POST", URL, False

  xml.setRequestHeader "Content-Type",

"application/x-www-form-urlencoded"

  xml.Send Data

  If xml.readyState <> 4

then

    xml.waitForResponse 10

  End If

  If Err.Number = 0  AND

http.Status = 200 then

    PostTo = xml.responseText

  else

    PostTo =

"Failed"

  End If

  Set xml = Nothing

End Function



PostData =

"loginName="&loginName&"&loginPassword="&loginPassword&"&ea="&ea&"&ic="&ic&"

&First_Name="&First_Name&"&Last_Name="&Last_Name&"&ea="&ea&"&Address_Line_1=

"&Address_Line_1&"&Address_Line_2="&Address_Line_2&"&City="&City&"&State="&S

tate&"&Postal_Code="&Postal_Code&"&Home_Phone="&Home_Phone&""

rslt =

PostTo(PostData,"http://ccprod.roving.com/roving/wdk/API_AddSiteVisitor.jsp?

")

   

response.redirect "poll.asp"



%>

[DaveBerard]

For anyone looking for follow up on this thread, investigation lead us to believe that most of the people who took the pole were already members of the list and thus did not become new members but were instead updated.