|
e3stone
Average Member
USA
885 Posts |
 Posted - 26 April 2001 : 07:13:05
|
This just came to my attention this morning. Some people are having trouble deleting buddies. You need to replace the Case "delete" section with this code:
Case "delete"
i = request("i")
aBudCheck = split(i, ",")
dim ibudloop
for ibudloop = 0 to UBound(aBudCheck)
' Delete selected Buds
delSQL = "Delete From "& strTablePrefix & "Buddys where Buddy_ID=" & aBudCheck(ibudloop)
my_conn.Execute delSQL
next
response.write "<br><center><font face=""" & strDefaultFontFace & """ size=3><b>Selected Buds Deleted!</b></font><br>"
response.write "<a href=""default.asp""><br>Back to Forum<br></a></center>" &_
"<meta http-equiv=""Refresh"" content=""2; URL=default.asp"">"
That should do it.
Sorry about that mistake
Eric
|
|
Topic Locked
