Avatar billede lund_dk Praktikant
21. juni 2006 - 14:55 Der er 10 kommentarer og
1 løsning

Gem flere records på en gang

Jeg har denne her kode, hvorjeg ved at billede kan afvise eller godkende.

Godkender jeg et billede, skal denne updateres i min tabel "profilepictures" til approved = true

AFviser jeg jeg et billede, skal denne post slettes fra "profilepictures"

Nogen som kan hjælp emig med det?


<div class="title">Godkend profilbilleder</div>

<%
Set rspicture = Conn.Execute("select top 100 * from profilepictures WHERE approved = false")
if not rspicture.eof then 
%>
<table border="0" cellspacing="1" cellpadding="0" width="100%">
  <tr>
 
<%
  AntalKolonner = 3' Juster denne hvis der skal være et andet antal kolonner
  counter = 0
  do while not rspicture.eof
    %>
<td style="text-align:center;" valign="bottom">
<%=ShowProfilePicture("" & rspicture("userID") & "")%><br/>
<%=Getusername("" & rspicture("userID") & "") & Getusernamesex("" & rspicture("userID") & "")%><br/>
<input type="radio" name="<%=rsPicture("ID") %>" value="Godkend" style="background-color:green" checked=""><input type="radio" name="<%=rsPicture("ID") %>" value="Afvis" style="background-color:red"></td>

<%
    response.Write "</td>"
    rspicture.movenext       

    counter = counter + 1
    if counter mod AntalKolonner = 0 then
      response.Write "  </tr>" & vbCrLf
      if not rspicture.eof then
        response.Write "  <tr>" & vbCrLf
      end if
    end if
  loop
  rspicture.close
  set rs = nothing

  ' udfyld resten af cellerne i den aktuelle række
  do while counter mod AntalKolonner <> 0
    response.Write "<td>&nbsp;</td>"
    counter = counter + 1
  loop
%>
  </tr>
</table>
<input type="submit" value="Godkend / Afvis" class="inputsubmit" />
<%
end if
%>
Avatar billede nielle Nybegynder
21. juni 2006 - 15:07 #1
Jeg ser ingen speciel grund til at du lukkede det forrige spørgsmål - vi kunne lige så godt have løst den der. :^|

http://www.eksperten.dk/spm/716639

Men lad os da bare fortsætte her:
Avatar billede nielle Nybegynder
21. juni 2006 - 15:10 #2
Som sagt kan dine radiobuttone ikke have nacne som kun er et tal. Derfor skal den del af din kode rettes fra:

<input type="radio" name="<%=rsPicture("ID") %>" value="Godkend" style="background-color:green" checked="">
<input type="radio" name="<%=rsPicture("ID") %>" value="Afvis" style="background-color:red">

- til:

<input type="radio" name="rb<%=rsPicture("ID") %>" value="Godkend" style="background-color:green" checked="">
<input type="radio" name="rb<%=rsPicture("ID") %>" value="Afvis" style="background-color:red">
Avatar billede lund_dk Praktikant
21. juni 2006 - 15:17 #3
Syntes bare lige pludselig at det hele blev så rodet og var ikke helt med i hvad der var til hvad os..

<div class="title">Godkend profilbilleder</div>

<%
Set rspicture = Conn.Execute("select top 100 * from profilepictures WHERE approved = false")
if not rspicture.eof then 
%>
<table border="0" cellspacing="1" cellpadding="0" width="100%">
  <tr>
 
<%
  AntalKolonner = 5' Juster denne hvis der skal være et andet antal kolonner
  counter = 0
  do while not rspicture.eof
    %>
<td style="text-align:center;" valign="bottom">
<%=ShowProfilePicture("" & rspicture("userID") & "")%><br/>
<%=Getusername("" & rspicture("userID") & "") & Getusernamesex("" & rspicture("userID") & "")%><br/>
<input type="radio" name="rb<%=rsPicture("ID") %>" value="Godkend" style="background-color:green" checked=""><input type="radio" name="rb<%=rsPicture("ID") %>" value="Afvis" style="background-color:red"></td>

<%
    response.Write "</td>"
    rspicture.movenext       

    counter = counter + 1
    if counter mod AntalKolonner = 0 then
      response.Write "  </tr>" & vbCrLf
      if not rspicture.eof then
        response.Write "  <tr>" & vbCrLf
      end if
    end if
  loop
  rspicture.close
  set rs = nothing

  ' udfyld resten af cellerne i den aktuelle række
  do while counter mod AntalKolonner <> 0
    response.Write "<td>&nbsp;</td>"
    counter = counter + 1
  loop
%>
  </tr>
</table>
<input type="submit" value="Godkend / Afvis" class="inputsubmit" />
<%
end if
%>
Avatar billede nielle Nybegynder
21. juni 2006 - 15:19 #4
På den side som formen submitter til, skal der være følgende loop:

Set rsPicture = Conn.Execute("SELECT * FROM profilepictures")
Do While Not rsPicture.EOF
    rb = "" & Request.Form("rb" & rsPicture("ID"))

    Select Case rb
        Case "Godkend"
            sqlUpdate = "UPDATE profilepictures SET approved = " & rb & " WHERE id = " & rsPicture("ID")
            Conn.Execute(sqlUpdate)
        Case "Afvis"
            sqlDelete = "DELETE FROM profilepictures WHERE id = " & rsPicture("ID")
            Conn.Execute(sqlDelete)
        Case Else
            Response.Write "Ukendt værdi af radiobutton: " & rb & "<br>"
    End Select

    rsPicture.MoveNext
Loop
Avatar billede nielle Nybegynder
21. juni 2006 - 15:22 #5
> Syntes bare lige pludselig at det hele blev så rodet

Hmmm, jeg synes så til gengæld sjældent at tingene bliver mindre rodet, hvis de flyttes over i et nyt spørgsmål...
Avatar billede lund_dk Praktikant
21. juni 2006 - 15:22 #6
ja der var den,

sqlUpdate = "UPDATE profilepictures SET approved = " & rb & " WHERE id = " & rsPicture("ID")
skulle bare lige ændres til
sqlUpdate = "UPDATE profilepictures SET approved = true WHERE id = " & rsPicture("ID")
Avatar billede nielle Nybegynder
21. juni 2006 - 15:24 #7
Korrekt - det skulle jeg iøvrig lige til at skrive, men så kom du mig i forkøbet :^)
Avatar billede nielle Nybegynder
21. juni 2006 - 15:25 #8
I det andet spørgsmål nævnte du at du kunne tænke dig at du før eller siden ville tilføje flere muligheder end de to.

Koden i 21/06-2006 15:19:42 er forberedt på dtte: Der skal bare smides en passende Case ind for hver ny mulighed.
Avatar billede lund_dk Praktikant
21. juni 2006 - 15:44 #9
Det er bare perfekt, så leger jeg videre med det,, tak for hjælpen
Avatar billede nielle Nybegynder
21. juni 2006 - 15:45 #10
Svar :^(
Avatar billede nielle Nybegynder
21. juni 2006 - 17:11 #11
Det var absolut den forkerte parentes jeg fik trykket på det - det var ikke sådan ment.

Svar :^)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester