<% function SendGroupNotifications(ByRef pobjCon, ByVal pintMessageID, ByVal pintGroupID, ByVal pintAuthorID) dim objRs, strSender, strSenderName, strOrganization, strSubject, strRemotehost, strMessage if Application(cLICENSE_ID & "cSEND_EMAILS") then 'prepare message strMessage = STR_EMAIL_NOTIFICATION_BODY1 & " " & ForumLocation() & vbNewline & vbNewline & _ STR_EMAIL_NOTIFICATION_BODY2 & " """ & lookup(pobjCon, "subject", "forumMessages", "ID", pintMessageID) & """ " & STR_EMAIL_NOTIFICATION_BODY3 & " " & vbNewline & _ ForumLocation() & "default.asp?m=" & pintMessageID & vbNewLine & vbNewLine & vbNewline & _ STR_EMAIL_NOTIFICATION_BODY4 & " " & vbNewline & _ ForumLocation() & "sg.asp?sg=" & pintGroupID & vbNewLine strSender = Application(cLICENSE_ID & "cSENDER") strSenderName = Application(cLICENSE_ID & "cSENDER_NAME") strSubject = STR_EMAIL_NOTIFICATION_SUBJECT strOrganization = Application(cLICENSE_ID & "cORGANIZATION") strRemotehost = Application(cLICENSE_ID & "cREMOTEHOST") set objRs = ListSubscribersForGroup(pobjCon, pintGroupID, pintAuthorID) 'send emails call SendEmails(objRs, strMessage, strSender, strSenderName, strSubject, strOrganization, strRemotehost) objRs.close set objRs = nothing end if end function %>