Hamza Raya: ASP-Fehlermeldung

Beitrag lesen

Hallo Leute

Frage: Warum funktioniert das nicht ?
----------------------------------------------------------
Function Hochkommata(Zahl)
 Zahl = Trim(Zahl)
 Zahl = FormatNumber(Zahl, 0)
 Hochkommata = Replace(Zahl, ",", "'")
End Function

For i = 5000 to 30000 step 5000
 response.write "<option value=""" & i & """>"
 i = Hochkommata(i)
 response.write i & "</option>"
Next // Das hier ist die Zeile 112
----------------------------------------------------------
Ich erhalte immer die Fehlermeldung:

Error Type:
Microsoft VBScript runtime (0x800A000D)
Type mismatch: '[string: "5'000"]'
/autokassir/suche/suche_erw.asp, line 112

Bin dankbar für alle Antworten

Gruss
Hamza (verzweifelt)