quote:

---

I was looking back thru the posts on this topic and I see someone else mentioned the problem with codes appearing in the message that gets sent to subscribers.

Perhaps if we simply left out the content of the message and send the subscriber a note with:

---

  strMessage = strMessage & url ' & vbCrLf & vbCrLf & txtMessage & vbCrLf

quote:

---

Here's my code for changing the CDONTS to send to recipients using the BCC property. All seems to be working well!

---

This method seems to be working fine for me too. I'll consider that a success. Well at least until I get 100+ subscribers! Then I may have to review the situation.

quote:

---

I have a question about the possibility of hiding the subsrcription checkboxes in the default.asp page by simply preceeding the bits of code with either: if mLev = 3 (for moderators) or if mLev = 4 (for administrators).

---

'#################### Email Subscription MOD, start added code ###################
memberId = 0
if strDBNTUserName <> "" then
    memberId = getMemberID(strDBNTUserName)
end if
showCatForumSubscr = False
colSpan4 = 4
colSpan5 = 5
colSpan6 = 6
colSpan7 = 7
if CatForumSubscrIsOn() And mlev<>0 then
    showCatForumSubscr = True
    colSpan4 = 5
    colSpan5 = 6
    colSpan6 = 7
    colSpan7 = 8
end if
'################################ End added code #################################

<%'#################### Email Subscription MOD, start added code ###################%>
<form method=post action="nothing.asp" name="dummyForm">
<% if mlev<>0 and AllSubscrIsOn() then %>
<table border="0" width="95%" cellspacing="0" cellpadding="0" align="center">
  <tr>
    <td align="center" nowrap>
    <font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">
    <input type=checkbox <%=AllCheckboxStr()%> onClick="if(this.checked) openWindow('pop_subscribe.asp?MEMBER_ID=<%=memberId%>&TOPIC_ID=0&FORUM_ID=0&CAT_ID=0&SUBJECT=Everything&SUBSCR=1'); else openWindow('pop_subscribe.asp?MEMBER_ID=<%=memberId%>&TOPIC_ID=0&FORUM_ID=0&CAT_ID=0&SUBJECT=Everything&SUBSCR=0');">
    Subscribe to everything
    </font>
    </td>
  </tr>
</table>
<% end if %>
<%'################################ End added code #################################%>

'#################### Email Subscription MOD, start added code ###################
memberId = 0
if STRdbntUserName <> "" then
    memberId = getMemberID(STRdbntUserName)
end if
strSql = "SELECT * FROM " & strTablePrefix & "SUBSCRIPTIONS WHERE MEMBER_ID = -4"
strSql = strSql & " AND FORUM_ID = " & Request.QueryString("FORUM_ID")
set rsSubscr = my_conn.Execute (strSql)
showSubscr = True
if mlev=0 or rsSubscr.BOF or rsSubscr.EOF then
	showSubscr = False
end if
rsSubscr.close
set rsSubscr = nothing
'################################ End added code #################################

'#################### Email Subscription MOD, start added code ###################
memberId = 0
if STRdbntUserName <> "" then
    memberId = getMemberID(STRdbntUserName)
end if
showSubscr = False
if mlev=3 or mlev=4 then
	strSql = "SELECT * FROM " & strTablePrefix & "SUBSCRIPTIONS WHERE MEMBER_ID = -4"
	strSql = strSql & " AND FORUM_ID = " & Request.QueryString("FORUM_ID")
	set rsSubscr = my_conn.Execute (strSql)
	if not(rsSubscr.BOF or rsSubscr.EOF) then
		showSubscr = True
	end if
	rsSubscr.close
	set rsSubscr = nothing
end if
'################################ End added code #################################

' Add/remove subscription
if not(mlev=3 or mlev=4) then
	strHeader = "Error"
	strMessage = "You are not allowed to subscribe."
elseif Request.QueryString("SUBSCR") = 1 then
	strSql = "INSERT INTO " & strTablePrefix & "SUBSCRIPTIONS "
	strSql = strSql & "(MEMBER_ID, TOPIC_ID, FORUM_ID, CAT_ID) "
	strSql = strSql & "VALUES (" & memberId & "," & topicId & "," & forumId & "," & catId & ")"
	my_conn.Execute (strSql)
	strHeader = "Subscribe"
	strMessage = "You are now subscribing to:<br><b>" & subject & "</b>"
else
	strSql = "DELETE FROM " & strTablePrefix & "SUBSCRIPTIONS WHERE "
	strSql = strSql & "MEMBER_ID=" & memberId & " AND TOPIC_ID=" & topicId
	strSql = strSql & " AND FORUM_ID=" & forumId & " AND CAT_ID=" & catId
	my_conn.Execute (strSql)
	strHeader = "Terminate Subscription"
	strMessage = "You are no longer subscribing to:<br><b>" & subject & "</b>"
end if

quote:

---

Is there a way to find out which members are subscribed to which categories or forums?

Long term it would be nice to have a "Subscribed To" section in the user's profile, showing what they are subscribed to.

---

quote:

---

I figured out that there is no need for re-design. You can split the string strRecipients in inc_mail.asp like this:

arrayStr = Split(strRecipients, ";", -1, vbTextCompare)
For Each emailStr in arrayStr
objNewMail.AddRecipient emailStr
Next

