Ok, here it goes. Find line# 187, register.asp. Add the code in green:
my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords
'My additions to subscribe a member to board level
strSql = "SELECT @@IDENTITY As NewID"
Dim myRs, myMid
set myRs = Server.CreateObject("ADODB.Recordset")
myRs.Open strSQl, my_Conn, adOpenKeyset, adLockOptimistic, adCmdText
myMid = myRs(0) 'Obtain the member id to
myRs.Close
Set myRs = nothing
strSql = "INSERT INTO " & strTablePrefix & "SUBSCRIPTIONS (MEMBER_ID,CAT_ID, FORUM_ID,TOPIC_ID) VALUES ("
strSql = strSql & myMid & ",0,0,0)"
'Add the entry to the subscriptions table
my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords
Call DoCount
Then find line # 571 (already considering the addition of the previous lines). Again, add the code in green:
my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords
'My additions to subscribe a member to board level
strSql = "SELECT @@IDENTITY As NewID"
set myRs = Server.CreateObject("ADODB.Recordset")
myRs.Open strSQl, my_Conn, adOpenKeyset, adLockOptimistic, adCmdText
myMid = myRs(0) 'Obtain the member id to
myRs.Close
Set myRs = nothing
strSql = "INSERT INTO " & strTablePrefix & "SUBSCRIPTIONS (MEMBER_ID,CAT_ID, FORUM_ID,TOPIC_ID) VALUES ("
strSql = strSql & myMid & ",0,0,0)"
'Add the entry to the subscriptions table
my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords
if strEmail = "1" and strEmailVal = "1" then
'Do Nothing
else
Call DoCount
end if
I've tested the code both with email validation on and off and it worked in my test forum.