<% Areanum = Request.QueryString("area") '## Function to display new icon %> <% Public Sub DisplayNews If Request.QueryString("catid") = "" then CatID = 0 CatTitle = SiteName Else CatID = Request.QueryString("catid") CatTitle = Request.QueryString("cattitle") End If 'Create a recordset with the top level categories in it. Set objRec2 = CreateObject("ADODB.Recordset") Set objRec2.ActiveConnection = my_Conn objRec2.LockType = 2 If mLev = 4 Then SQL = "SELECT VOTES,SCORE,ADDED,NAME,URL,AUTHOR,PRICE,LINKID,IMG,FORUM_TOPIC,CATID,VALIDATED,LINKDESC FROM " & strTablePrefix & "Site_Links WHERE LinkType = " & areanum & " ORDER BY Added DESC;" Else SQL = "SELECT VOTES,SCORE,ADDED,NAME,URL,AUTHOR,PRICE,LINKID,IMG,FORUM_TOPIC,CATID,VALIDATED,LINKDESC FROM " & strTablePrefix & "Site_Links WHERE LinkType = " & areanum & " AND Validated = 1 ORDER BY Added DESC;" End If objRec2.Open SQL ,my_Conn if objRec2.EOF then ' do Nothing else %> <% DO UNTIL objRec2.EOF LinkDesc = objRec2("LinkDesc") If objRec2("Votes") <> "0" then Rate = round(objRec2("Score")/objRec2("Votes")) star = 0 Rating = "" DO UNTIL star = Rate Rating = Rating & "" star = star +1 Loop Else Rating = "Not Rated" End If %>

NEWS

<% If objRec2("Forum_Topic") <> "" Then %> <% End If %> <% If mLev >= 3 Then %> <% End If %> <%=ChkDate(objRec2("Added"))%> <%=isNew(objRec2("Added"))%> <%=objRec2("Name")%>  <% If mLev >= 2 Then %>  <%=objRec2("URL") %> <% End If %> <%If objRec2("Author") <> "" Then%>Author: <%=objRec2("Author")%>   <%End If%> <%If objRec2("Price") <> 0 Then%> Price: <%= strCurrencySymbol %><%=objRec2("Price")%><%End If%> <% If objRec2("Price") <> 0 OR objRec2("Author") <> "" Then%> <%End If%> <% if objRec2("IMG") <> "" Then %> <%End If%> &linkname=<%=Server.URLEncode(objRec2("Name"))%>&catid=<%=CatID%>&cattitle=<%=Server.URLEncode(CatTitle)%>&area=<%=areanum%>&refID=<%=refID%>" onmouseover="javascript:self.status='<%=objRec2("Name")%>';return true;" onmouseout="javascript:self.status='';return true;">" border="0"> <%=chkString(LinkDesc, "message")%> ">Click To Discuss This Resource | &category=<%=CatID%>')">Edit Link | <% If mLev = 4 Then %> ')">Delete Link | <% If objRec2("Validated") <> 1 Then %> ')"> Validate Link | <% End If %> <% End If %> <% 'Move to the next record in the record set. objRec2.MoveNext LOOP %>

<% end if %> <% 'Time to clean up objRec2.Close Set objRec2 = Nothing End Sub 'Displaylinks %> <% Public Sub DisplayNewsDetail If Request.QueryString("catid") = "" then CatID = 0 CatTitle = SiteName Else CatID = Request.QueryString("catid") CatTitle = Request.QueryString("cattitle") End If 'Create a recordset with the top level categories in it. Set objRec2 = CreateObject("ADODB.Recordset") Set objRec2.ActiveConnection = my_Conn objRec2.LockType = 2 If mLev = 4 Then SQL = "SELECT VOTES,SCORE,ADDED,NAME,URL,AUTHOR,PRICE,LINKID,IMG,FORUM_TOPIC,CATID,VALIDATED,LINKDESC FROM " & strTablePrefix & "Site_Links WHERE LinkID = " & Request.QueryString("linkid") & " ORDER BY Added DESC;" Else SQL = "SELECT VOTES,SCORE,ADDED,NAME,URL,AUTHOR,PRICE,LINKID,IMG,FORUM_TOPIC,CATID,VALIDATED,LINKDESC FROM " & strTablePrefix & "Site_Links WHERE LinkID = " & Request.QueryString("linkid") & " AND Validated = 1 ORDER BY Added DESC;" End If objRec2.Open SQL, my_Conn %> <% if objRec2.EOF then ' do Nothing else %> <% DO UNTIL objRec2.EOF LinkDesc = objRec2("LinkDesc") If objRec2("Votes") <> "0" then Rate = round(objRec2("Score")/objRec2("Votes")) star = 0 Rating = "" DO UNTIL star = Rate Rating = Rating & "" star = star +1 Loop Else Rating = "Not Rated" End If %>

go back ...

NEWS

