For odd reasons some people on my website register but never confirm their email address.
I modified the 'admin_accounts_pending.asp' file in Snitz version 3.3.05 to resend another confirmation email.
Here's the edits to the file: 'admin_accounts_pending.asp'
---------------------------------------------
Find: <!--#INCLUDE file="inc_top.asp" -->
Paste Below:
<% Dim mode, member_id
mode = Request.QueryString("mode")
member_id = Request.QueryString("member_id")
If mode = "resend" and member_id <> "" Then
'## Forum_SQL - Find all records with the search criteria in them
strSql = "SELECT M_NAME, M_PASSWORD, M_EMAIL, MEMBER_ID, M_DATE, M_KEY "
strSql = strSql & " FROM " &strMemberTablePrefix & "MEMBERS "
strSql = strSql & " WHERE " & strMemberTablePrefix & "MEMBERS.M_STATUS = " & 0
strSql = strSql & " AND " & strMemberTablePrefix & "MEMBERS.M_LEVEL = " & -1
strSql = strSql & " AND " & strMemberTablePrefix & "MEMBERS.MEMBER_ID = " & member_id
set rs = Server.CreateObject("ADODB.Recordset")
rs.cachesize=20
rs.open strSql, my_Conn, 3
strRecipientsName = rs("M_NAME")
strRecipients = rs("M_EMAIL")
strFrom = strSender
strFromName = strForumTitle
strSubject = strForumTitle & " Registration Confirmation - Day " & DateDiff("d", ChkDate(rs("M_DATE")), strForumTimeAdjust)
strMessage = "You registered as a new member of " & strForumTitle & " " & DateDiff("d", ChkDate(rs("M_DATE")), strForumTimeAdjust) & " days ago, and you have " & vbNewline
strMessage = strMessage & "not yet confirmed your email address: '" & rs("M_EMAIL") & "'" & vbNewline & Vbnewline
strMessage = strMessage & "Click here to confirm your email and complete your registration: " & vbNewline
strMessage = strMessage & strForumURL & "register.asp?actkey=" & rs("M_KEY") & vbNewline & vbnewline
strMessage = strMessage & "Once you have confirmed your email address you can login at " & strForumURL & " using:" & vbNewline & vbNewline
strMessage = strMessage & "Username: " & lcase(rs("M_NAME")) & vbNewline
strMessage = strMessage & "Password: " & lcase(rs("M_PASSWORD")) & vbNewline & vbNewline
strMessage = strMessage & "------------------------------------------" & vbNewline
strMessage = strMessage & strForumTitle & vbNewline
%>
<!--#INCLUDE FILE="inc_mail.asp" -->
<%
rs.close
Response.Redirect("admin_accounts_pending.asp?mode=sent")
End If
%>
%>
---------------------------------------------
Find:
<% else
do until rs.EOF
days = DateDiff("d", ChkDate(rs("M_DATE")), strForumTimeAdjust)
if days >= 15 then
days2 = "<b>" & days & "</b>"
else
days2 = days
end if
%>
Paste Below:
<form name="formSend" method="post" action="admin_accounts_pending.asp?mode=resend&member_id=<% =rs("MEMBER_ID") %>">
---------------------------------------------
Find:
<img src="<%=strImageURL %>icon_trashcan.gif" alt="Delete Account" border="0" hspace="0"></a>
Paste Below:
<input type="image" border="0" name="submit" src="icon_email.gif" width="15" height="15" alt="Resend Email">
---------------------------------------------
Find:
<% rs.MoveNext
loop
end if %>
Paste Before:
[code]</form>
---------------------------------------------
Find:
[code]<% WriteFooter
Paste Before:
[code]<%
If mode = "sent" Then
Response.Write ("<font face=" & strDefaultFontFace & " size=" & strDefaultFontSize & ">Registration Email has been resent to the requested member.</font><br><br>")
End If
%>[code]
----------------------------------------------
That's it! You can customize the email message by editing the 'strMessage' lines above.
You can download my version here: http://www.gowilmington.com/community/snitz.asp
-Airilm
Topic Locked
Posted - 16 August 2002 : 14:07:16
