quote:

---

Originally posted by DavidRhodes

Will be doing a mod to integrate the Portal Mod with Links Manager 3 next, any suggestions, was thinking about top 5 most popular links

---

		if strCMSEnableSearch = "1" then

		call DisplayLinks(strCMSRightNavWidth)
		if strCMSEnableSearch = "1" then

sub StartTable(byval Width, byval Heading)

sub DisplayLinks(byval Width)

	'Integrated with Links Manager 3 (Original code by OneWayMule)
	dim strSql, rsPopular, strLink, intCount, strLMOrderBy, strLMTitle
	
	'Number of links to appear
	intCount = 5
	'#####################################################################
	'Un-comment a group of 2 of the following 6 variables
	'######################################################################
	strLMTitle = "Latest Links"
	strLMOrderBy = "SHOW=1 ORDER BY POST_DATE DESC, NAME DESC"
	'######################################################################
	'strLMTitle = "Most Popular Links"
	'strLMOrderBy = "SHOW=1 AND HIT>0 ORDER BY HIT DESC"	
	'######################################################################
	'strLMTitle = "Top Rated Links"
	'strLMOrderBy = "SHOW=1 AND VOTES>0 ORDER BY RATING DESC, NAME DESC"
	'######################################################################	

	call StartTable(Width, strLMTitle)

	strSql = "SELECT LINK_ID, NAME, URL FROM " & strTablePrefix & "LINKS WHERE " & strLMOrderBy
    
	Set rsPopular = my_conn.Execute(TopSQL(strSql, intCount))
	If NOT rsPopular.EOF Then
		Do While NOT rsPopular.EOF
		
			strLink = "              <a href=""links.asp?action=goto&id=" & rsPopular("LINK_ID") & """ "
			If strLMOpenMethod = "1" Then
				strLink = strLink & " target=""_blank"""
			End If
			strLink = strLink & ">" & rsPopular("NAME") & "</a><br />" & vbNewLine

			Response.Write(strLink)
			
			rsPopular.MoveNext
		Loop
	End If
	rsPopular.Close
	Set rsPopular = Nothing	
		
	call EndTable()

end sub