<%@ LANGUAGE="VBSCRIPT"%> <%Response.Buffer = True%> <% ' Check User Level CategoryID = Request.QueryString("CatID") mLev = cint(chkUser(strDBNTUserName, Request.Cookies(strUniqueID & "User")("Pword"))) %>

<% If Len(Request.Form("Cancel")) > 0 Then %>


Cancelled!

<% Else If Len(CategoryID) = 0 Then %>

<% strSQL = "SELECT CATID, TITLE FROM " & strTablePrefix & "Site_CATS WHERE PARENTID > 0 ORDER BY PARENTID" set rs = my_conn.execute (strSQL)%> Select a category for your resource...

<% Else strSQL = "SELECT TITLE FROM " & strTablePrefix & "Site_Cats WHERE CATID = " & CategoryID set rsCatTitle = my_conn.execute(strSQL) if not rsCatTitle.eof then CatTitle = rsCatTitle("TITLE") else CatTitle = "Top Level Link" end if If Len(Request.Cookies(strUniqueID & "User")("Name")) = 0 Then %>


Sorry. You must be a Registered User and logged in to submit a new resource! Please Register and Login then try again.

<% Else If Len(Request.Form("Update")) > 0 Then response.write "
" datum = DateToStr(strForumTimeAdjust) Set rsLink = CreateObject("ADODB.Recordset") Set rsLink.ActiveConnection = my_Conn rsLink.LockType = 2 rsLink.Open(strTablePrefix & "Site_Links") rsLink.AddNew rsLink("Added") = datum rsLink("Hits") = 0 rsLink("Score") = 0 rsLink("Votes") = 0 rsLink("SubmittedBy") = Request.Form("MemberID") rsLink("CatID") = Request.Form("catid") rsLink("Name") = Request.Form("Name") rsLink("URL") = Request.Form("URL") rsLink("LinkType") = Request.Form("LinkType") rsLink("LinkDesc") = Request.Form("Desc") If Len(Request.Form("Author")) = 0 Then rsLink("Author") = Null Else rsLink("Author") = Request.Form("Author") End If If Len(Request.Form("ImageURL")) = 0 OR Request.Form ("ImageURL") = "http://" Then rsLink("IMG") = Null Else rsLink("IMG") = Request.Form("ImageURL") If Request.Form("IMG_Type") = "" Then rsLink("IMG_Type") = null Else rsLink("IMG_Type") = Request.Form("IMG_Type") End If End If If Len(Request.Form("Forum_Topic")) = 0 Then rsLink("Forum_Topic") = Null Else rsLink("Forum_Topic") = Request.Form("Forum_Topic") End If If mLev = 4 Then rsLink("Validated") = 1 Else rsLink("Validated") = 0 'Notify the Administrators '------------------------------------------------------------ dim cMsg dim cSubject cSubject = "New Resource" cMsg = "A new resource has been added. check it out and validated it, that is if other admin did not beat you to it" call SendPMToModerators(cSubject, cMsg, -1 , -1, true) '------------------------------------------------------------- End If rsLink.Update rsLink.Close Set rsLink = Nothing %>

Your Link Has Been Submitted!
It will be reviewed and will be visible in the directory ASAP.

<% Else %>
Add Your Resource

Current Category = <%=CatTitle%>
Please make sure that you have chosen the correct category for your resource! If this is not the best category for your link it will be moved.
* Note Your resource will not be visible until it has been reviewed by our editors, you will be contacted if there is a problem.
<% If mLev >= 3 Then %> <% Else %> <% End If %>
Link Name:
URL:
Author: ">
Image URL:
Image Type:
Description:
Link Type
Related Forum Topic ID
  
"> "> ">
<% End If End If End If End If %>