<%@language=vbscript%> <% Option Explicit Response.Expires = -1000 If isnull(Session("LoginID")) AND isempty(Session("LoginID")) Then Response.Redirect("default.asp?MSG=NOTLOGGED") End If Dim strGetLinkCategories, rsLinkCategories %> <% Set rsLinkCategories = Server.CreateObject("ADODB.Recordset") strGetLinkCategories = "SELECT LinkCategoryID, LinkCategory FROM tblLinkCategory ORDER BY LinkCategoryID" rsLinkCategories.Open strGetLinkCategories, oConn, 3 %>

Add Link
These links will appear on the links page of the Jericho site.
LinkText is the word or phrase you want to show up on the website. Location is the website where you want the link to go.

If you have any problems with this section, please contact Web Site Support.

<% If NOT isempty(Request("MSG")) OR isnull(Request("MSG")) Then %> <% End If %>
<% If Request("MSG") = "LINKPOSTED" Then %>

NOTE: Your link has been entered into the database

<% End If %>
Link Text :
Link:
Description:
Link Category :