<%@ Language=VBScript %>
<%Response.Buffer=True%>
<%PageID=600%>
<%
Header
Menu PageID
monthlydelete
Footer
%>
<%
Sub monthlydelete
MonthID = Request.QueryString("MID")
OpenConnection1
Set rs=Server.CreateObject("ADODB.Recordset")
Sel="SELECT * FROM Monthly WHERE MonthlyID=" & MonthID
rs.Open Sel,DB,1,3
If rs.EOF then Response.Redirect("monthly_list.asp")
txtHeading=rs("txtHeading")
rs.Close%>
<%= FormatDateTime(Date,1) %>
| |
Delete this Monthly Special?
<%=txtHeading%> |
| |
| YES |
NO |
<%End Sub%>