<%@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 rsLinks, strGetLinks Dim rsLinkCategories, strGetLinkCategories %> <% Set rsLinkCategories = Server.CreateObject("ADODB.Recordset") strGetLinkCategories = "SELECT LinkCategoryID, LinkCategory FROM tblLinkCategory ORDER BY LinkCategoryID" rsLinkCategories.Open strGetLinkCategories, oConn, 3 Set rsLinks = Server.CreateObject("ADODB.Recordset") strGetLinks = "SELECT LinkID, LinkText, LinkHref, LinkDesc, LinkCategoryID FROM tblLinks WHERE LinkID = " & Request("LID") & "" Set rsLinks = oConn.Execute(strGetLinks) %>

Edit 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: " size="50" maxlength="255" ID="Text1">
Link: " maxlength="255" ID="Text2">
Description:
LinkCategory :