<%@ Language=VBScript %> <% Option Explicit %> <% dim message,strSQL,objRS message = request.querystring("message") response.write(message) Set objRS = Server.CreateObject("ADODB.Recordset") strSQL = "Delete from EMessageboard WHERE MessageUID = "&message&" ;" response.write (strSQL) 'response.end objRS.Open strSQL, objConn1 response.redirect ("listmessageadmin.asp") %>