delmess.asp

电子商务网络购物系统

<% Option Explicit %>
<!--#include file="conn.asp" -->
<%
Response.Buffer = True
Set rsConn = Nothing

Dim laryMesageID 
If blnPrivateMessages = False Then 
	adoCon.Close
	Set adoCon = Nothing
	Response.Redirect("index.asp")
End If

If intGroupID = 2 OR blnActiveMember = False Then 
	adoCon.Close
	Set adoCon = Nothing
	Response.Redirect("nopermission.asp")
End If
For each laryMesageID in Request.Form("chkDelete")
	strSQL = "DELETE FROM timesmess WHERE (((timesmess.userid)="  & lngLoggedInUserID & " ) AND ((timesmess.messid)= " & CLng(laryMesageID) & "));"
	adoCon.Execute(strSQL)
Next
If Request.QueryString("messid") <> "" Then
	strSQL = "DELETE FROM timesmess WHERE (((timesmess.userid)="  & lngLoggedInUserID & " ) AND ((timesmess.messid)= " & CLng(Request.QueryString("messid")) & "));"
	adoCon.Execute(strSQL)
End If
adoCon.Close
Set adoCon = Nothing
Response.Redirect "inbox.asp?MSG=DEL"
%>