<%@ Language=VBScript %>
<%Response.Buffer=True%>
<%PageID=500%>
<%
Header
Menu PageID
WhatsNewDelete
Footer
%>
<%
Sub WhatsNewDelete
EntryID = Request.QueryString("EID")
OpenConnection1
Set rs=Server.CreateObject("ADODB.Recordset")
Sel="SELECT * FROM WhatsNew WHERE EntryID=" & EntryID
rs.Open Sel,DB,1,3
If rs.EOF then Response.Redirect("WhatsNew_List.asp")
txtHeading=rs("txtHeading")
rs.Close%>
<%= FormatDateTime(Date,1) %>
| |
Delete this 'Whats New' entry?
<%=txtHeading%> |
| |
| YES |
NO |
<%End Sub%>