Problemer med og opdatere db fra formel.
Hej,jeg har et problem med og opdatere i en database (SQL Server2000). Det er meningen at formen skal requeste statusen på et objekt fra databasen, og så selecte den alternativknap, som status er lig med. Det gør den oxo.
----Klip af forlen:
<%
do until rs.Eof
response.write "<tr><td><center><b>"
response.write rs("object")
response.write "</b><br></td>"
response.write "<td><center><input type='radio' value='3' name='" & rs("object") & "'"
if rs("status") = "3" then
response.write "checked></td>"
else
response.write "></td>"
End If
response.write "<td><center><input type='radio' value='2' name='" & rs("object") & "'"
if rs("status") = "2" then
response.write "checked></td>"
else
response.write "></td>"
End If
response.write "<td><center><input type='radio' value='1' name='" & rs("object") & "'"
if rs("status") = "1" then
response.write "checked></td>"
else
response.write "></td>"
End If
response.write "</tr>"
rs.movenext
loop
%>
////klip
Dataene fra den formel vi så blive posted til filen: "update.asp", som indeholder de oplyninger der skal til for og opdatere databasen.
----Klip af update.asp
<%
do until rs.eof
dim object
object = rs("object")
dim value
if request.form("& object &")=3 then
set value =3
elseif request.form("& object &")=2 then
set value =2
elseif request.form("& object &")=1 then
set value =1
end if
'SQL sætning opbygges
strSQL = "UPDATE objects SET status ='"& value &"' WHERE object ="& object
' SQL sætning eksekveres
Conn.Execute(strSQL)
rs.movenext
loop
response.redirect "default.asp"
%>
