W h a t ' s   N e w :

Welcome to the What's New Section of this site. All of the resources listed below have been added or Updated in the last seven days. The most recent additions are listed first, simply click on the link to visit the resource.

<% '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 'response.write dDate 'response.write "
" dDate = DateAdd( "d", -15, dDate ) 'response.write dDate 'response.write "
" dDate = DateToStr(dDate) 'response.write 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 ' response.write SQL ' response.write "
" objRec2.Open SQL, my_Conn, 3, 3 %> <% DO UNTIL objRec2.EOF %> <% If objRec2("Votes") <> "0" then Rate = round(objRec2("Score")/objRec2("Votes")) If Rate = 1 then Rating = "Very Poor" ElseIf Rate = 2 then Rating = "Poor" ElseIf Rate = 3 then Rating = "Okay" ElseIf Rate = 4 then Rating = "Average" ElseIf Rate = 5 then Rating = "Very Good" Else Rating = "Excellent" End If Else Rating = "Not Rated" End If %> <% If mLev >= 3 Then %> <% End If %>

.gif" border="0" valign="middle"> new.gif border="0"> &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;"><%=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;">Rate It
<%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"> <%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%><%=formatStr(objRec2("LinkDesc"))%>
<% If objRec2("Forum_Topic") <> "" Then %> <% End If %> Added: <%=ChkDate(objRec2("Added"))%>    Hits: <%=objRec2("Hits")%>    Votes: <%=objRec2("Votes")%>   Rating: <%=Rating%> ">Click To Discuss This Resource
| &category=<%=objRec2("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 %> <% '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%>

V a l i d a t e  N e w   R e s o u r c e s

')">A d d  N e w   C a t e g o r y

&cattitle=<%=Request.QueryString("cattitle")%>')">S u b m i t   A   R e s o u r c e

W h a t s   N e w

<% End If %>