Namnet har omdefinierats.

4 svar · 266 visningar · startad av Hulth 13 apr. 2005

HulthMedlem sedan juni 2001272 inlägg

Frågan13 apr. 2005 15:57#1

Kompileringsfel i Microsoft VBScript (0x800A0411)
Namnet har omdefinierats.
/wwwroot/system.asp, line 71, column 9
Function FormatTime(strTimeToFormat)
--------^

Function FormatTime(strTimeToFormat)
	strFormatTimeLeft = Left(strTimeToFormat,2)
	strFormatTimeRight = Right(strTimeToFormat,2)
	FormatTime = strFormatTimeLeft & ":" & strFormatTimeRight
End Function

Funktionen anropas såhär:
FormatTime(objRecSet1("time"))
(fältet i databasen innehåller "0714" tex)

Har sökt, men hittar ingenting av värde. Kan tilläggas att jag kör med Option Explict på sidan.

Tacksam för hjälp

LarsGMedlem sedan dec. 200012 464 inlägg

13 apr. 2005 16:06#2

Har du lagt funktionsdefinitionen inuti en loop kanske?

Varför har du då inte

DIM strFormatTimeLeft,strFormatTimeRight

i din funktion?

HulthMedlem sedan juni 2001272 inlägg

13 apr. 2005 16:13#3

Funktionen anropas ifrån en loop som körs ca 4000ggr per sida.

Dim FormatTime, strTimeToFormat, strFormatTimeLeft, strFormatTimeRight

ligger bland mina övriga dim:ar längst upp på sidan.

för med funktionsdefinition menar du loop?

Ska jag lägga Dim:arna i funktionen menar du?

LarsGMedlem sedan dec. 200012 464 inlägg

13 apr. 2005 16:15#4

Du skall inte ha någon dim för funkionsnamnet.
Dom lokala variabler som du använder inom funktionen skall dimmas i funktionen.

HulthMedlem sedan juni 2001272 inlägg

13 apr. 2005 16:19#5

Function FormatTime(strTimeToFormat)
	Dim strFormatTimeLeft, strFormatTimeRight
	strFormatTimeLeft = Left(strTimeToFormat,2)
	strFormatTimeRight = Right(strTimeToFormat,2)
	FormatTime = strFormatTimeLeft & ":" & strFormatTimeRight
End Function

Gjorde så, och tog bort övriga dimmar som berörde den funktionen.

Tack för hjälpen ;)