Recipe book admin alert

Snitz™ Forums 2000
https://forum.snitz.com/forumTopic/Posts/69633?pagenum=1
05 November 2025, 03:24

Topic

thermal_seeker
Recipe book admin alert
08 July 2010, 02:14


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

 

Replies ...

Carefree
08 July 2010, 03:24


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
thermal_seeker
08 July 2010, 05:02


Thanks Carefree, works like a charm.
Carefree
08 July 2010, 13:43


You're welcome.
MaGraham
17 February 2012, 23:47


Ohhhh, I am Sooo glad I found this!

Now, could someone just tell me WHERE this code goes? tongue
Carefree
18 February 2012, 13:15


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
MaGraham
25 February 2012, 22:33


Thank you, Carefree!! You are always so quick to reply!
Thank you, again!! :)


Carefree
06 July 2012, 06:05


Unfortunately, like the rest of the recipe book mod; it will not work on a MySQL database. The word "show" is restricted on MySQL and the database field must be renamed and all the software rewritten to reflect that change.
© 2000-2021 Snitz™ Communications