Flytte fra en række til en anden med asp

ved ikke lige om dette virker men maaske :o)

Sql = "SELECT * FROM DinTabel"

Set Rs = Conn.Execute(Sql)

Do While NOT Rs.EOF
intTmp = Rs("col1") ' Den oprindelige kolonne
Rs("col2") = intTmp
Rs("col1") = 0
Rs.UpDate
Rs.MoveNext
Loop

Kan du ikke gøre sådan at man kan indtaste via et tekst felt hvor meget der skal overføres? Tekst feltets navn er points

Do While NOT Rs.EOF
if Request.Form("points") <= Rs("col1") THEN intTmp = (Rs("col1") - Request.Form("points"))
Rs("col2") = Request.Form("points")
Rs("col1") = intTmp
Rs.UpDate
Rs.MoveNext
Loop

ved ikke lige om jeg fik dig helt rigtig men proev lige

Det er sådan at hvis vi siger at der i "col1" er 500 og så vi i feltet points skriver 30 så skal den flytte de 30 fra "col1" til "col2"

er det ikke ogsaa det som der sker nu?

strSQL = "UPDATE xxx SET col2 = col1 - " & points & ", col1 = col1 - " & points & ";"

soes> Kan du ikke lave sådan at hvis ikke der er points nok i col1 så sender den brugeren til en bestemt side?

Do While NOT Rs.EOF
if Request.Form("points") <= Rs("col1") THEN
intTmp = (Rs("col1") - Request.Form("points"))
Rs("col2") = Request.Form("points")
Rs("col1") = intTmp
Rs.UpDate
Rs.MoveNext
Else
response.redirect("dinside.asp")
Loop

tror at det virker

Der er noget galt... Jeg tror det er det der loop. Den skal kun bruges en gang. Det er der hvor id = session("id")

Nu skal det være, jeg gir 60 points for at få din (soes) kode til at virke sammen med denne her kode:

      rs.AddNew
      rs("Navn") = Request.form("Navn")
      rs("kat") = Request.form("kat")
      rs("f_points") = Request.form("points")
      rs("Besked") = Request.form("Besked")
      rs("Dato") = Now()
      rs("IP") = request.servervariables("remote_Addr")
      rs.Update

Det skal være sådan at den først flytter pointsne fra col1 til col2 og så skal den udløse koden ovenover. Og hvis ikke der er nok points i col1 så skal den sende til en side der hedder fejl.asp

håber i forstår.

proev lige dette:
<%
Sql = "SELECT * FROM DinTabel WHERE id = " & Session("id")

Set Rs = Conn.Execute(Sql)
intPoint = Request.Form("points")

If Rs("f_points") >= intPoint THEN
intTmp = (Rs("col1") - Request.Form("points"))
Rs("col2") = Request.Form("points")
Rs("col1") = intTmp
Rs.UpDate
datSuc = True
Else
datSuc = False
End If

If datSuc = True THEN
rs.AddNew
      rs("Navn") = Request.form("Navn")
      rs("kat") = Request.form("kat")
      rs("f_points") = Request.form("points")
      rs("Besked") = Request.form("Besked")
      rs("Dato") = Now()
      rs("IP") = request.servervariables("remote_Addr")
      rs.Update
Else
Response.redirect("fejl.asp")
End If
%>

Den siger Too few parameters. Expected 1 i linien med Set Rs = Conn.Execute(Sql)

Er du der??

lukker