quote:

---

I have discovered the problem, there is no code in the

case "ModifyIt" section to update the fields.


add this code after the my_conn.execute which performs the member udate

'Rem User Field Code #######################################
			if (strUseExtendedProfile) then
				if (intUserFields > 0) then
				
					memID = ChkString(Request.Form("MEMBER_ID"), "SQLString")
					UserstrSql = "SELECT * " 
					UserstrSql = UserstrSql & " FROM " & strMemberTablePrefix & "USERFIELDS "
					set rsIDs =My_Conn.Execute(UserstrSql)
					do until rsIDs.EOF
						sInputName = rsIDs("USR_SHORTNAME")
						sUpdateValue = Request.Form(sInputName)
						if DoesUserFieldExist(memID,rsIDs("USR_FIELD_ID")) then
							UpdSQL = "UPDATE " & strMemberTablePrefix & "MEMBERFIELDS "
							UpdSQL = UpdSQL & "SET " & strMemberTablePrefix & "MEMBERFIELDS.USR_VALUE ='" & sUpdateValue & "'"
							UpdSQL = UpdSQL & "WHERE " & strMemberTablePrefix & "MEMBERFIELDS.USR_FIELD_ID =" & rsIDs("USR_FIELD_ID") & " AND "
							UpdSQL = UpdSQL &  strMemberTablePrefix & "MEMBERFIELDS.MEMBER_ID =" & memID
							My_Conn.Execute(UpdSQL)
							UpdSQL = ""
						else
							UpdSql = "INSERT INTO " & strMemberTablePrefix & "MEMBERFIELDS "
							UpdSql = UpdSql & "VALUES ( " & memID & "," & rsIDs("USR_FIELD_ID") & ",'"
							UpdSql = UpdSql & sUpdateValue & "')"
							My_Conn.Execute(UpdSQL)
							UpdSQL = ""
						end if
						rsIDs.MoveNext
					loop
					rsIDs.Close
					Err_Msg = "OK"
				end if
			end if
'Rem User Field Code #######################################

---

OK!

This sounds all very similar to my problem ...

HuwR, can you let me know what file this code goes on [I think pop_profile.asp?], and also be a little more specific as to its placement [I'm far from an asp expert!], and, maybe most importantly does the fix still apply to version 3.3.05?

NOTE TO FORUM MODERATOR: I have sort of duplicated the request of my other thread on this topic ... sorry, just found this while searching for answers. I know, I know ... should have searched first!

Rich

quote:

---

HuwR, can you let me know what file this code goes on [I think pop_profile.asp?],

---

quote:

---

if ChkString(Request.Form("Level"),"") = "1" then
'## Forum_SQL - Remove the member from the moderator table
strSql = "DELETE FROM " & strTablePrefix & "MODERATOR "
strSql = strSql & " WHERE " & strTablePrefix & "MODERATOR.MEMBER_ID = " & ChkString(Request.Form("MEMBER_ID"), "SQLString")

my_Conn.Execute (strSql)
end if
%>

---

quote:

---

after the my_conn.execute which performs the member UPDATE

---

'Rem User Field Code #######################################
	if (intUserFields	= "1") then 
		Response.write	"<tr>" &_
		"					<td align=center bgcolor='" & strCategoryCellColor & "' colspan='2'><b>" &_
		"						<font face='" & strDefaultFontFace & "' size='" & strDefaultFontSize & "' color='" & strHeadFontColor & "'>Extra Info..</font></b></td>" &_
		"				</tr>"
		set rs2 = My_Conn.Execute("SELECT * FROM " & strMemberTablePrefix & "USERFIELDS ORDER BY USR_FIELD_ID")
		do until rs2.EOF
			fieldValue = getUserFieldValue(rs2("USR_FIELD_ID"),rs("MEMBER_ID"))
			Response.Write ("<tr><td valign=""top""  align=""right"" bgColor=" &strPopUpTableColor & " > <b><font face=""" & strDefaultFontFace & """ size=" & strDefaultFontSize & ">" & rs2("USR_LABEL") & ":</font></b></td>")
			if rs2("USR_FIELDTYPE") = "T" then
				Response.Write	"<td valign=""top"" bgColor=""" & strPopUpTableColor & """><textarea maxLength=""255"" name=" & rs2("USR_SHORTNAME") &_
				" cols=""20"" rows=3>" & fieldValue & "</textarea></td>"
			Else 
				if rs2("USR_FIELDTYPE") = "S" then
					Response.write "<td valign=""top"" bgColor=""" & strPopUpTableColor & """>" &_
					"<INPUT name=""" & rs2("USR_SHORTNAME") & """ size=""20"" value=""" & fieldValue & """></font></td>"
				Else
					Response.write "<td valign=""top"" bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" &_
					"<INPUT name=""" & rs2("USR_SHORTNAME") & """ type=""checkbox"" value=""1"" " 
					If fieldValue = "1" then Response.write "checked"
					Response.write "></font></td>"
				End If
			End If
			response.write "</tr>"
			rs2.MoveNext
		loop
		rs2.Close
	end if
'Rem User Field Code ####################################### 

quote:

---

I am currently updating the mod for 3.4, and adding Lookup lists and admin only fields, which is why I'm not around that much at the moment.

---

quote:

---

what changes did you make ?

---