<% root="../" id = request("id") if request.form = "" then if id <> "" then 'Get existing data sqltext = "SELECT * FROM Links WHERE id = " & id rs.open sqltext,conn,2,2 if not rs.bof then Title = trim(rs("Title")) url = trim(rs("url")) CategoryId = rs("CategoryId") * 1 end if rs.close end if 'Build Category List sqltext = "SELECT * FROM LinkCategories ORDER BY CatName" rs.open sqltext,conn,2,2 if not rs.bof then Do While not rs.eof if CategoryId = rs("id") * 1 then selected = " selected" else selected = "" end if CatList = CatList & "" & trim(rs("CatName")) rs.MoveNext Loop end if rs.close else Title = request("Title") url = request("url") 'Update/Insert Message = "Error Processing request" if id <> "" then sqltext = "SELECT * FROM Links WHERE ID = " & id rs.Open sqltext, Conn,2,2 else sqltext = "SELECT * FROM Links" rs.open sqltext,conn,2,2 rs.AddNew end if rs("Title") = Title rs("url") = url rs("CategoryId") = request("CategoryId") rs.Update rs.close response.redirect "index.asp" end if Conn.close %> Morris Pickering & Sanner - Link Creator

---

   Links Creator

---

<%= Message %>

Title
url
Category	<%= CatList %>