Diary Manager

<% if not Session("DiaryAdmin") then Response.Redirect("login.asp?go=diary_EditE.asp?" & Request.QueryString()) End If Response.ExpiresAbsolute = dateadd("d", -5, date()) Response.Expires = -10 set objCon= Server.CreateObject("ADODB.Connection") set objRs = Server.CreateObject("ADODB.Recordset") objCon.Open strCon SQL = "SELECT * FROM diary_categorys" objRs.Open SQL, objCon %> Diary Manager

Edit Diary Category

Add New Category| Back

Choose a Category to Edit

<% if objRs.BOF or objRs.EOF then Response.Write "" Else do until objRs.EOF Response.Write "" objRs.MoveNext loop End If Response.Write "

No Categorys Found

" Response.Write objRs("category") & "

" %>

<% on error resume next objRs.Close objCon.Close set objRs= nothing set objCon = nothing %>