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.
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:
I think the part in red maybe the problem but just need a bit of help please
Dave
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
نوشته شده در
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
نوشته شده در
Thanks Carefree, works like a charm.
نوشته شده در
You're welcome.
نوشته شده در
Ohhhh, I am Sooo glad I found this!
Now, could someone just tell me WHERE this code goes?
Now, could someone just tell me WHERE this code goes?
نوشته شده در
Anywhere you want the link to appear. You can include it in "admin_home.asp" or "inc_header.asp", etc.
"admin_home.asp"
"inc_header.asp"
"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