First off I am using the Freindly Registration Mod 0.9 which really saves a lot of time with AOL users since their email system corrupts the clickable url and many can not figure out how to rebuild the url by pasting it in the web browser. They are not the only ones but AOL users tend to be the majority of my problems.. just newbies.
This mod was by D3mon and it's primary link is here:
http://forum.snitz.com/forum/topic.asp?ARCHIVE=true&TOPIC_ID=45241
"You will need to build on top of that mode for my changes"
I really liked it, but wanted to make a more detailed welcome message. So I made a few changes to this mod.
I guess this is either code that could be added to the Freidnly Registration Mod or a Mod for that mod... depends on D3mon.
Features:
A direct link to the activation key box. His does this as well but starts with an ERROR... could scare newbies.
A more detailed welcome message:
quote:
Hello turtletimes
You received this message from THE MESSAGE FORUMS
http://www.forums.com/
-------------------------------------
Welcome
-------------------------------------
You have received this e-mail because you registered for a new account. If you did not create the account please ignore this e-mail. You do not need to unsubscribe or take any further action.
-------------------------------------
Registration / Activation
-------------------------------------
As part of the registration process we require you to activate your account by validating the e-mail address you used to register. This process protects you and the forums from unwanted spam and other types of abuse.
Activation is typically EASY! Simply click on the link below:
http://www.turtletimes.com/classifieds/register.asp?actkey=12345678901234567890
NOTE: AOL Users typically have to rebuild the link in their web broswer by copy & pasting the link back together.
AOL Friendly Link, we hope:
<a href="http://www.turtletimes.com/classifieds/register.asp?actkey=12345678901234567890">Click Here to Register</a>
-------------------------------------
Link didn't work?
-------------------------------------
Some mail servers will break the link, or there might be some other minor issue which is not typical. Please use the next link and copy & paste (or type) youractivation key manually.
Your Activation Key is: 12345678901234567890
Visit this link to enter your activation key:
http://www.forums.com/register.asp?mode=manual
AOL Friendly Link, we hope:
<a href="http://www.turtletimes.com/classifieds/register.asp?mode=manual">Click Here to Enter Activation Key</a>
-------------------------------------
Still having problems?
-------------------------------------
If you are still having issues with the registration process, it is possible that the account has been removed. Periodically the administrator will delete unverified accounts. Which can effect unverified accounts as old as 24 hours. In this case please try to register again, and if upon the second time you continue to have issues please contact the administrator to help rectify the problem.
-------------------------------------
Changing Settings?
-------------------------------------
You can change your information at our website by selecting the "Profile" link.
Happy Posting!
Find this at approx line 61:
if strProhibitNewMembers <> "1" then
Below it put this:
' ### Manual Activation
if Request.QueryString("mode") = "manual" then
Response.Write " <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """ color=""" & strHiLiteFontColor & """><b>Enter your Activation Key!</b></font></p>" & vbNewLine & _
" <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHiLiteFontColor & """>We recommend you copy and paste the activation key to reduce the chance an error.<br />Please enter your activation key in the box below and click Submit.</p>" & vbNewLine & _
" <div align=""center""><form action=""register.asp"" method=""post""><strong>Activation Key</strong>: <input type=""text"" name=""keyset"" size=""18"" maxlength=""32""> <input type=""submit"" value="" Submit ""></form></div>" & vbNewLine & _
" <p align=""center"">If this problem persists, please contact the <a href=""mailto:" & strSender & """>Administrator</a> of the forums.</font></p>" & vbNewLine & _
" <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><a href=""default.asp"">Back To Forum</font></a></p>" & vbNewLine
' ### End of Manual Activiation -- But you need to change IF below to ELSE IF
Find this on the next line:
if Request.QueryString("mode") <> "DoIt" and len(strQSKey) = 0 and len(strFormKey) = 0 then
Replace with this:
elseif Request.QueryString("mode") <> "DoIt" and len(strQSKey) = 0 and len(strFormKey) = 0 then
Find This at approx line 627:
if strEmail = "1" and strRestrictReg = "0" then
'## E-mails Message to the Author of this Reply.
strRecipientsName = Request.Form("Name")
strRecipients = Request.Form("Email")
strFrom = strSender
strFromName = strForumTitle
strsubject = strForumTitle & " Registration "
strMessage = "Hello " & Request.Form("name") & vbNewline & vbNewline
strMessage = strMessage & "You received this message from " & strForumTitle & " because you have registered for a new account which allows you to post new messages and reply to existing ones on the forums at " & strForumURL & vbNewline & vbNewline
if strAuthType="db" then
'################################### E-mail Validation Mod #################################
if strEmailVal = "1" then
'### Registration MOD
'strMessage = strMessage & "Your Activation Key is: " & actkey & vbNewline & vbNewline
'### Registration MOD
strMessage = strMessage & "Please click on the link below to complete your registration." & vbNewline & vbNewLine
strMessage = strMessage & strForumURL & "register.asp?actkey=" & actkey & vbNewline & vbNewline
else
'######################################################################################
strMessage = strMessage & "Password: " & Request.Form("Password") & vbNewline & vbNewline
end if '<---- E-mail Validation Mod - 1 line #############
end if
strMessage = strMessage & "You can change your information at our website by selecting the ""Profile"" link." & vbNewline & vbNewline
strMessage = strMessage & "Happy Posting!"
Replace it with this:
if strEmail = "1" and strRestrictReg = "0" then
'## E-mails Message to the Author of this Reply.
strRecipientsName = Request.Form("Name")
strRecipients = Request.Form("Email")
strFrom = strSender
strFromName = strForumTitle
strsubject = strForumTitle & " Registration "
'strMessage = "Hello " & Request.Form("name") & vbNewline & vbNewline
'strMessage = strMessage & "You received this message from " & strForumTitle & " because you have registered for a new account which allows you to post new messages and reply to existing ones on the forums at " & strForumURL & vbNewline & vbNewline
strMessage = "Hello " & Request.Form("name") & vbNewline & vbNewline
strMessage = strMessage & "You received this message from:" & vbNewline
StrMessage = StrMessage & strForumTitle & vbNewline
strMessage = strMessage & strForumURL & vbNewline & vbNewline
strMessage = strMessage & "-------------------------------------" & vbNewline
strMessage = strMessage & " Welcome" & vbNewLine
strMessage = strMessage & "-------------------------------------" & vbNewLine
strMessage = strMessage & "You have received this e-mail because you registered for a new account. If you did not create the account please ignore this e-mail. You do not need to unsubscribe or take any further action." & vbNewline & vbNewline
if strAuthType="db" then
'################################### E-mail Validation Mod #################################
if strEmailVal = "1" then
'### Registration MOD
'strMessage = strMessage & "Your Activation Key is: " & actkey & vbNewline & vbNewline
'### Registration MOD
'strMessage = strMessage & "Please click on the link below to complete your registration." & vbNewline & vbNewLine
'strMessage = strMessage & strForumURL & "register.asp?actkey=" & actkey & vbNewline & vbNewline
strMessage = strMessage & "-------------------------------------" & vbNewline
strMessage = strMessage & " Registration / Activation" & vbNewLine
strMessage = strMessage & "-------------------------------------" & vbNewLine
strMessage = strMessage & "As part of the registration process we require you to activate your account by validating the e-mail address you used to register. This process protects you and the forums from unwanted spam and other types of abuse." & vbNewline & vbNewline
strMessage = strMessage & "Activation is typically EASY! Simply click on the link below:" & vbNewline & vbNewline
strMessage = strMessage & strForumURL & "register.asp?actkey=" & actkey & vbNewline & vbNewline
strMessage = strMessage & "NOTE: AOL Users typically have to rebuild the link in their web broswer by copy & pasting the link back together." & vbNewline & vbNewline
strMessage = strMessage & "AOL Friendly Link, we hope:" & vbNewline
strMessage = strMessage & "<a href=""" & strForumURL & "register.asp?actkey=" & actkey & """>Click Here to Register</a>" & vbNewline & vbNewline
strMessage = strMessage & "-------------------------------------" & vbNewline
strMessage = strMessage & " Link didn't work?" & vbNewLine
strMessage = strMessage & "-------------------------------------" & vbNewLine
strMessage = strMessage & "Some mail servers will break the link, or there might be some other minor issue which is not typical. Please use the next link and copy & paste (or type) your activation key manually." & vbNewline & vbNewline
strMessage = strMessage & "Your Activation Key is: " & actkey & vbNewline & vbNewline
strMessage = strMessage & "Visit this link to enter your activation key:" & vbNewline
strMessage = strMessage & strForumURL & "register.asp?mode=manual" & vbNewline & vbNewline
strMessage = strMessage & "AOL Friendly Link, we hope:" & vbNewline
strMessage = strMessage & "<a href=""" & strForumURL & "register.asp?mode=manual"">Click Here to Enter Activation Key</a>" & vbNewline & vbNewline
strMessage = strMessage & "-------------------------------------" & vbNewline
strMessage = strMessage & " Still having problems?" & vbNewLine
strMessage = strMessage & "-------------------------------------" & vbNewLine
strMessage = strMessage & "If you are still having issues with the registration process, it is possible that the account has been removed. Periodically the administrator will delete unverified accounts. Which can effect unverified accounts as old as 24 hours. In this case please try to register again, and if upon the second time you continue to have issues please contact the administrator to help rectify the problem." & vbNewline & vbNewline
else
'######################################################################################
strMessage = strMessage & "Password: " & Request.Form("Password") & vbNewline & vbNewline
end if '<---- E-mail Validation Mod - 1 line #############
end if
strMessage = strMessage & "-------------------------------------" & vbNewline
strMessage = strMessage & " Changing Settings?" & vbNewLine
strMessage = strMessage & "-------------------------------------" & vbNewLine
strMessage = strMessage & "You can change your information at our website by selecting the ""Profile"" link." & vbNewline & vbNewline
strMessage = strMessage & "Happy Posting!"
|
Topic Locked
Posted - 27 December 2003 : 18:20:16
