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

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

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

<%

strEditLink = "UPDATE tblLinks SET LinkText = '" & Request("LinkText") & "', LinkHref = '" & Request("LinkHref") & "', LinkDesc = '" & Request("LinkDesc") & "', LinkCategoryID = " & Request("LinkCategoryID") & " WHERE LinkID = " & Request("LID") & ""
'Response.Write(strAddNews)
oConn.Execute(strEditLink)
	
Response.Redirect("editLinks.asp?MSG=LINKPOSTED")
%>