Kan nogen hjælpe.??

Broken link...

Jeg har et community i ASP.
Jge vil gerne have en slet profil funcktion på selve communynitiet da den ik har det.
Sådan her vil jeg have det:
1) Admin som jeg er skal kunne slette andre brugere.
2) De normale brugere skal kunne slette deres egen profil kun.

Communityet kan downalodes her:

http://frip.dk/homerboy/Community.zip

~UniChaos
Check out my page at:
www.zvane.dk

Jeg har et community i ASP.
Jge vil gerne have en slet profil funcktion på selve communynitiet da den ik har det.
Sådan her vil jeg have det:
1) Admin som jeg er skal kunne slette andre brugere.
2) De normale brugere skal kunne slette deres egen profil kun.

Communityet kan downalodes her:

http://frip.dk/homerboy/Community.zip

Du kunne evt. linke

Response.Write "<a href='slet.asp?id=" & rs("id") & "'>Slet!</a>"

I Slet.asp indsætter du:

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("../nyheder.mdb")
SQL = "DELETE * FROM TABEL-NAVN-HER! where id = " & request.querystring("id") & ""
Conn.Execute (sql)

Conn.Close
Set Conn = nothing

Jeg har et community i ASP.
Jge vil gerne have en slet profil funcktion på selve communynitiet da den ik har det.
Sådan her vil jeg have det:
1) Admin som jeg er skal kunne slette andre brugere.
2) De normale brugere skal kunne slette deres egen profil kun.

Communityet kan downalodes her:

http://frip.dk/homerboy/Community.zip

<%
side = Request("side")
If side = "" then

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("dindb.mdb")
strSQL = "SELECT * FROM dintabel ORDER BY id DESC"
set RS = Conn.execute(strSQL)

Response.Write "<a href=side.asp?side=1&id=" & RS("id") & ">" & RS("brugernavn") & "</a>"

Conn.Close
Set Conn = Nothing

End if
If mode = "1" Then

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("dindb.mdb")

strSQL = "DELETE all * FROM dintabel WHERE id=" & Request.QueryString("id") & ""
Conn.Execute (strSQL)

Conn.Close
Set Conn = nothing

Response.Write "Slettet"

End if
%>
/Peter.