Slette/flytte flere brugere med checkbokse

Må vi se din nuværende kode?

If Request.QueryString("brugerslet") <> "" Then
Set DBConn = Server.CreateObject("adodb.Connection")
DBConn.Open strConnect
'Set rsSlet =  Server.CreateObject("ADODB.recordset")
strSQL = "DELETE FROM "&Request.QueryString("brugerslet")&" WHERE bruger_id = "&Request.QueryString("slet")&""
DBConn.Execute(strSQL)
Session.Abandon()
Response.Redirect("brugerlist.asp?hold="& Request.QueryString("holdslet")&"")
DBConn.Close
Set DBConn = Nothing

Det er sletkoden...
Flyttekoden har jeg endnu ikke lavet...

Men foreslag til sletningen er en evt. funktion...:

function handleThis(input)
  inputArray = split(input, ", ")
  for i = lbound(inputArray) to ubound(inputArray)
 
  handleThis = handleThis & "drenge1_id = " & inputArray (i)
handleThis = left(handleThis, len(handleThis)-2)
end function

Men ved ikke rigtig...

Mvh,
Drago

Ikke drenge1_id men bruger_id!!!

Og så skal SQL sætningen selvf. lyde:
strSQL = "DELETE FROM "&Request.QueryString("brugerslet")&" WHERE "& handleThis(request.querystring("slet"))&""

Kan vi komme til at se hele koden for brugerlist.asp så vi slipper for at gætte hvilken del af koden du vil have hjælp til?

Øhh, jeg har jo ikke noget kode til det der pt.
Håbede I kunne hjælpe mig med det... Altså selve SQL-strengen f.eks.

Jeg har programmeret i ASP lang tid. Problemet er at jeg aldrig har lavet noget ligende som det her før... Så kan du give sådan noget som retninger... Så kunne jeg selv kode det...

Men jeg står jo på bar bund, for har ingen anelser hvor jeg skal begynde og starte...

-Drago

Hvis du ikke allerede har fundet en løsning på dit problem, tjek det her.

Du kan lave en liste over alle de brugere du har i din database sådan her:

<%

Response.Write("<form action=""user_actions.asp"" method=""post"">")
Response.Write("<input type=""radio"" name=""action"" value=""delete""> Slet")
Response.Write("<input type=""radio"" name=""action"" value=""move""> Flyt")
Response.Write("<table>")
Response.Write("<tr>")
Response.Write("<td></td>")
Response.Write("<td></td>")
Response.Write("<td>Brunernavn</td>")
Response.Write("</tr>")

Set DBConn = Server.CreateObject("adodb.Connection")
DBConn.Open strConnect
strSQL = "SELECT UserId, UserName FROM Users"
set rs = DBConn.Execute(strSQL)
rs.ActiveConnection = Nothing
DBConn.Close
Set dbconn = Nothing

While Not rs.EOF
  Response.Write("<tr>")
  Response.Write("<td><input type=""checkbox"" name=""usrid" & rs("UserId") & """></td>")
  Response.Write("<td>" & rs("UserName") & "</td>")
  Response.Write("</tr>")
Wend

Response.Write("</table>")
Response.Write("<input type=""submit"" value=""Do something"">")
Response.Write("</form>")
%>


Når man submit'er formen bliver dataene sendt til user_actions.asp som kan se sådan ud:

<%
Response.Expires = 0
strAction = Request.Form("action")
For Each item In Request.Form
  If item <> "action" then
    If strAction = "delete" then
      'Do some code to delete the user id
    elseif strAction = "move" then
      'Do some code to move the user id
    end if

    Response.Write item & "<BR>"
  end if
Next

response.write "<hr>Action choosen: " & strAction
%>

Hej!
Det du skriver er OK - Men jeg har allerede et script til at vise brugere, og give dem ID'er - Men det er at slette/flytte brugerne, som det også fremgår af min overskrift. Dvs. det er faktisk det her i din kode:

  If strAction = "delete" then
      'Do some code to delete the user id

Og
elseif strAction = "move" then
      'Do some code to move the user id

Det er de koder jeg mangler, hvordan sletter man når man har flere brugere der skal slettes på engang, og hvordan flytter man dataer på flere brugere...

Håber du kan hjælpe?
-Drago
P.S: TIA
    end if

Det er jo netop derfor jeg skrev, at du skulle komme med din nuværende kode !

Sådan kan du gøre, når du skal slette brugerne:

<%
strSQL = "DELETE FrOM Users WHERE"

For Each item In Request.Form
  If item <> "action" then
    If strAction = "delete" then
      strSQL = strSQL & " (UserId = " & item & ") OR"
    end if
  end if
Next

strSQL = mid(strSQL,1,len(strSQL)-2)

Set DBConn = Server.CreateObject("adodb.Connection")
DBConn.Open strConnect
DBConn.Execute(strSQL)
DBConn.Close
Set dbconn = Nothing

%>

Lav linjen
strSQL = strSQL & " (UserId = " & item & ") OR"

om til
strSQL = strSQL & " (UserId = '" & item & "') OR"

Hej Somaliaomar!
Okay? Koden ser overbevisende ud, men desværre kan jeg ikke lige sætte det ind i koden nu - Men sikkert her i aften, så vil jeg teste det!

Det med flytningen må du også gerne besvare, men der er det vel bare en løkke også...

Håber det hjælper og tak for hjælpen!
-Drago

En løsning kunne være, at lave dit script sådan her:

<%
Response.Expires = 0
strAction = Request.Form("action")

If strAction = "delete" Then
  strSQL = "DELETE FrOM Users WHERE" 
ElseIf strAction = "move" Then
  strSQL = "SELECT * FROM Users WHERE"
End If


For Each item In Request.Form
  If item <> "action" then
    strSQL = strSQL & " (UserId = " & item & ") OR"
  end if
Next

strSQL = mid(strSQL,1,len(strSQL)-2)

Set DBConn = Server.CreateObject("adodb.Connection")
DBConn.Open strConnect

If strAction = "delete" Then
  DBConn.Execute(strSQL)
ElseIf strAction = "move" Then
  Set rs = DBConn.Execute(strSQL)

  While Not rs.EOF
    strSQL = "INSERT INTO Users Username VALUES ('" & rs("Username") & "')"
    DBConn.Execute(strSQL)
  Wend
End If

DBConn.Close
Set dbconn = Nothing

%>

Jeg har simpelthen opgivet det - Men vil nok snart genoptage det, men pga. du dog har arbejdet får du nogle point - Det ser som sagt overbevisende ud, men har ikke haft tid til at prøve det ad...

-Drago