MOD: Email Notify Admin

<% @ Language=VBScript %>
<% Option Explicit %>
<!--#include file="common.asp" -->
<!--#include file="functions/functions_date_time_format.asp" -->
<%

'Set the buffer to true
Response.Buffer = True

'Declare variables

Dim strMode            'Holds the mode of the page
Dim lngTopicID
Dim rsEmailNotify
Dim lngWatchID

If blnAdmin = False Then Response.Redirect("default.asp") End If

lngTopicID = request.querystring("TID")
lngWatchID = request.querystring("WI")
strMode = request.querystring("M")

If strMode = "A" Then
    strSQL = "DELETE FROM tblEmailNotify WHERE Watch_ID = " & lngWatchID
    adoCon.Execute strSQL

End If

strSQL = "SELECT * FROM tblEmailNotify WHERE Topic_ID ="&lngTopicID
SET rsEmailNotify = adoCon.Execute(strSQL)
adoCon.execute(strSQL)
%>
<!-- #include file="includes/header.asp" -->
<table cellspacing="1" cellpadding="3" class="tableBorder" align="center">
<FORM ACTION="delete_subscription.asp" form id="DEN" METHOD="POST">
 <tr class="tableLedger">
<td bgcolor="<%= strBase %>">Watch ID</td>
<td bgcolor="<%= strBase %>">Watcher</td>
<td bgcolor="<%= strBase %>">Forum ID</td>
<td bgcolor="<%= strBase %>">Topic ID</td>
<td bgcolor="<%= strBase %>">Delete</td> 
</tr>
<% Do While NOT rsEmailNotify.EOF %>
<tr class="tableRow">
<td bgcolor="#FFFFFF"><%=rsEmailNotify("Watch_ID")%></td>
<td bgcolor="#FFFFFF"><%=rsEmailNotify("Author_ID")%></td>
<td bgcolor="#FFFFFF"><%=rsEmailNotify("Forum_ID")%></td>
<td bgcolor="#FFFFFF"><%=rsEmailNotify("Topic_ID")%></td>
<td bgcolor="#FFFFFF"><a href="email_notify_subscriptions_admin.asp?TID=<%=lngTopicID%>&M=A&WI=<%=rsEmailNotify("Watch_ID")%>">Delete</a></td>
</tr>
<% 
rsEmailNotify.MoveNext
Loop

rsEmailNotify.close
Set rsEmailNotify = nothing

adoCon.close
Set adoCon = Nothing
%>
</table>

<!-- #include file="includes/footer.asp" -->

<%
'add link for admins to view and delete subscriptions
If blnAdmin = True Then %><br><a href="email_notify_subscriptions_admin.asp?TID=<%=lngTopicID%>">View subscriptions to this thread</a><% End If %>