<% response.write""& vbNewLine & _ " "& vbNewLine & _ " "& vbNewLine & _ " "& vbNewLine & _ "
"& vbNewLine & _ " " & getCurrentIcon(strIconFolderOpen,"","align=""absmiddle""") & " " & fLang(strLangAll_Forums00010) & "
"& vbNewLine & _ " " & getCurrentSkinIcon(strIconBar,"","align=""absmiddle""") & getCurrentIcon(strIconFolderOpenTopic,"","align=""absmiddle""") & " " & fLang(strLangInc_Mainmenu00390) & "
"& vbNewLine & _ "
" & vbNewLine %> <% call DoMenu %>
<%= fLang(strLangLinks00510) %>
<%= fLang(strLangLinks00520) %>

<% 'Create a recordset with the top level categories in it. Set objRec2 = CreateObject("ADODB.Recordset") Set objRec2.ActiveConnection = my_Conn objRec2.LockType = 2 lastDate = DateToStr(DateAdd("d",-8,strForumTimeAdjust)) dDate = strForumTimeAdjust dDate = DateAdd( "d", -15, dDate ) dDate = DateToStr(dDate) Set objRec2 = Server.CreateObject ("ADODB.Recordset") If mLev = 4 Then SQL = "SELECT * FROM " & strTablePrefix & "Site_Links WHERE Added > '" & lastdate & "' ORDER BY Added DESC;" Else SQL = "SELECT * FROM " & strTablePrefix & "Site_Links WHERE Added > '" & lastdate & "' AND Validated = 1 ORDER BY Added DESC;" End If objRec2.Open SQL, my_Conn, 3, 3 %> <% DO UNTIL objRec2.EOF %> <% LinkDesc = objrec2("LinkDesc") If objRec2("Votes") <> "0" then Rate = round(objRec2("Score")/objRec2("Votes")) If Rate = 1 then Rating = fLang(strLangLinks00330) ElseIf Rate = 2 then Rating = fLang(strLangLinks00340) ElseIf Rate = 3 then Rating = fLang(strLangLinks00530) ElseIf Rate = 4 then Rating = fLang(strLangLinks00350) ElseIf Rate = 5 then Rating = fLang(strLangLinks00370) Else Rating = fLang(strLangLinks00380) End If Else Rating = fLang(strLangLinks00240) End If %> <% If mLev >= 3 Then %> <% End If %>
 .gif" border="0" valign="middle">  &linkname=&catid=<%=objRec2("CatID")%>&cattitle=<%=Server.URLEncode(CatTitle)%>&area=<%=areanum%>&refID=<%=refID%>"><%=objRec2("Name") %>  <% If mLev >= 2 Then %>
  <%=objRec2("URL") %> <% End If %>
')" onmouseover="javascript:self.status='Rate This Resource';return true;" onmouseout="javascript:self.status='';return true;"><%= fLang(strLangLinks00390) %> 
<%If objRec2("IMG") <> "" and objRec2("LINKTYPE") <> 3 Then %> <%End If %>
&linkname=<%=Server.URLEncode(objRec2("Name"))%>&catid=<%=objRec2("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"> <%If objRec2("Author") <> "" Then%>  <%= fLang(strLangAuthor00010) %>: <%=objRec2("Author")%>   <%End If%> <%If objRec2("Price") <> "0" Then%> <%= fLang(strLangLinks00540) %> <%= intCurrencySymbol %><%=objRec2("Price")%><%End If%> <% If objRec2("Price") <> "0" OR objRec2("Author") <> "" Then%>
<%End If FirstPara= split(LinkDesc,"[content]") t_Message= FirstPara(0) %> <%=formatStr(t_Message)%>
<% If objRec2("Forum_Topic") <> "" Then %> <% End If %>
 <%= fLang(strLangLinks00020) %> <%=ChkDate(objRec2("Added"),"",false)%>    <%= fLang(strLangLinks00010) %> <%=objRec2("Hits")%>    <%= fLang(strLangLinks00030) %> <%=objRec2("Votes")%>   <%= fLang(strLangLinks00040) %> <%=Rating%> "><%= fLang(strLangLinks00150) %>
| &link=<%=objRec2("LinkID")%>&category=<%=objRec2("CatID") %>"><%= fLang(strLangLinks00160) %> | <% If mLev = 4 Then %> ')"><%= fLang(strLangLinks00170) %> | <% If objRec2("Validated") <> 1 Then %> ')"> <%= fLang(strLangLinks00180) %> | <% End If %> <% End If %>
 
<% 'Move to the next record in the record set. objRec2.MoveNext LOOP %> <% 'Time to clean up objRec2.Close Set objRec2 = Nothing %>
<% If Request.Cookies(strUniqueID & "User")("Name") <> "" Then 'ahh, so sorry, members only... %> <% If mLev >= 3 Then If mLev = 4 Then %> <% End If End If if cint(strLinkAddPermission) <= mlev then%> <% End If %>
<%= fLang(strLangLinks00550) %>
')"><%= fLang(strLangLinks00560) %>
<%= fLang(strLangLinks01340) %>
&cattitle=<%=Request.QueryString("cattitle")%>"><%= fLang(strLangLinks00570) %>
<% End If %>
<% WriteFooter Response.End %>