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)