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