Dg wrote:
>
> Hejsa jeg er ved at lave sådan en buddy liste og da buddy's søgning
> kommer fra en access db laver jeg brugerens info i cookie for ikke
> at belaste db for meget,
Pas på med det, for dels kan cookies ikke blive særlig store (ikke mere
end 4k i NN), dels sendes de sammen med hvert side resquest (så det kan
jo komme til at sløve forbindelsen, hvis du har meget store cookies).
> så se her problemmet er jeg at jeg vil gerne fjerne nogen af mine
> buddys men hvordan fjerner jeg en fra min array' ?
[...]
> Response.Write("<td width='10%'>" & "<a href='test.asp' Onclick (Redim
> myArray Erase myArray " & myArray(i) & ">Fjern</a>" & "</td>")
Det her er ihvertfald noget rod. Her prøver du at ændre et array, som du
har oprettet på serveren, vha noget klient-side kode. Det kan du ikke.
Der ud over bruges "erase" til at slette et helt array (aka. sætte alle
værdier til ingenting).
Prøv det her:
<%
Dim myArray, func, strBuddys, bud
strBuddys=Request.Cookies("buddys")
func=Request("func")
bud=Request("bud")
if (func = "delete") then
strBuddys = Replace(";" & strBuddys & ";", ";" & bud & ";", ";")
if (strBuddys = ";") then
strBuddys = ""
else
strBuddys = Mid(strBuddys, 2, Len(strBuddys) - 2)
end if
Response.Cookies("buddys") = strBuddys
end if
if strBuddys ="" then
response.write "<font color='silver'>Du har ingen buddys</font>"
else
myArray = Split(strbuddys, ";")
Response.Write "<table>"
For i = 0 to UBound(myArray, 1)
Response.Write "<tr><td width='10%'>#" & i & "</td>"
Response.Write "<td width='60%' align='left'>" &
Server.HtmlEncode(myArray(i)) & "</td>"
Response.Write "<td width='10%'><a href='test.asp?func=delete&bud="
& Server.UrlEncode(myArray(i)) & "'>Fjern</a></td>"
Response.Write "<td width='20%'>kig</td></tr>"
Next
Response.Write "</table>"
end if
%>
--
Lauritz