<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
if trim(session("memberid")) = "" then
response.redirect "member_login.asp"
response.end
end if
if request("del") <> "" then
serialid = request("serialid")
if serialid <> "" then
Set Del_Cmd = Server.CreateObject("ADODB.Command")
Del_Cmd.ActiveConnection = MM_Connection_String
Del_Cmd.CommandText = delete_command("tbl_member_msg", "serialid", serialid)
Del_Cmd.Execute
Del_Cmd.ActiveConnection.Close
set Del_Cmd = nothing
end if
end if
Set rsMsg = Server.CreateObject("ADODB.Recordset")
rsMsg.ActiveConnection = MM_connection_STRING
rsMsg.Source = "SELECT * FROM tbl_member_msg where to_memberid = " & session("memberid") & " order by send_dt desc"
rsMsg.CursorType = 0
rsMsg.CursorLocation = 2
rsMsg.LockType = 1
rsMsg.Open()
%>
The Sleeping Giant Workout
SIGN-UP
NEWS & QUICKTIPS
HOLIDAY TIPS
5 tips for surviving the
holidays...that will
ensure "good health
and good looks"
