Snitz Forums 2000 - Welcome PM for new registrations

Snitz Forums 2000

Username:	Password:
Save Password
Forgot your Password?

All Forums

Snitz Forums 2000 MOD-Group

MOD Add-On Forum (W/Code)

Welcome PM for new registrations

New Topic

Reply to Topic

Printer Friendly

Author

Topic

Page: of 2

endomorph
Junior Member

United Kingdom
128 Posts

Posted - 16 March 2008 : 03:24:51

I have seen requests before for this but not sure if anyone did anything, so I did.

This MOD will send a PM to all new registrations - A "Welcome to our site" kind of message.

In register.asp, look for the following code -

if strEmail = "1" and strEmailVal = "1" then
'Do Nothing
else
Call DoCount
end if

regHomepage = ""

Immediately above this, insert the following code -

'

' First lets get the members ID
strSql = "SELECT " & strMemberTablePrefix & "MEMBERS.M_EMAIL "
strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.MEMBER_ID "
strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS"
strSql = strSql & " WHERE " & strMemberTablePrefix & "MEMBERS.M_EMAIL like '" & chkString(Request.Form("Email"),"SQLString") & "'"
set rs = my_Conn.Execute (strSql)

' This is the string for your welcome PM subject
welcomepmsubject = "Welcome to ...."

' This is the string for your welcome PM message
welcomepmmessage = "Welcome to ...."

' Do not change these
strpmtoid = rs("MEMBER_ID")
strpmrid = "1"
TF = "0"

strSql = "INSERT INTO " & strTablePrefix & "PM ("
strSql = strSql & " M_SUBJECT"
strSql = strSql & ", M_MESSAGE"
strSql = strSql & ", M_TO"
strSql = strSql & ", M_FROM"
strSql = strSql & ", M_SENT"
strSql = strSql & ", M_MAIL"
strSql = strSql & ", M_READ"
strSql = strSql & ", M_OUTBOX"
strSql = strSql & ") VALUES ("
strSql = strSql & " '" & welcomepmsubject & "'"
strSql = strSql & ", '" & welcomepmmessage & "'"
strSql = strSql & ", " & strpmtoid
strSql = strSql & ", " & strpmrid
strSql = strSql & ", '" & DateToStr(strForumTimeAdjust) & "'"
strSql = strSql & ", " & TF
strSql = strSql & ", " & "0"
strSql = strSql & ", '" & 0 & "')"

my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords
set rs = nothing
'

Thats it ! Easy

<

Need help with your Snitz ? Most Snitz & ASP custom coding undertaken. Email for info | Search Engine Optimisation

leatherlips
Senior Member

USA
1838 Posts

Posted - 19 March 2008 : 18:41:58

I tried to implement this in my site but I am getting an error message:

ADODB.Field error '800a0bcd' 

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record. 

/forum/register.asp, line 643

This message occurs after you click Submit on the registration form.

Line 643 in my register.asp file is:

strpmtoid = rs("MEMBER_ID")

Any ideas?

Also, I assume you would need to have the PM Mod already installed for this to work? I do but just want to clarify for others sake.<

Edited by - leatherlips on 19 March 2008 18:42:58

Andy Humm
Average Member

United Kingdom
908 Posts

Posted - 19 March 2008 : 18:59:50

Leatherlips, I have the same error message and it pin points to same line
strpmtoid = rs("MEMBER_ID")

Uninstalled at the moment...
BTW I have the same PM mod as yours too..<

weeweeslap
Senior Member

USA
1077 Posts

Posted - 19 March 2008 : 19:05:31

He's using a function of an older version of snitz.<

coaster crazy

leatherlips
Senior Member

USA
1838 Posts

Posted - 20 March 2008 : 07:17:27

Is there any tweaking that could get this to work with the newer code?<

leatherlips
Senior Member

USA
1838 Posts

Posted - 28 April 2008 : 08:56:31

I'm just bumping this because this seems like a nice feature to add to my forum. Anybody get it to work yet?<

MarkJH
Senior Member

United Kingdom
1722 Posts

Posted - 30 April 2008 : 11:48:58

I'd like to get this to work, too. Anybody?<

Bandlink.net - http://www.bandlink.net/
Bandlink Music Forums - http://www.bandlink.net/forum/

MarkJH
Senior Member

United Kingdom
1722 Posts

Posted - 03 May 2008 : 07:41:18

Just wanted to bump this. It feels so near to working...<

Bandlink.net - http://www.bandlink.net/
Bandlink Music Forums - http://www.bandlink.net/forum/

modifichicci
Average Member

Italy
787 Posts

Posted - 03 May 2008 : 07:53:38

if you put the routine where it's said, you cannot have a member id, as member is in member pending.

you need to move the routine after the insert case in members table, around line 187 after
Call DoCount and before

'## Forum_SQL - Delete the Member<

Ernia e Laparocele
Forum di Ernia e Laparocele
Acces - MySql Migration Tutorial
Adamantine forum

leatherlips
Senior Member

USA
1838 Posts

Posted - 03 May 2008 : 08:29:52

I placed the code where you said modifichicci and I did not get the error anymore. However, the Welcome PM did not get sent either to the new member. There must be something else wrong too.

modifichicci
Average Member

Italy
787 Posts

Posted - 03 May 2008 : 09:09:30

try changing
chkString(Request.Form("Email"),"SQLString")
to

chkString(rsKey("M_EMAIL"),"SQLString")

in routine<

Ernia e Laparocele
Forum di Ernia e Laparocele
Acces - MySql Migration Tutorial
Adamantine forum

leatherlips
Senior Member

USA
1838 Posts

Posted - 03 May 2008 : 09:18:56

quote:
Originally posted by modifichicci

try changing
chkString(Request.Form("Email"),"SQLString")
to

chkString(rsKey("M_EMAIL"),"SQLString")

in routine

Beautiful! It works perfectly now! Thank you!

leatherlips
Senior Member

USA
1838 Posts

Posted - 03 May 2008 : 09:44:28

Now I have another question. How can we have paragraph breaks in the welcome message? When I try to do one I get an error at the spot of the break.<

Etymon
Advanced Member

United States
2385 Posts

Posted - 03 May 2008 : 21:50:53

Hey leatherlips,

I haven't forgotten about your e-mail question. I've been at appointments all week. I get back to you soon. If I take too long, give me a holler.

Etymon
<

MarkJH
Senior Member

United Kingdom
1722 Posts

Posted - 04 May 2008 : 05:36:06

Hmm, I'm now getting this error upon conformation of registration (http://www.bandlink.net/forum/register.asp?actkey=):

Microsoft OLE DB Provider for SQL Server error '80040e10'

No value given for one or more required parameters.

/forum/register.asp, line 388

The line being:
my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords

Is this because I have other MODs involved? I have a timezone adjust MOD and a captcha MOD installed.<

Bandlink.net - http://www.bandlink.net/
Bandlink Music Forums - http://www.bandlink.net/forum/

leatherlips
Senior Member

USA
1838 Posts

Posted - 04 May 2008 : 09:14:00

I also have the same anti-spam mod as you do. I do not have the time adjust mod. Did you place the Welcome PM code in the spot indicated by modifichicci? It should come right after the first Call DoCount.<

Page: of 2

Topic

New Topic

Reply to Topic

Printer Friendly

Jump To:

Snitz Forums 2000

This page was generated in 0.12 seconds.