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" %>
Poll link- (not live)
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.
***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.
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"
%>
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.