Hi,
dein Problem liegt glaube ich darin, dass du statt des Funktionsaufrufes, die Funktion in einen String schreibst. Versuch mal folgendes:
if not Feld.Value= nullvbstring then
response.write Umlaute2HTML(Feld.Value)
else
response.write Umlaute2HTML(0)
end if
Als nächstes fehlt deiner Funktion glaube ich der Rückgabewert
Function Umlaute2HTML(text)
...
Umlaute2HTML = text
End Function
Und schließlich gibt es glaube ich ein rs.fields(xxx).type das so sachen wie vbInteger, vbLong, vbText und so enthalten müsste...