<%= FormatDateTime(Date,1) %>

<% OpenConnection1 Set rs = Server.CreateObject("ADODB.Recordset") If Request.QueryString("DM")<>"" then MonthID=Request.QueryString("DM") Sel="Select * FROM Monthly WHERE MonthlyID=" & MonthID rs.Open Sel,DB,1,3 If rs.EOF then Response.Redirect("monthly_list.asp") SET del=Server.CreateObject("SoftArtisans.SAFile") If rs("txtImage")<>"" then del.Delete Server.MapPath("\") & "\Uploads\MonthlyImages\" & rs("txtImage") End If rs.Delete rs.Close End If Sel = "SELECT * FROM Monthly ORDER BY MonthlyID" rs.Open Sel, DB, 1, 3 If Not rs.EOF then%> <%While Not rs.EOF If rs("nDisplay")=1 then tcolor="#FF0000" Else tcolor="#000000" End If If rs("txtImage")<>"" then%> <%Else%> <%End If rs.MoveNext Wend%> <%Else%> <%End If%>

Monthly Specials currently in database:
" 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">
Note: Entries in red text are available for on-line viewing.
There are currently no Monthly Specials in the database....
Click the 'Add Special' button or Click Here to enter the information.