Snitz Forums 2000
Snitz Forums 2000
Home | Profile | Register | Active Topics | Members | Search | FAQ
 All Forums
 Snitz Forums 2000 MOD-Group
 MOD Add-On Forum (W/Code)
 Recipe book admin alert

Note: You must be registered in order to post a reply.
To register, click here. Registration is FREE!
Before posting, make sure you have read this topic!

Screensize:
UserName:
Password:
Format Mode:
Format: BoldItalicizedUnderlineStrikethrough Align LeftCenteredAlign Right Horizontal Rule Insert HyperlinkInsert EmailInsert Image Insert CodeInsert QuoteInsert List
   
Message:

* HTML is OFF
* Forum Code is ON
Smilies
Smile [:)] Big Smile [:D] Cool [8D] Blush [:I]
Tongue [:P] Evil [):] Wink [;)] Clown [:o)]
Black Eye [B)] Eight Ball [8] Frown [:(] Shy [8)]
Shocked [:0] Angry [:(!] Dead [xx(] Sleepy [|)]
Kisses [:X] Approve [^] Disapprove [V] Question [?]

 
Check here to subscribe to this topic.
   

T O P I C    R E V I E W
thermal_seeker Posted - 08 July 2010 : 02:14:20
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:

 '#######    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
7   L A T E S T    R E P L I E S    (Newest First)
Carefree Posted - 06 July 2012 : 06:05:50
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.
MaGraham Posted - 25 February 2012 : 22:33:01
Thank you, Carefree!! You are always so quick to reply!

Thank you, again!! :)


Carefree Posted - 18 February 2012 : 13:15:06
Anywhere you want the link to appear. You can include it in "admin_home.asp" or "inc_header.asp", etc.

"admin_home.asp"


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"


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 Posted - 17 February 2012 : 23:47:25
Ohhhh, I am Sooo glad I found this!

Now, could someone just tell me WHERE this code goes?
Carefree Posted - 08 July 2010 : 13:43:18
You're welcome.
thermal_seeker Posted - 08 July 2010 : 05:02:03
Thanks Carefree, works like a charm.
Carefree Posted - 08 July 2010 : 03:24:55
Try this:

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

Snitz Forums 2000 © 2000-2021 Snitz™ Communications Go To Top Of Page
This page was generated in 0.07 seconds. Powered By: Snitz Forums 2000 Version 3.4.07