<% Set db = Server.CreateObject("ADODB.Connection") set rs = server.createObject("ADODB.Recordset") ' if request("action")="delete" then %> Are you sure you want to delete this news entry?

">YES       NO <% end if if request("action")="deleteconfirmed" then response.write "Deleting News Entry... " db.execute("delete from news WHERE id='" & request("id") & "'") response.write "Done.
" end if if request("action")="" then %> <% rs.open "select * from news ORDER by ID desc", db do while NOT rs.eof %> <% rs.movenext loop rs.close %>
TitleAuthorDateAction
<%=rs("title")%><%=rs("author")%><%=rs("created")%>">Edit - ">Delete
<% end if if request("action")="editnews" AND request("actionb")="save" then if len(request("id"))>0 then myID=request("id") else myError="Invalid news entry ID." if len(request("created"))>0 then myCreated=request("created") else myError="Please supply a valid created time and date." if len(request("Title"))>0 then myTitle=replace(request("Title"),"'","þ") else myError="Please enter a title of the album." if len(request("author"))>0 then myAuthor=request("author") else myError="Please supply a valid author name." if len(request("news"))>0 then myNews=replace(request("news"),"'","þ") if len(myError)<1 then response.write "Updating News Entry... " db.execute("UPDATE news SET title='" & myTitle & "', author='" & myAuthor & "', news='" & myNews & "' WHERE id='" & myID & "'") response.write "Done." end if end if if request("action")="editnews" OR len(myerror)>0 then if len(myerror)>0 then response.write "Error: " & myError & "

" %>
"> <% rs.open "select * from news WHERE id='" & request("id") & "'", db if NOT rs.eof then myCreated=rs("created") myTitle=replace(rs("title"),"þ","'") myAuthor=rs("author") myNews=replace(rs("news"),"þ","'") else response.write "ERROR: News entry not found. Invalid ID." end if rs.close if myCreated="" then myCreated=Datepart("YYYY",now) & "-" & Datepart("M",now) & "-" & Datepart("D",now) & " " & Datepart("H",now) & ":" & Datepart("N",now) & ":" & Datepart("S",now) %> Created:
Title:
Author:
News:

<% end if set rs=nothing db.close set db=nothing %>