I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
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.
