tilføj værdi til array??

ReDim Preserve arrFavorit(11, 20, 15)

tilføj 11, 20 og 15 til array'et.

Hmm jeg kender en løsning, men ved ikke om den er optimal....
Dim arrFavorit,rSum

arrFavorit = Split(rs("FavoritProfiler"),'','')
rSum = uBound(arrFavorit,2)

ReDim Preserve arrFavorit(rSum+1)
arrFavorit(rSum) = "ny Værdi"

er lige i gang med at prøve

kan ikke rigigt få din til at virke fennec

Har prøvet med:

ReDim Preserve arrFavorit(Request("favID"))
 
  For t = LBound(arrFavorit) to UBound(arrFavorit)
      Response.Write arrFavorit(t) & "<br>"
  Next

fejl i mit script. Det er sådan her det fungere:

ReDim Preserve arrFavorit(ubound(arrFavorit)+1)
arrFavorit(ubound(arrFavorit)) = "nyVærdi"

Det er for lang tid siden jeg har brugt det :o)

Undskyld thomas_yde. Havde ikke set at det var det du gjorde. Det er dine point.

Det er super arbejde det der fennec! -kan du ikke lige svare??

1000 tak for hjælpen!

...og tak til dig T Yde for den gode indsats!

hyg!

-Mescalito

Nu bliver jeg forvirret! Hvem skal have!?!? :-)

Det gør ikke noget, vi er her jo bare for at hjælpe. ;)

thomas_yde skal have dem. Min version er bare lidt kortere, men han var først med løsningen.

Stik mig et svar, så får I hver især 10 gode, kan vi ikke gøre det sådan!? :-)

-heps!

fjong.

Yde: Du kan ikke få dine point før fennec har svaret- ellers kan man ikke dele dem op! Jeg giver fennec et kvarter til at svare ellers får du pointsne! :-)


Nu går der ged i den!?

Jeg vil gerne have sat mit nye array tilbage ind i databasen, hvorfor kan jeg ikke gøre således!?:

  ReDim Preserve arrFavorit(ubound(arrFavorit)+1)
  arrFavorit(ubound(arrFavorit)) = Request("favID")
 
UpdateSQL = "Update Favoritliste Set FavoritProfiler=" & arrFavorit & " Where FavoritBrugerID=" & Session("ID") & ""
myConn.Execute(UpdateSQL)

Jeg får en data type mismatch...er arrFavorit ikke et array af værdier: ex.: 11,34,45?

Håber I kan hjælpe!?

ingen point til mig.

du kan ikke "udskrive" et array på den måde. Du skal lave en toString funktion

function toString(funkArr)
dim funkF, ReturVal
  for funkF=0 to ubound(funkArr)
    if funkF = 0 then ReturVal = funkArr(funkF) else ReturVal = ReturVal &","& funkArr(funkF)
  next
  toString = ReturVal
end function

også skal du lige have ' om din tekst i SQL

UpdateSQL = "Update Favoritliste Set FavoritProfiler='" & toString(arrFavorit) & "' Where FavoritBrugerID=" & Session("ID") & ""

Det er helt super igen fennec, det virker!! Desværre er det lidt for langhåret til jeg kan gennemskue hvad der sker! :-(

SVAR NU! -ikke så meget pjat! Den sidste er i hvert fald 10 points værd! :-)

-Mescalito

så lad gå. Du presser mig jo til det :o)

Super! :-)