In this way, we will call objNewMail.AddRecipient several times with just one email address at a time.

---

Mailer.AddBCC "name3", "address3"

arrayStr = Split(strRecipients, ";", -1, vbTextCompare)
For Each emailStr in arrayStr
   objNewMail.AddBCC emailStr
Next

quote:

---

quote:

---

I figured out that there is no need for re-design. You can split the string strRecipients in inc_mail.asp like this:

arrayStr = Split(strRecipients, ";", -1, vbTextCompare)
For Each emailStr in arrayStr
objNewMail.AddRecipient emailStr
Next

In this way, we will call objNewMail.AddRecipient several times with just one email address at a time.

---

This seems to work great for JMail, but where I'm still struggling with ASPMail where there are two component parameters:

objNewMail.AddRecipient strRecipientsName, strRecipients

Setting the Email Addresses Per Message = 1 works, but it also takes about 35 seconds to post a message when there about 80 folks who "Subscribe To Everything" in my little forum.

Any help by anyone would be appreciated.

Terry Pochert
info@qmediagroup.com

---

quote:

---

This seems to work great for JMail, but where I'm still struggling with ASPMail where there are two component parameters:

---

case "aspmail"
   Set objNewMail = Server.CreateObject("SMTPsvg.Mailer")
   objNewMail.FromName = strFromName
   objNewMail.FromAddress = strSender
   objNewMail.RemoteHost = strMailServer
   arrayStr = Split(strRecipients, ";", -1, vbTextCompare)
   For Each emailStr in arrayStr
      objNewMail.AddRecipient "", emailStr
   Next
   objNewMail.Subject = strSubject
   objNewMail.BodyText = strMessage

quote:

---

Can you help me I would like that when people register to the form they are automatically made a subscriber to a certain topic?.

---

docount
strSql = "SELECT MEMBER_ID FROM " & strMemberTablePrefix & "MEMBERS "
strSql = strSql & " WHERE M_EMAIL = '" & Trim(Request.Form("Email")) &"'"
set rs = my_Conn.Execute (strSql)
Subscribe rs("MEMBER_ID"), x, y, z 'Replace x, y and z with topic-ID, forum-ID and category-ID
rs.close
set rs = nothing
regHomepage = ""

sub Subscribe memberId, topicId, forumId, catId
	strSql = "INSERT INTO " & strTablePrefix & "SUBSCRIPTIONS "
	strSql = strSql & "(MEMBER_ID, TOPIC_ID, FORUM_ID, CAT_ID) "
	strSql = strSql & "VALUES (" & memberId & "," & topicId & "," & forumId & "," & catId & ")"
	my_conn.Execute (strSql)
end sub

Subscribe rs("MEMBER_ID"), 0, 2, 1

quote:

---

quote:

---

Can you help me I would like that when people register to the form they are automatically made a subscriber to a certain topic?.

---

This is a quick-and-dirty fix. I didn't try this code myself, but here it goes. At around line 285 in register.asp, insert this:

docount
strSql = "SELECT MEMBER_ID FROM " & strMemberTablePrefix & "MEMBERS "
strSql = strSql & " WHERE M_EMAIL = '" & Trim(Request.Form("Email")) &"'"
set rs = my_Conn.Execute (strSql)
Subscribe rs("MEMBER_ID"), x, y, z 'Replace x, y and z with topic-ID, forum-ID and category-ID
rs.close
set rs = nothing
regHomepage = ""

At the end of register.asp, where the declaration of the function docount is located, insert this:

sub Subscribe memberId, topicId, forumId, catId
	strSql = "INSERT INTO " & strTablePrefix & "SUBSCRIPTIONS "
	strSql = strSql & "(MEMBER_ID, TOPIC_ID, FORUM_ID, CAT_ID) "
	strSql = strSql & "VALUES (" & memberId & "," & topicId & "," & forumId & "," & catId & ")"
	my_conn.Execute (strSql)
end sub

Replace x with topic-ID, y with forum-ID and z with category-ID. If you want the user to subscribe to a forum, set topic-ID to 0. If you want the user to subscribe to a category, set topic-ID and to forum-ID to 0. You can add several calls to the function Subscribe, if you want the user to have many subscriptions.

Example: Let the user be subscribed to the forum with ID 2 in category with ID 1, then use x, y and z like this:

Subscribe rs("MEMBER_ID"), 0, 2, 1

NOTE: All this is a hard coded solution and not so flexible.

-Anders M

---

sub Subscribe (memberId, topicId, forumId, catId)
   strSql = "INSERT INTO " & strTablePrefix & "SUBSCRIPTIONS "
   strSql = strSql & "(MEMBER_ID, TOPIC_ID, FORUM_ID, CAT_ID) "
   strSql = strSql & "VALUES (" & memberId & "," & topicId & "," & forumId & "," & catId & ")"
   my_conn.Execute (strSql)
end sub

<td bgColor="<% =strPopUpTableColor %>" align="right"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="red">
 <b><i><%=rsCat("CAT_NAME")%>:</i></b> </font></td>

<td bgColor="<% =strPopUpTableColor %>" align="right"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="navy">
 <b><i><%=rsForum("F_SUBJECT")%></i> Forum:</b> </font></td>