Danmark vil mindske afhængigheden af globale techgiganter, men det kræver mere end politiske formuleringer og strategier, understreger PROSA’s formand Niels Bertelsen.
For r = LBound(arrFavorit3) to UBound(arrFavorit3) if arrFavorit3(r) = Request("ProfilID") then **her skal koden sættes ind** else if r= LBound(arrFavorit3) then tempString = tempString & ","& arrFavorit3(r) else tempString = arrFavorit3(r) end if Next
For r = LBound(arrFavorit3) to UBound(arrFavorit3) if arrFavorit3(r) <> Request("ProfilID") then if r= LBound(arrFavorit3) then tempString = tempString & ","& arrFavorit3(r) else tempString = arrFavorit3(r) end if Next
Hmmm...det funker ikke rigtigt...Når jeg laver "Response.Write" på nytArr(qp) for neden, udskriver den kun den sidste værdi i det gamle array??
strFav = "Select * From Favoritliste Where FavoritBrugerID=" & Session("ID") & "" Set rs2 = myConn.Execute(strFav)
Dim arrFavorit3
arrFavorit3 = Split(rs2("FavoritProfiler"),",")
For r = LBound(arrFavorit3) to UBound(arrFavorit3) if arrFavorit3(r) <> Request("ProfilID") then if r = LBound(arrFavorit3) then tempString = tempString & ","& arrFavorit3(r) else tempString = arrFavorit3(r) end if Next
nytArr = array(tempString)
For qp = LBound(nytArr) to UBound(nytArr) Response.Write "test:" & nytArr(qp) & "<br>" next
Hmmm...den blev sgu' lidt underlig...Det lader til at den sætter den første værdi ind i arrayet.
et eksempel: Array: 11,13,17,26,16,29,44,12
hvis jeg så sletter fx 26, kommer arrayet til at være: array: 11,11,13,17,16,29,44,12
Kan du lure den?
Koden ser sådan ud:
For r = LBound(arrFavorit3) to UBound(arrFavorit3) if arrFavorit3(r) <> Request("ProfilID") then if tempString = "" then tempString = arrFavorit3(r) else tempString = tempString & ","& arrFavorit3(r) end if end if Next
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
