quote:

---

Originally posted by modifichicci

I think the problem is not the inizialization I am afraid, as in a new install there is not the problem.
It is in an update that the field isn't filled With a value (0 or 1) in previous members.

---

quote:

---

Originally posted by Carefree

In lieu of a DBS script, you could save this as "allowem.asp" and run it. That way it would remain a one-time use file.

[...]

---

<!--#INCLUDE FILE="config.asp"-->
<!--#INCLUDE FILE="inc_sha256.asp"-->
<!--#INCLUDE FILE="inc_header_short.asp"-->
<%
if mLev > 2 then
	strSql="UPDATE " & strMemberTablePrefix & "MEMBERS SET M_ALLOWEMAIL = 0"
	set rs = Server.CreateObject("ADODB.Recordset")
	rs.Open strSql, my_Conn, adOpenForwardOnly, adLockReadOnly, adCmdText
	set rs=Nothing
else
	Response.Redirect "default.asp"
end if
WriteFooterShort
Response.Redirect "default.asp"
%>

quote:

---

Originally posted by modifichicci

---

quote:

---

Originally posted by modifichicci

tested on an access db and working

change
intAllowEmail = cInt(rs("M_ALLOWEMAIL"))

with

	checkAllowedmail = rs("M_ALLOWEMAIL")
		
		if isnull(checkAllowedmail) then
		
	       		strSql="UPDATE " & strMemberTablePrefix & "MEMBERS SET M_ALLOWEMAIL = 0 WHERE MEMBER_ID = " & MemberID
			set rsmail = Server.CreateObject("ADODB.Recordset")
       			rsmail.Open strSql, my_Conn, adOpenForwardOnly, adLockReadOnly, adCmdText
       			set rsmail=Nothing
			strSql = "SELECT M_ALLOWEMAIL FROM " & strMemberTablePrefix & "MEMBERS "
       			strSql = strSql & " WHERE MEMBER_ID = " & MemberID
	
			set rs1 = my_Conn.Execute (strSql)
			intAllowEmail = cInt(rs1("M_ALLOWEMAIL"))
	 		rs1.close
	 	else
	 	       intAllowEmail = cInt(rs("M_ALLOWEMAIL"))
	 	end if

so if the value is null it updates field and then retrive the variable, if it is not null it charge the value.

So the routine is used only if necessary.

---