Set objRS = objConn.Execute("SELECT * FROM FORUM_kategorier WHERE katBorttaget =0 ORDER BY katOrdning ASC")
If objRS.EOF Then
Response.Write "<div id='fel'>TOMT</div>"
Else
%>
<form action="index.asp?do=forum&visa=saveKatOrdning" method="post">
<table>
<tr>
<td>Namn</td>
<td>Ordning</td>
</tr>
<%
Do While Not objRS.EOF
%>
<tr>
<td><%=objRS("katNamn")%></td>
<td><input name="<%=objRS("katID")%>" maxlength="2" value="<%=objRS("katOrdning")%>" type="text" /></td>
</tr>
<%
objRS.MoveNext
Loop
objRS.Close
Set objRS = nothing
%>
</table>
<input name="spara" type="submit" value="Uppdatera" />
</form>
<%
END IF
den loopar ut alla kategorierna som man sedan ska kunna ändra ordning på, men frågan är då hur uppdaterar man i tabellen när man trycker på spara? Då det är en knapp för alla som loopades fram inte för var och en.
En smärre justering bara så är det inga problem! :)
...
<%
Do While Not objRS.EOF
%>
<tr>
<td><%=objRS("katNamn")%></td>
<td>
<input type="hidden" name="katID" value="<%=objRS("katID")%>" />
<input name="katOrdning" maxlength="2" value="<%=objRS("katOrdning")%>" type="text" /></td>
</tr>
<%
objRS.MoveNext
Loop
objRS.Close
Set objRS = nothing
%>
...
Sen updaten
Dim i
If Request.QueryString("do") = "forum" Then
For i = 1 To Request.Form("katID").count
objConn.execute("UPDATE FORUM_kategorier SET katOrdning=" & Request.Form("katOrdning")(i) & " WHERE katID=" & Request.Form("katID")(i))
Next
End If
