Author |
Topic |
Ez4arab
Junior Member
479 Posts |
Posted - 13 July 2003 : 13:24:51
|
I try to develop the code after deleted members because I have more then 60 members not yet active their key and I reminder them. Now I decide to delete these members after 2 weeks form reminder received. I deleted the member that I reminder him with key. Then he came back and told me he don't find the active key because I delete his key with out inform him about that. This is my long story then I try to add some code to inform the member I delete.
in file admin_accounts_pending.asp
" <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """>All pending members have been deleted!</font></p>" & vbNewLine & _
" <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><a href=""admin_accounts_pending.asp"">Back To Members Pending</font></a></p>" & vbNewLine
WriteFooter
Response.End
else
'############### user deleted
Call EmailMembers("selectedDelete")
'###############
aryID = split(selID, ",")
for i = 0 to ubound(aryID)
'## Forum_SQL - Delete the Member
then add this befor this code
end if
end sub
this code
'##########################
elseif who = "selecteddelete" then
aryID = split(selID, ",")
for i = 0 to ubound(aryID)
'## Forum_SQL - Get all pending members
strSql = "SELECT M_NAME, M_EMAIL, M_KEY, M_APPROVE"
strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS_PENDING"
strSql = strSql & " WHERE MEMBER_ID = " & aryID(i)
set rsApprove = my_Conn.Execute(strSql)
if not(rsApprove.EOF) and not(rsApprove.BOF) and rsApprove("M_APPROVE") = "0" then
'## E-mails Message to all pending members.
strRecipientsName = rsApprove("M_NAME")
strRecipients = rsApprove("M_EMAIL")
strFrom = strSender
strFromName = strForumTitle
strsubject = strForumTitle & " Delete Your Account "
strMessage = "Hello " & rsApprove("M_NAME") & vbNewline & vbNewline
strMessage = strMessage & "You received this message from " & strForumTitle & " because you have registered for a new account, but the admin decide to delete your account at " & strForumURL & vbNewline & vbNewline
strMessage = strMessage & "for the following resonse you don't active your account"& vbNewline
strMessage = strMessage & "Sorry, for that!." & vbNewline & vbNewLine
%>
<!--#INCLUDE FILE="inc_mail.asp" -->
<%
rsApprove.movenext
end if
rsApprove.Close
set rsApprove = nothing
next
'##########################
|
Ez4arab web site Ez4arab | |
Edited by - Ez4arab on 13 July 2003 15:01:35 |
|
volition
Starting Member
USA
49 Posts |
Posted - 21 August 2003 : 21:17:45
|
This may work on your system, but on mine it did not until I changed elseif who = "selecteddelete" then to elseif who = "selectedDelete" then _________
Here is my version of the letter
strMessage = "Hello " & rsApprove("M_NAME") & vbNewline & vbNewline strMessage = strMessage & "Forums Pending Membership deleted" & vbNewline & vbNewline strMessage = strMessage & "This was either because (A) your UserName was deemed inappropriate as per the Posting Guidelines, (B) you already have an account or (C) Seven days have passed since you registered." & vbNewline & vbNewline strMessage = strMessage & "You will need to register again if you want to participate in our forums." & vbNewline & vbNewline strMessage = strMessage & "thanks," & vbNewline strMessage = strMessage & "Ray" & vbNewline
|
Volition® - The Net's Oldest Free-Stuff Site Snitz Forum at http://forum.volition.com/ |
|
|
puzo
Junior Member
Israel
417 Posts |
Posted - 29 August 2003 : 12:04:12
|
I would love to have this mod but im totaly lost in your directions; where exactly do i add this code:
'##########################
elseif who = "selecteddelete" then
aryID = split(selID, ",")
for i = 0 to ubound(aryID)
'## Forum_SQL - Get all pending members
strSql = "SELECT M_NAME, M_EMAIL, M_KEY, M_APPROVE"
strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS_PENDING"
strSql = strSql & " WHERE MEMBER_ID = " & aryID(i)
set rsApprove = my_Conn.Execute(strSql)
if not(rsApprove.EOF) and not(rsApprove.BOF) and rsApprove("M_APPROVE") = "0" then
'## E-mails Message to all pending members.
strRecipientsName = rsApprove("M_NAME")
strRecipients = rsApprove("M_EMAIL")
strFrom = strSender
strFromName = strForumTitle
strsubject = strForumTitle & " Delete Your Account "
strMessage = "Hello " & rsApprove("M_NAME") & vbNewline & vbNewline
strMessage = strMessage & "You received this message from " & strForumTitle & " because you have registered for a new account, but the admin decide to delete your account at " & strForumURL & vbNewline & vbNewline
strMessage = strMessage & "for the following resonse you don't active your account"& vbNewline
strMessage = strMessage & "Sorry, for that!." & vbNewline & vbNewLine
%>
<!--#INCLUDE FILE="inc_mail.asp" -->
<%
rsApprove.movenext
end if
rsApprove.Close
set rsApprove = nothing
next
'##########################
|
|
|
|
Ez4arab
Junior Member
479 Posts |
|
puzo
Junior Member
Israel
417 Posts |
Posted - 29 August 2003 : 16:37:09
|
but where EXACTLY do i put it? this confuses me too:
" <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """>All pending members have been deleted!</font></p>" & vbNewLine & _
" <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><a href=""admin_accounts_pending.asp"">Back To Members Pending</font></a></p>" & vbNewLine
WriteFooter
Response.End
else
'############### user deleted
Call EmailMembers("selectedDelete")
'###############
aryID = split(selID, ",")
for i = 0 to ubound(aryID)
'## Forum_SQL - Delete the Member
then add this befor this code
end if
end sub
this code
cant you just say where to put the code? (no this and this when you have three objects) |
|
|
|
puzo
Junior Member
Israel
417 Posts |
Posted - 05 September 2003 : 10:33:43
|
i dont mean to bump it or anything but i'd love to get some help. |
|
|
|
tribaliztic
Senior Member
Sweden
1532 Posts |
Posted - 05 September 2003 : 13:26:25
|
I had to try this too.. I get no errors anywhere, but no e-mail is sent out to the deleted users. This is a link to my file in txt-format.
http://www.gotlandrace.com/temp/admin_accounts_pending.txt |
/Tribaliztic - www.gotlandrace.se -
|
Edited by - tribaliztic on 06 September 2003 06:17:13 |
|
|
puzo
Junior Member
Israel
417 Posts |
Posted - 06 September 2003 : 02:21:33
|
can you remove the .asp so i could download the file? |
|
|
|
tribaliztic
Senior Member
Sweden
1532 Posts |
Posted - 06 September 2003 : 06:17:48
|
Done, updated the link too. Thanks for taking the time! |
/Tribaliztic - www.gotlandrace.se -
|
|
|
Ez4arab
Junior Member
479 Posts |
Posted - 07 September 2003 : 12:11:07
|
I post here my code admin_accounts_pending.txt code you can download it but it is in Arabic
enjoy
By the way if you active a member then you deleted the activated, he will not received any attention |
Ez4arab web site Ez4arab | |
|
|
tribaliztic
Senior Member
Sweden
1532 Posts |
Posted - 07 September 2003 : 12:35:31
|
Okay, will check yours and see if I can see something strange.. I did not activate the member.. I registered myself just to test this =) |
/Tribaliztic - www.gotlandrace.se -
|
|
|
tribaliztic
Senior Member
Sweden
1532 Posts |
Posted - 07 September 2003 : 16:34:52
|
The only difference (that had to do with this mod) was that you had the code placed in the end of the file, I changed that but no luck.. I will try uploading your file and see if I can make it work then.. |
/Tribaliztic - www.gotlandrace.se -
|
|
|
tribaliztic
Senior Member
Sweden
1532 Posts |
Posted - 07 September 2003 : 16:53:51
|
Nope, won't work with your file either.. Strange... |
/Tribaliztic - www.gotlandrace.se -
|
|
|
Ez4arab
Junior Member
479 Posts |
Posted - 08 September 2003 : 12:47:18
|
immmmm i don't konw!!!
the E-mail Server Configuration of my webiste is ASPmail and all selection on.
|
Ez4arab web site Ez4arab | |
|
|
tribaliztic
Senior Member
Sweden
1532 Posts |
Posted - 08 September 2003 : 18:15:54
|
Okay, I use chilimail.. Could that be the problem? But this script uses mail.asp for sending the mail? And other mails are sent? |
/Tribaliztic - www.gotlandrace.se -
|
|
|
puzo
Junior Member
Israel
417 Posts |
Posted - 12 September 2003 : 07:32:55
|
i downloaded your file ez4arab, it works, thanks. |
|
|
|
Topic |
|