<% Set db = Server.CreateObject("ADODB.Connection") set rs = server.createObject("ADODB.Recordset") ' if request("action")="addnews" then 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 "Adding News Entry... " db.execute("INSERT into news (created,title,author,news) VALUES ('" & myCreated & "','" & myTitle & "','" & myAuthor & "','" & myNews & "')") response.write "Done." end if end if if request("action")="" OR len(myerror)>0 then if len(myerror)>0 then response.write "Error: " & myError & "

" %>

<% 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: <%=myNews%>

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