<% 'Newsletter Manager Pro v.6.51 'Copyright 2006 DesignerFreeSolutions 'http://www.designerfreesolutions.com %> <% on error resume next Dim mySQL, rstemp, connTemp, pSubPassword pEmail = request.querystring ("subemail") message = request.querystring ("message") %> The Book Club in a Box - Price List
image Calling All Readers! image

The Bookclub-in-a-Box Newsletter Management Centre



<%=dictLanguage.Item(Session("language")&"_subscriptionsmanagement_2")%>
<%=dictLanguage.Item(Session("language")&"_subscriptionsmanagement_3")%>
<%=message%> 
<%=dictLanguage.Item(Session("language")&"_subscriptionsmanagement_4")%> <% if pDemoMode="-1" then %> <%else%> <%end if%>
<%=dictLanguage.Item(Session("language")&"_subscriptionsmanagement_17")%> <% if pDemoMode="-1" then %> <%else%> <%end if%>
">


<%=dictLanguage.Item(Session("language")&"_subscriptionsmanagement_10")%>
<%=dictLanguage.Item(Session("language")&"_subscriptionsmanagement_11")%>
<%=dictLanguage.Item(Session("language")&"_subscriptionsmanagement_4")%>
  ">


Home | Newsletter Home | Privacy
<% if request.querystring("emailreminder")<>"" then 'find password mySQL="SELECT idEmail, name, subPassword from subscribers WHERE email='"&pEmail&"'" call getfromDatabase(mySQL, rstemp, "showMeMySubscriptions") if rstemp.eof then pMessage = dictLanguage.Item(Session("language")&"_subscriptionsmanagement_21") else pidemail = rstemp("idEmail") pName = rstemp("name") pSubPassword = rstemp("subPassword") pBody = dictLanguage.Item(Session("language")&"_subscriptionsmanagement_16") &pSubPassword pSubject = dictLanguage.Item(Session("language")&"_subscriptionsmanagement_20") &pCompany pMessage = dictLanguage.Item(Session("language")&"_subscriptionsmanagement_22") call sendMail(pCompany, pcompanyemail, pName, pEmail, pSubject, pBody) end if response.redirect "showMeMySubscriptions.asp?subemail="&pEmail&"&message="&pMessage end if %>

image image