Mi succede una cosa strana e mai capitata, devo tradurre poche righe dall'inglese all'italiano di uno script di Registrazione Utenti a mio avviso molto buono. La cosa curiosa che devo risolvere è nel modificare la pagina "inc_common.asp" ma appena modifico una lettera mi da questo errore:

Microsoft JET Database Engine error '80004005'

Field 'members.MemberNameUser' cannot be a zero-length string.

/public/login/inc_common.asp, line 433

il codice della pagina in questione è troppo lungo, posto fino a poco più la riga 433





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, "'", "''")