hjælp med script

Hejsa!!!

Jeg har en shop hvor man kan købe chat komandoer for de point man tjener ved at skrive i chatten på min side. og det virker fint nok, men nu kunne jeg godt tænke mig at brugere selv kunne slette de chat komandoer de har hvis de ikke vil have dem mere.

Men jeg er lidt på bar bund, og håber der er en venlig sjæl der kan hjælpe mig..

Jeg køre Asp og mysql.. Koden tilføjet herunder:


<%
Dim StrUsr, Usr, StrSql, rs, MyArray, StrCheck, x, StrCommands, StrTemp

StrUsr = "Select username, chat_commands, chat_credits from users where username='" & Session("username") & "'"
    Set Usr = Conn.Execute(StrUsr)

StrSql = "Select * from commands where access=0 order by pris"
    Set rs = Conn.Execute(StrSql)

response.write "Velkommen til butikken " & usr("username")
response.write "<table border='1'>"
    response.write "<tr><td><center><b>Navn</b></center></td><td><b>Chat Handling</b></td><td><b>Slanter</b></td><td><b>Kurv</b></td></tr>"

StrCommands = Trim(Usr("chat_commands"))


If not IsNull(StrCommands) then
    MyArray = Split(StrCommands,",")

    Do while not rs.eof
        StrCheck = "false"
        For x = lBound(MyArray) to uBound(MyArray)
            if not MyArray(x) = "" then
                if Cint(rs("id")) = Cint(MyArray(x)) then
                    StrCheck = "true"
                End if
            End if
        next

        StrTemp = replace(rs("navn"),"/","")

        response.write "<tr><td><center>" & StrTemp & "</center></td>"
        If StrCheck = "true" then       
            response.write "<td>" & " " & rs("handling") & "</td><td>" & rs("pris") & "</td><td>Købt</td></tr>"
        elseif CSng(Usr("chat_credits")) < CSng(rs("pris")) and StrCheck="false" then
            response.write "<td>" & " " & rs("handling") & "</td><td>" & CSng(rs("pris")) & "</td><td><a href='#'>Ikke nok Slanter</td></tr>"
            StrCheck = "true"
        elseif StrCheck="false" then
            response.write "<td>" & " " & rs("handling") & "</td><td>" & CSng(rs("pris")) & "</td><td><a href='do_buy.asp?id=" & rs("id") & "'>Køb</a></td></tr>"
            StrCheck = "true"
        end if

    rs.movenext
    loop

ElseIf IsNull(StrCommands) then

    Do while not rs.eof
        if Usr("chat_credits") < rs("pris") then
            response.write "<tr><td>" & " " & rs("handling") & "</td><td>" & CSng(rs("pris")) & "</td><td><a href='#'>Ikke nok Slanter</td></tr>"
        else
            response.write "<tr><td>" & " " & rs("handling") & "</td><td>" & CSng(rs("pris")) & "</td><td><a href='do_buy.asp?id=" & rs("id") & "'>Køb</a></td></tr>"
        end if

    rs.movenext
    loop

Else
    response.write "Fejl."

    Conn.Close
Set Conn = nothing
End If
%>





Håber en eller flere kan hjælpe..