<%= FormatDateTime(Date,1) %>

<% OpenConnection1 Set rs = Server.CreateObject("ADODB.Recordset") If Request.QueryString("DE")<>"" then EntryID=Request.QueryString("DE") Sel="Select * FROM WhatsNew WHERE EntryID=" & EntryID rs.Open Sel,DB,1,3 If rs.EOF then Response.Redirect("WhatsNew_List.asp") SET del=Server.CreateObject("SoftArtisans.SAFile") If rs("txtImage")<>"" then del.Delete Server.MapPath("\") & "\Uploads\WhatsNewImages\" & rs("txtImage") End If rs.Delete rs.Close End If Sel = "SELECT * FROM WhatsNew ORDER BY datInstall" rs.Open Sel, DB, 1, 3 If Not rs.EOF then%> <%While Not rs.EOF If rs("txtImage")<>"" then%> <%Else%> <%End If rs.MoveNext Wend Else%> <%End If%>

"What's New" entries available for online viewing:
" title="Click here to edit this entry">	<%=rs("txtHeading")%>	" title="Click here to edit/remove this image">" height="75" width="75">	" title="Click here to delete this entry">
" title="Click here to edit this entry">	<%=rs("txtHeading")%>	" title="Click here to add an image">No Image	" title="Click here to delete this entry">
There are currently no "What's New" entries in the database....
Click the 'Add Entry' button or Click Here to enter the information. *Note: There must be at least one Category entered before a Product can be entered.