<% If objRec2("Forum_Topic") <> "" Then %> > <% End If %> <% If mLev >= 3 Then %> <% End If %> <%=ChkDate(objRec2("Added"))%> <%=isNew(objRec2("Added"))%> <%=objRec2("Name")%>  <% If mLev >= 2 Then %>  <%=objRec2("URL") %> <% End If %> <%If objRec2("Author") <> "" Then%>Author: <%=objRec2("Author")%>   <%End If%> <%If objRec2("Price") <> "0" Then%> Price: <%= strCurrencySymbol %><%=objRec2("Price")%><%End If%> <% If objRec2("Price") <> "0" OR objRec2("Author") <> "" Then%> <%End If%> <% if objRec2("IMG") <> "" Then %> <%End If%> &linkname=<%=Server.URLEncode(objRec2("Name"))%>&catid=<%=CatID%>&cattitle=<%=Server.URLEncode(CatTitle)%>&area=<%=areanum%>&refID=<%=refID%>" onmouseover="javascript:self.status='<%=objRec2("Name")%>';return true;" onmouseout="javascript:self.status='';return true;">" border="0"> <%=chkString(LinkDesc, "message")%> ">Click To Discuss This Resource | &category=<%=CatID%>')">Edit Link | <% If mLev = 4 Then %> ')">Delete Link | <% If objRec2("Validated") <> 1 Then %> ')"> Validate Link | <% End If %> <% End If %> <% 'Move to the next record in the record set. objRec2.MoveNext LOOP %>

<% end if %> <% 'Time to clean up objRec2.Close Set objRec2 = Nothing End Sub 'DisplayNewsDatail %> <% Public Sub DisplayTopNews If Request.QueryString("catid") = "" then CatID = 0 CatTitle = SiteName Else CatID = Request.QueryString("catid") CatTitle = Request.QueryString("cattitle") End If 'Create a recordset with the top level categories in it. Set objRec2 = CreateObject("ADODB.Recordset") Set objRec2.ActiveConnection = my_Conn objRec2.LockType = 2 If mLev = 4 Then if catid = 0 then 'display all NEWS SQL = "SELECT Top 3 VOTES,SCORE,ADDED,NAME,URL,AUTHOR,PRICE,LINKID,IMG,FORUM_TOPIC,CATID,VALIDATED,LINKDESC FROM " & strTablePrefix & "Site_Links WHERE LinkType = 1 ORDER BY Added DESC;" else 'display category related News SQL = "SELECT Top 3 VOTES,SCORE,ADDED,NAME,URL,AUTHOR,PRICE,LINKID,IMG,FORUM_TOPIC,CATID,VALIDATED,LINKDESC FROM " & strTablePrefix & "Site_Links WHERE CatID = " & CatID & " AND LinkType = 1 ORDER BY Added DESC;" end if Else if catid = 0 then 'display category related news NEWS SQL = "SELECT Top 3 VOTES,SCORE,ADDED,NAME,URL,AUTHOR,PRICE,LINKID,IMG,FORUM_TOPIC,CATID,VALIDATED,LINKDESC FROM " & strTablePrefix & "Site_Links WHERE LinkType = 1 AND Validated = 1 ORDER BY ADDED DESC;" else 'display category related News SQL = "SELECT Top 3 VOTES,SCORE,ADDED,NAME,URL,AUTHOR,PRICE,LINKID,IMG,FORUM_TOPIC,CATID,VALIDATED,LINKDESC FROM " & strTablePrefix & "Site_Links WHERE CatID = " & CatID & " AND LinkType = 1 AND Validated = 1 ORDER BY ADDED DESC;" end if End If objRec2.Open SQL, my_Conn, 3, 3 'objRec2.moveFirst if objRec2.EOF then ' do Nothing else %> <% DO UNTIL objRec2.EOF %> <%LinkDesc = objRec2("LinkDesc") If objRec2("Votes") <> "0" then Rate = round(objRec2("Score")/objRec2("Votes")) star = 0 Rating = "" DO UNTIL star = Rate Rating = Rating & "" star = star +1 Loop Else Rating = "Not Rated" End If %> <% LOOP %>

NEWS

<% If objRec2("Forum_Topic") <> "" Then %> <% End If %> <% If mLev >= 3 Then %> <% End If %> <% End If %> <% 'Move to the next record in the record set. objRec2.MoveNext %> <%datum = chkdate(objRec2("Added")) %> <%=datum%> <%=objRec2("Name") %> <% FirstPara= split(LinkDesc," ") if isArray(FirstPara) and ubound(FirstPara) >= 0 then t_Message= FirstPara(0) else T_Message = LinkDesc end if if len(LinkDesc) > len(t_Message) then T_Message = t_Message & " read entire message ..." end if %> <%=chkString(LinkDesc, "message")%> ">Click To Discuss This Resource | &category=<%=CatID%>')">Edit Link | <% If mLev = 4 Then %> ')">Delete Link | <% If objRec2("Validated") <> 1 Then %> ')"> Validate Link | <% End If %>

more News ...

<% end if %> <% 'Time to clean up objRec2.Close Set objRec2 = Nothing End Sub 'DisplayTopNews %>