Inkompatibla typer (array)

På denna kod:

	dim myArray

	myArray = Application("online")

	dim iUbound

		If IsArray(MyArray) = true then

		iUbound = Ubound(myArray)

		redim myArray(iUbound+1)

		myArray(iUbound+1) = username & ";" & time() & ";" & "/main.asp"

		else

		[B]myArray(0) = username & ";" & time() & ";" & "/main.asp"[/B]
	
		end if

	application("online") = myArray

Får jag:

Inkompatibla typer

På raden med fetstil, varför?

Du försöker ju lägga in saker på plats 0 i arrayen, trots att isArray(MyArray) är false. Inte så konstigt mao.

mvh,

Hur ska jag skapa arrayen i else-taggen då?

Redim MyArray(0)

borde fjunka.

mvh,

Då får jag detta:

Slut på programsats förväntas.

Och vad jag ser så är det inget fel på citationsteckerna iaf:

Redim myArray(0) = username & ";" & time() & ";" & "/main.asp"

Detta då?

Redim myArray(0)
myArray(0) = username & ";" & time() & ";" & "/main.asp"

Nu funkar det bra, har en annan fråga:

Om jag nu vill ta bort tex "posten" där username = "Andreas"

Hur gör man då?

Kanske inte helt smidigt men ändå:

myArray(0) = replace(username,"Andreas","Hemliga Arne") & ";" & time() & ";" & "/main.asp"

Annars så kanske det går med filter:
Filter(myArray,"Andreas",False)