| Author |
 Topic  |
|
|
xMANIGHTx
Junior Member
Italy
191 Posts |
 Posted - 27 December 2001 : 11:09:19
|
This is my mini contribution to the community...
Here in Italy we use to say "Less is better than nothing".. Hehehe!!!
By the way if you have installed the newsletter MOD and want your users to be automatically signed in the mailing list, without the signi in/off forma, just edit "register.asp"
Find this bunch of code (around line 300):
end if
strSql = strSql & ")"
my_Conn.Execute (strSql)
docount
regHomepage = ""
And add this:
end if
strSql = strSql & ")"
my_Conn.Execute (strSql)
' ************** AUTO NEWSLETTER INSCRIPTION ********************
strDate = DatetoStr(now())
strSQL_Insert = "INSERT INTO " & strTablePrefix & "maillist (email, date_created, active)" & _
" VALUES ('" & chkString(Request.Form("Email"),"SQLString") & "', '" & strDate & "', '1');"
my_Conn.Execute(strSQL_Insert)
' ***************************************************************
docount
regHomepage = ""
That's all folks! 
 Distractly yours... manight@audiopro.it |
|
|
ThaNaToS
Starting Member
1 Posts |
Posted - 27 December 2001 : 11:35:03
|
Grazie!!! Grazie!!! Grazie!!! Grazie!!! Grazie!!! Grazie!!! Grazie!!! Grazie!!! Grazie!!! Grazie!!! Grazie!!! Grazie!!! Grazie!!! Grazie!!! Grazie!!! Era da tanto che cercavo una cosa cosi che spettacolo!!!!! Grazie!!! Grazie!!! Grazie!!! Grazie!!! Evviva Manight IL Buffaldrone!!!
|
 |
