Hallo Leute,

ich habe hier folgende Funktion, mit der ich die Anzahl eines bestimmten
Zeichens ermittel:

Function InStringZahl(T, K)
Dim Z, S
   Z = 0
   S = T
   Do While InStr(S, K)
     Z = Z + 1
     P1 = Left(S, InStr(S, K) + 1)
   Loop
   InStringZahl = Z
End Function

Dies lese ich dann so aus:

nav1 = InStringZahl(nav,".")

Und vergleiche es in einem sp�teren Script:

If nav1 > 1 Then ...

Ich erhalte allerdings bei der Funktion immer folgende Fehlermeldung:

Fehler 'ASP 0113'
Zeitlimit f�r Skript wurde erreicht
/neu/produkte.asp
Das Zeitlimit zum Ausf�hren eines Skripts wurde �berschritten. Sie k�nnen
das Zeitlimit �ndern, indem Sie einen neuen Wert f�r die Eigenschaft
Server.ScriptTimeOut festlegen oder den Wert f�r ScriptTimeout im
Verwaltungsprogramm von IIS �ndern.

Habe die Eigenschaft testweise schon zigmal hochgesetzt, doch es tut sich
nichts. Kann mir mal jemand sagen, was ich falsch mache? Ich verzweifel hier
echt langsam... :((

Vorsichtshalber hatte ich auch schon mal

If CByte(nav1) > 1 Then...

probiert. Brachte aber auch nichts. :(

Gru�,

Arkor


| Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/
| [aspdebeginners] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv
| Sie knnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp

Antwort per Email an