Recipe book admin alert - Snitz™ Forums 2000

The Forum has been Updated

The code has been upgraded to the latest .NET core version. Please check instructions in the Community Announcements about migrating your account.

Recipe book admin alert - Posted 08 Jul 2010 02:14 (5527 Views)

thermal_seeker

Junior Member

Posts: 430

430

I have been trying to get an admin alert working so that an admin knows when there is a new recipe to approve.
so far I have:

Code:

 '#######    Begin my code changes for Recipe Book     #######
if mlev = 3 then
Response.Write "          <a href=""admin_recipe.asp?action=approve""" & dWStatus("Recipe To Approve...") & " tabindex=""-1""><acronym title=""Recipe To Approve..."">Recipe To Approve"
strSQL = "SELECT count(URL) FROM " & strTablePrefix & "RECIPE WHERE SHOW=0"
Set RScount = my_Conn.Execute(strSQL)
rcount1 = RScount(0)
RScount.Close
Set RScount = Nothing
if rcount1 > 0 then Response.Write "(<font color=""" & strActiveLinkColor & """><b>" & rcount1 & " New</b></font>) " & getCurrentIcon(strIconPMalert,"PM Alert","hspace=""0""")& vbNewline & _
      "          |" & vbNewline
end if

'#######    End my code changes for Recipe Book     #######

I think the part in red maybe the problem but just need a bit of help please

Dave

No good at coding, but I can plough a field !!

Posted 08 Jul 2010 03:24

Carefree

Advanced Member

Posts: 4224

4224

Try this:

Code:


if mlev => 3 then
	Response.Write "<a href=""admin_recipe.asp?action=approve""" & dWStatus("Recipe To Approve...") & " tabindex=""-1""><acronym title=""Recipe To Approve..."">Recipe To Approve"
	strSQL = "SELECT COUNT(URL) FROM " & strTablePrefix & "RECIPE WHERE SHOW=0"
	Set RScount = my_Conn.Execute(strSQL)
	if not RScount.EOF then
		rcount1 = RScount(0)
		RScount.Close
	end if
	Set RScount = Nothing
	if rcount1 > 0 then Response.Write "(<font color=""" & strActiveLinkColor & """><b>" & rcount1 & " New</b></font>) " & getCurrentIcon(strIconPMalert,"PM Alert","hspace=""0""")& vbNewline & _
		"          |" & vbNewline
	end if
end if

Posted 08 Jul 2010 05:02

thermal_seeker

Junior Member

Posts: 430

430

Thanks Carefree, works like a charm.

No good at coding, but I can plough a field !!

Posted 08 Jul 2010 13:43

Carefree

Advanced Member

Posts: 4224

4224

You're welcome.

Posted 17 Feb 2012 23:47

MaGraham

Senior Member

Posts: 1297

1297

Ohhhh, I am Sooo glad I found this!

Now, could someone just tell me WHERE this code goes?

"Do all the good you can, by all the means you can, in all the ways you can, at all the times you can, to all the people you can, as long as ever you can." - John Wesley

Posted 18 Feb 2012 13:15

Carefree

Advanced Member

Posts: 4224

4224

Anywhere you want the link to appear. You can include it in "admin_home.asp" or "inc_header.asp", etc.
"admin_home.asp"

Code:


Look for the following line (appx 151):

if strArchiveState = "1" then Response.Write("                <LI><span class=""spnMessageText""><a href=""admin_forums.asp"">Archive Forum Topics</a></span></LI>" & vbNewLine)

Above it, insert the following:


strSQL = "SELECT COUNT(URL) FROM " & strTablePrefix & "RECIPE WHERE SHOW=0"
Set RScount = my_Conn.Execute(strSQL)
if not RScount.EOF then
	rcount1 = RScount(0)
	RScount.Close
end if
Set RScount = Nothing
Response.Write	"                <LI><span class=""spnMessageText""><a href=""admin_recipe.asp?action=approve"">Approve Recipes "
if rcount1 > 0 then
	Response.Write	"(<font color=""" & strActiveLinkColor & """><b>" & rcount1 & " New</b></font>) "
end if
Response.Write	"</a></span></LI>"

"inc_header.asp"

Code:


Look for the following line (appx 495):

	' DEM --> End of Code added to show subscriptions if they exist

above it, insert the following:


if mlev => 3 then
	Response.Write	"          |" & vbNewline & _
		"<a href=""admin_recipe.asp?action=approve""" & dWStatus("Recipe To Approve...") & " tabindex=""-1""><acronym title=""Recipe To Approve..."">Recipe To Approve"
	strSQL = "SELECT COUNT(URL) FROM " & strTablePrefix & "RECIPE WHERE SHOW=0"
	Set RScount = my_Conn.Execute(strSQL)
	if not RScount.EOF then
		rcount1 = RScount(0)
		RScount.Close
	end if
	Set RScount = Nothing
	if rcount1 > 0 then 
		Response.Write	"(<font color=""" & strActiveLinkColor & """><b>" & rcount1 & " New</b></font>) "
	end if
	Response.Write	"</acronym></a>" & vbNewline
end if

Last edited by Carefree on 18 February 2012, 14:24