quote:

---

1) Is there / or will there be, a way of automatically sending a message from the Admin ID when someone joins the forum (similar to a welcome email if you will...)
2) How can I add the option to send a PM to a user from the Active_Users page on my forum.
Once again, great mod, and keep up the good work...

---

quote:

---

Yes, but I don't have either of those features yet. I searched and couldn't find anything on PM Save.

---

<!--#INCLUDE FILE="config.asp"-->
<!--#INCLUDE FILE="inc_sha256.asp"-->
<!--#INCLUDE FILE="inc_header.asp" -->
<!--#INCLUDE FILE="inc_func_admin.asp" -->
<!--#INCLUDE FILE="inc_func_secure.asp" -->
<!--#INCLUDE FILE="inc_func_common.asp" -->

<%

if Session(strCookieURL & "Approval") <> "15916941253" then
	scriptname = split(request.servervariables("SCRIPT_NAME"),"/")
	Response.Redirect "admin_login.asp?target=" & scriptname(ubound(scriptname))
end if


Response.Write	"      <table border=""0"" width=""100%"">" & vbNewLine & _
		"        <tr>" & vbNewLine & _
		"          <td width=""33%"" align=""left"" nowrap><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
		"          " & getCurrentIcon(strIconFolderOpen,"","") & " <a href=""default.asp"">All Forums</a><br />" & vbNewLine & _
		"          " & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpen,"","") & " <a href=""admin_home.asp"">Admin Section</a><br />" & vbNewLine & _
		"          " & getCurrentIcon(strIconBlank,"","") & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpenTopic,"","") & " Private Messenging<br /></font></td>" & vbNewLine & _
		"        </tr>" & vbNewLine & _
		"      </table>" & vbNewLine 

dim mmid
dim id
dim flag
flag=0
mmid=request("mid")

if(mmid ="")then
mmid=0
end if

strSql = "delete * from forum_pm where M_ID="&mmid&" "
my_Conn.Execute(strSql)



			strSql = "select * from forum_pm "
			Set rsMessage = my_Conn.Execute(strSql)

response.write("<BR><BR><B>")
if rsMessage.EOF or rsMessage.BOF then
response.write("There are no private messages in the forum")
flag=1
end if
response.write("<BR>")


do Until rsMessage.EOF
strFromMemberName = getMemberName(rsMessage("M_FROM"))
tomember = getMemberName(rsMessage("M_TO"))
strDateTime = rsMessage("M_SENT")
subject=rsMessage("M_SUBJECT")
message=rsMessage("M_MESSAGE")
read=rsMessage("m_read")
id=rsMessage("M_ID")

if(read=0) then

response.write("<B>")
end if
response.write ("From  "&strFromMemberName)
response.write ("<BR>To    "&tomember)
response.write  "<BR>Date "&chkdate(strDateTime, " : " ,true)
response.write ("<BR>")
response.write("Subject : "&subject)
response.write("<BR>")
response.write("message: "&message)
response.write("<BR><B><a href=""admin_viewpm.asp?mid="&id&""">Delete</a><br>")
response.write("<BR><BR><BR><BR>")


rsmessage.movenext
loop

if(flag=0) then
response.write("<BR>Total number of PM sent using the forum so far = "&id)
end if

writefooter			
%>

quote:

---

Originally posted by pknaz

First of all, i love this MOD. There is only one thing that bothers me cosmetically though. the "Private Messages" heading under "statistics" should be one cell to the left. I think it could also have the option to make it a separate table rather then part of the statistics.
Otherwise very useful mod! :)

Cheers

---