<%
'connection objects
Set conn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("../data/directory.mdb")
dim sql
dim servmsg
'get category
if Request("Add") = "1" then
if Request("Title") & "x" = "x" then
servmsg = "Must Enter Title "
end if
if Request("Url") & "x" = "x" then
servmsg = servmsg & "Must Enter Url "
end if
if Request("Description") & "x" = "x" then
servmsg = servmsg & "Must Enter Description "
end if
if Request("CategoryID") & "x" = "x" then
servmsg = servmsg & "Must Enter ID "
end if
if servmsg & "x" = "x" then
sql = "Select * From Links;"
rs.open sql, conn, 1, 2, 1
rs.addnew
rs("Title") = Request("Title")
rs("URL") = Request("URL")
rs("Description") = Request("Description")
rs("CategoryID") = Request("CategoryID")
rs("ContactName") = Request("ContactName")
rs("ContactEmail") = Request("ContactEmail")
rs("ReciprocalLink") = Request("ReciprocalLink")
rs("Active") = false
rs.update
rs.close
responcestring = ""
%>
<%= responcestring %>
<%
end if
end if
%>
<%
combobox = ""
%>
