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 %>
Støv, fibre og metalliske partikler kan påvirke både uptime, levetid og driftssikkerhed. Derfor arbejder flere datacentre systematisk med contamination control.
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.