På vilket sätt fungerar det inte?
Gör en utskrift av SQL-frågan innan den utförs
q = "UPDATE forum_categorys SET ordning = '" & arrOrdning(x) & "' WHERE categorys_id = " & arrupdate(x)
response.write "Debug: " & q
och posta resultatet.
3 svar · 370 visningar · startad av Biasse
Sökt efter metod att ändra värde i flera av de poster jag loopat ut. Har hittat ett sätt men det vill inte fungera. Vad är det som är fel i detta?
<%
If Request.Querystring("do") = "spara" Then
intupdate = request.QueryString("categorys_id")
strOrdning = Request.Form("ordning")
arrupdate = Split(intupdate,", ")
arrOrdning = Split(strOrdning,", ")
For x = 0 To Ubound(arrupdate)
Connect.Execute("UPDATE forum_categorys SET ordning = '" & arrOrdning(x) & "' WHERE categorys_id = " & arrupdate(x) & "")
Next
End If
%>
På vilket sätt fungerar det inte?
Gör en utskrift av SQL-frågan innan den utförs
q = "UPDATE forum_categorys SET ordning = '" & arrOrdning(x) & "' WHERE categorys_id = " & arrupdate(x)
response.write "Debug: " & q
och posta resultatet.
re:
Kommer med lite kod så blir det enklare :) Det som sker är att inget sker ;)
Jag har en kolum i "forum_categorys" som heter "ordning". Den innehåller tal från 1 --> till så många kategorier det finns. Det jag vill kunna göra är att ändra ordning på dom.
<form method="post" action="test.asp?do=spara">
<!-- #include file = "include/settings2.asp" -->
<%
SQL = "SELECT * From forum_categorys ORDER BY category_id ASC"
Set RecSet = Connect.Execute(SQL)
%>
<table border="1" width="600" cellpadding="0" cellspacing="0" align="center">
<%Do Until RecSet.Eof%>
<tr>
<td class="rubrik3" width="150"><font color="990000"><i><%=RecSet("category_headline")%></i></font></td>
<td class="rubrik3"><!-- #include file = "kat_meny.asp" --></td>
</tr>
<%
RecSet.Movenext
Loop
RecSet.Close
Connect.Close
Set RecSet = Nothing
Set Connect = Nothing
%>
<table border="1" width="600" cellpadding="0" cellspacing="0" align="center">
<tr>
<td class="rubrik2"><input type="submit" style="font-family: verdana; font-size: 10px" value="Ändra" /></td>
</tr>
</form>
</table>
<%
If Request.Querystring("do") = "spara" Then
intupdate = request.QueryString("category_id")
strOrdning = Request.Form("ordning")
arrupdate = Split(intupdate,", ")
arrOrdning = Split(strOrdning,", ")
For x = 0 To Ubound(arrupdate)
Connect.Execute("UPDATE forum_categorys SET ordning = '" & arrOrdning(x) & "' WHERE category_id = " & arrupdate(x) & "")
Next
End If
%>
Sen menyn som includeras:
<%
Dim RS
Set RS = Connect.Execute(SQL)
%>
<from>
<select size="1" name="ordning">
<option value="#"><%=RecSet("ordning")%>
<%Do Until RS.EOF%>
<option value=<%=RS("ordning")%>><%=RS("ordning")%></option>
<%
RS.MoveNext
Loop
RS.Close
Set RS = Nothing
%>
</select>
</from>
intupdate = request.QueryString("categorys_id")
strOrdning = Request.Form("ordning")
Varför använder du querystring i den ena och form i den andra?