Hallo Robert.

Das sieht mehr nach einem DB-Problem aus...
"Error Type: ADODB.Field (0x80020009)
Either BOF or EOF is True, or the current record has been deleted"

Mach mal folgendes:

<%
if NOT RS3.BOF AND NOT RS3.EOF Then
Voting_gut_neu = CInt(RS3("Voting_gut")) + 1
end if
%>

Den isNumeric-Check kannst du auch noch dazu packen.

Grüße
Sascha