|
|
mas
New Member
78 Posts |
Posted - 27 December 2001 : 16:43:51
|
anche qua ci facciamo riconoscere lol
Webmaster of VincereOnLine.it |
|
|
|
sysadmin
Starting Member
48 Posts |
Posted - 27 December 2001 : 16:51:02
|
Im having problems with this MOD. Im getting this error
Microsoft JET Database Engine error '80040e37'
The Microsoft Jet database engine cannot find the input table or query 'FORUM_maillist'. Make sure it exists and that its name is spelled correctly.
/content/mailinglist.asp, line 29
This happens after someone puts in their email address and clicks the DO IT button.
Try it out for yourself. Go to http://www.shell.123hostnow.com/content/portal_content.asp
Ive installed everything the right way. Ive even double checked and reinstalled everything but I get the same error. So ive concluded its probably the code. Can you help me out?
Edited by - sysadmin on 27 December 2001 16:51:46 |
|
|
|
rick7165
Senior Member
USA
1094 Posts |
Posted - 27 December 2001 : 17:36:37
|
Check you db for FORUM_MAILLIST if it's not there run the setup.
Test Site:
EastPasco Huw's Code 3.3.10 SQL 2000
Snitz Mod Resource
Email |
|
|
|
xMANIGHTx
Junior Member
Italy
191 Posts |
Posted - 28 December 2001 : 05:35:09
|
Rick... where the ---- is your Photo Gallery MOD? I wasn't able to find it anywhere for downloading. Thx
Distractly yours... manight@audiopro.it |
|
|
|
xMANIGHTx
Junior Member
Italy
191 Posts |
Posted - 29 December 2001 : 05:15:46
|
The email in the mailing list should updated automatically, when you update your profile (or admin does so).
I tryied this after the SQL UPDATE statament in po_profile.asp but iI guess I put the HIDDEN OldEmail FIELD in the wrong place (just below the user and pass hidden fields in the gomodify case), coz the update doesn't work  Can anyone help? 
' ************** AUTONEWSLETTER SUBSCRIPTION *****************
strSql="UPDATE " & strMemberTablePrefix & "MAILLIST SET EMAIL='"& ChkString(Request.Form("Email"),"SQLString") & "' WHERE EMAIL='" & Request.Form("OldEmail") & "'"
my_Conn.Execute(strSql)
' ************************************************************
Distractly yours... manight@audiopro.it
Edited by - xmanightx on 29 December 2001 05:16:27 |
|
|
|
xMANIGHTx
Junior Member
Italy
191 Posts |
Posted - 29 December 2001 : 08:52:53
|
Ok GOT IT!
In order to automatically subscribe your forum members to the mailing list you must:
1) Have the newletter MOD installed and functional (this means your DB is updated too)
2) You have to edit register.asp and add this code (around line 300)
FIND:
end if
strSql = strSql & ")"
my_Conn.Execute (strSql)
docount
regHomepage = ""
And add this:
end if
strSql = strSql & ")"
my_Conn.Execute (strSql)
' ************** AUTO NEWSLETTER SUBSCRIPTION ********************
strDate = DatetoStr(now())
strSQL_Insert = "INSERT INTO " & strTablePrefix & "maillist (email, date_created, active)" & _
" VALUES ('" & chkString(Request.Form("Email"),"SQLString") & "', '" & strDate & "', '1');"
my_Conn.Execute(strSQL_Insert)
' ***************************************************************
docount
regHomepage = ""
3) You have to edit pop_profile.asp and ADD this code AFTER each UPDATE SQL command (two times in the page, near the bottom)
FIND THIS (in the UPDATE STATMENTS ONLY)
my_Conn.Execute(strSql)
AND JUST AFTER IT ADD THIS:
' ************** AUTONEWSLETTER SUBSCRIPTION **********************
strSql="UPDATE " & strMemberTablePrefix & "MAILLIST SET EMAIL='"& ChkString(Request.Form("Email"),"SQLString") & "' WHERE EMAIL='" & Request.Form("OldEmail") & "'"
my_Conn.Execute(strSql)
' *****************************************************************
4) You have to add a form object (an HIDDEN FIELD) used to find the EMAIL in the mailing list eand replace it with the new email when someone updates a profile (both the member himself or admin)
the first goes here around line 712:
<p align=center><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>">Edit User Profile</font></p>
<p align=center><form action="pop_profile.asp?mode=EditIt&id=<% =Request.QueryString("id")%>" method="Post" id=Form1 name=Form1>
<input name="Refer" type="hidden" value="<% =Request.Form("Refer") %>">
<% ' ************** AUTONEWSLETTER SUBSCRIPTION **************** %>
<input type=hidden name="OldEmail" value="<% =rs("M_EMAIL") %>">
<% ' *********************************************************** %>
Another one goes here just below:
<input type=hidden name="Method_Type" value="<% =Request.QueryString("mode") %>">
<input type=hidden name="MEMBER_ID" value="<% =Request.QueryString("ID") %>">
<input type=hidden name="Name" value="<% =Request.QueryString("name") %>">
<% ' ************* AUTONEWSLETTER SUBSCRIPTION **************** %>
<input type=hidden name="OldEmail" value="<% =rs("M_EMAIL") %>">
<% ' ********************************************************** %>
<input name="Refer" type="hidden" value="<% =Request.ServerVariables("HTTP_REFERER") %>">
Another one around line 816:
<p align=center><form action="pop_profile.asp?mode=ModifyIt&id=<% =Request.Form("MEMBER_ID")%>" method="Post" id=Form1 name=Form1>
</center>
<input type=hidden name="User" value="<% =Request.Form("User") %>">
<input type=hidden name="Pass" value="<% =Request.Form("Pass") %>">
<% ' ************** AUTONEWSLETTER SUBSCRIPTION **************** %>
<input type=hidden name="OldEmail" value="<% =rs("M_EMAIL") %>">
<% ' *********************************************************** %>
Maybe it's redundant, I don't know exactly the base structure of Snitz, but it works fine! Hope you enjoy it
Distractly yours... manight@audiopro.it |
|
|
|
xMANIGHTx
Junior Member
Italy
191 Posts |
Posted - 31 December 2001 : 09:41:17
|
You have to remove the first code added of the three:
<% ' ************** AUTONEWSLETTER SUBSCRIPTION **************** %>
<input type=hidden name="OldEmail" value="<% =rs("M_EMAIL") %>">
<% ' *********************************************************** %>
Sorry... or it will give you an error when editing a member as Admin.
Distractly yours... manight@audiopro.it |
|
|
| |
Topic |
|
Topic Locked
