0001: <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
0002: 
0003: <!--#include file="include/constants.inc"-->
0004: <!--#include FILE="include/adovbs.inc" -->
0005: 
0006: <%
0007: 	nodeID = Trim(Request.QueryString("id"))
0008: 	
0009: 
0010: 	Set cn = Server.CreateObject("ADODB.Connection")
0011: 	cn.Open Conn
0012: 	sqlString = "DELETE FROM mmMessageBoard WHERE ID = " & nodeID
0013: 	cn.Execute sqlString, lngRecs, adCmdText + adExecuteRecords	
0014: 	cn.Close
0015: 	Set cn = Nothing
0016: 	
0017: If ReturnSiteURL = "default.asp" Then
0018: 
0019: Response.Redirect("messageboard.asp")
0020: 
0021: Else
0022: 
0023: Response.Redirect("messageboard_m.asp")
0024: 
0025: 
0026: ENd If	
0027: 
0028: %>