webForumDet fria alternativet

Uppdatera flera poster

ASP

3 svar · 370 visningar · startad av Biasse

Medlem sedan aug. 2003480 inlägg
Frågan#1

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
%>
Medlem sedan dec. 200012 464 inlägg
#2

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.

Medlem sedan aug. 2003480 inlägg
#3

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>
Medlem sedan dec. 200012 464 inlägg
#4
intupdate  = request.QueryString("categorys_id")
strOrdning = Request.Form("ordning")

Varför använder du querystring i den ena och form i den andra?

257 ms totalt · 4 externa anrop · v20260731065814-full.a51de22e
128 ms — deklarationer (db)
0 ms — hämta statistik (cache)
126 ms — hämta tråd, inlägg och bilagor (db)
126 ms — ändringar (db)