<% ' ######## Check to make Sure they have logged in ########### if isnull(Session("adnumber")) or session("adnumber")="" then Response.Redirect "login.asp" %> <% If Request.QueryString("order") = "" then o_by = "mdate" Else o_by = Request.QueryString("order") End If %> <% ' ######## Delete message if delete query is detected ############ If Request.QueryString("delete") <> "" then sqry = "update message set fromdelete='Y' where mes_id in ( " & Request.QueryString("delete")&" ) and fromid='" & Session("adnumber") &"'" set RS = conn.Execute (sqry) sqry = "update message set todelete='Y' where mes_id in (" & Request.QueryString("delete")&") and toid='" & Session("adnumber") &"'" set RS = conn.Execute (sqry) delete_sqry = "delete from message where mes_id in (" & Request.QueryString("delete")&") and toid='" & Session("adnumber") &"' and todelete='Y' and fromdelete='Y'" set RS = conn.Execute (delete_sqry) End If %> <% ' ######### Count Messages count_sqry = "Select count(mes_id) as t_Count From message where ToId = '" & Session("adnumber") &"' and ( todelete <> 'Y' or todelete is null )" count_sqry_n = "Select count(mes_id) as n_count From message where ToId = '" & Session("adnumber") &"' and status = 'n' and ( todelete <> 'Y' or todelete is null )" set numin=conn.Execute (count_Sqry) set numin_n=conn.Execute (count_Sqry_n) inbox = numin("t_count") inbox_n = numin_n("n_count") numin_n.close set numin_n = nothing numin.close set numin = nothing ' ######## End Counting %> <%if inbox_n<>0 then %> Number of New messages <%= inbox_n %> <%end if%>

<% ' ######## Check For Messages ################ fp_Sqry = "Select mes_id,fromid,subject,mdate,status From message where ToId = '" & Session("adnumber") & "' and ( todelete <> 'Y' or todelete is null ) order by " & o_by &" desc" 'fp_Sqry = "Select p.name, m.mes_id,m.fromid,m.subject,m.mdate,m.status From personalads p ,message m where m.ToId = '" & Session("adnumber") & "' and p.id=m.fromid order by " & o_by set RS=conn.Execute (fp_sqry) If RS.EOF and RS.BOF then ' ######### No Messages Received %> <% Else Do while not RS.EOF mdate=RS("mdate") If RS("status") = "n" then strong1 = "" strong2 = "" Else strong1 = "" strong2 = "" End If fp_Sqry = "Select name From personalAds where id = " &rs("FromId") &" and deletead=0 " set RS1=conn.Execute (fp_sqry) if not rs1.eof then name=RS1("name") else name="Unknown Sender" end if rs1.close if rs("FromId")="0" then name="Webmaster" %> <% RS.MoveNext loop End If RS.close Set RS = nothing %>

No Messages Received
&dest=inbox"><%=strong1 & name &strong2%>	&dest=inbox"><%=strong1 & RS("subject")& strong2%>	<%=strong1 & RS("mdate") &strong2%>	">
Clear All Check All

Please be advised that 30 days after date of sending or receiving , messages will be deleted.

Muslim Marriage Link does not monitor private email between members .All members are bound by our Service Agreement.( Terms of Use )
In the event you receive an email that you find offensive or that advertises a product or service other than Muslim Marriage Link, please forward the message immediately to admin@matrimony.org