for each oField in MemberFields.Items
strFieldWrapper = GetFieldWrapper(oField.FieldType)
strSQL = strSQL & ", " & strFieldWrapper & Escape(oField.FieldValue) & strFieldWrapper
next
strSQL = strSQL & ")"
else
strSQL = "UPDATE members SET MemberConfirmed = " & MemberConfirmed & ", "
strSQL = strSQL & "MemberConfirmationToken = '" & MemberConfirmationToken & "', "
strSQL = strSQL & "MemberAccessLevel = " & MemberAccessLevel & ", "
strSQL = strSQL & "MemberNameUser = '" & Escape(MemberNameUser) & "', "
strSQL = strSQL & "MemberPassword = '" & Escape(MemberPassword) & "', "
strSQL = strSQL & "MemberEMail = '" & Escape(MemberEMail) & "', "
strSQL = strSQL & "MemberNotes = '" & Escape(MemberNotes) & "', "
strSQL = strSQL & "MemberDateCreated = '" & MemberDateCreated & "', "
strSQL = strSQL & "MemberDateUpdated = '" & MemberDateUpdated & "', "
strSQL = strSQL & "MemberDateLastLogin = '" & MemberDateLastLogin & "', "
strSQL = strSQL & "MemberPasswordResetToken = '" & MemberPasswordResetToken & "', "
strSQL = strSQL & "MemberPasswordResetTokenDate = '" & MemberPasswordResetTokenDate & "', "
for each oField in MemberFields.Items
strFieldWrapper = GetFieldWrapper(oField.FieldType)
strSQL = strSQL & oField.FieldName & " = " & strFieldWrapper & Escape(oField.FieldValue) & strFieldWrapper & ", "
next
strSQL = strSQL & "MemberApproved = " & MemberApproved
strSQL = strSQL & " WHERE MemberIndex = " & MemberIndex
end if
objConn.execute strSQL, RecordsAffected <--- riga 433
Save = RecordsAffected
else
Save = intErrorId
end if
objConn.Close
Set objConn = nothing
End Function
Public Function Escape(ByVal strToEscape)
Escape = Replace(strToEscape, "'", "''")