<%
Option Explicit
Dim messageid,username,rsMessage

username = Session("username")

if username = "" then
  Response.Redirect("nologin.asp?page=messagecompose.asp")
end if

messageid = Request.QueryString("messageid")
%>
<!--#include file="conn.asp"-->
<%
set rsMessage = conn.Execute("DELETE * FROM Messages WHERE id = " & messageid & " AND sendto = '" & username & "'")

conn.close
set conn = nothing

Response.Redirect("inbox.asp")
%>