<%@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 strLink
Dim Today
Today = Now()
%>

<!--#include virtual="/includes/vbsGlobals.asp"-->

<!--#include virtual="/includes/dbconn.asp"-->

<%

Dim strAddLink

strAddLink = "INSERT INTO tblLinks (LinkText, LinkHref, LinkCategoryID, LinkDesc) VALUES ('" & Replace(Request("LinkText"), "'", "''") & "', '" & Replace(Request("LinkHref"), "'", "''") & "', " & Request("LinkCategoryID") & ", '" & Replace(Request("LinkDesc"), "'", "''") & "')"
'esponse.Write(strAddNews)
oConn.Execute(strAddLink)
	
Response.Redirect("addLink.asp?MSG=LINKPOSTED")
%>