21. juni 2006 - 14:55Der 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> </td>" counter = counter + 1 loop %> </tr> </table> <input type="submit" value="Godkend / Afvis" class="inputsubmit" /> <% end if %>
De fleste virksomheder har efterhånden bevist, at AI virker.
Pilotprojekter leverer resultater. Medarbejdere bruger generative AI-værktøjer. Nye use cases dukker op på tværs af organisationen.
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> </td>" counter = counter + 1 loop %> </tr> </table> <input type="submit" value="Godkend / Afvis" class="inputsubmit" /> <% end if %>
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
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")
Det var absolut den forkerte parentes jeg fik trykket på det - det var ikke sådan ment.
Svar :^)
Synes godt om
Ny brugerNybegynder
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.