Prøv lige at se her Erik:
<form action=update.asp?mode=arkiv method=post name=formarkiv>
<%
Set myConn = Server.CreateObject(\"ADODB.Connection\")
strSQL = \"SELECT * FROM presse order by oprettet desc\"
myConn.Open Connection
Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
Response.Write \"<table border=0 cellpadding=10 cellspacing=0 class=whitetext>\"
Response.Write \"<tr><td><b>Velkommen til Easy Update.</b><br>Du kan redigere og slette dine pressemeddelelser ved at klikke \"\"Rediger\"\" eller \"\"Slet\"\". Hvis du vælger \"\"Opret\"\" kan du oprette en nye pressemeddelelse. Med vis knappen vises databasen pressemeddelelser som de tager sig ud på hjemmesiden.<br><br>\"
Response.Write \"<table class=whitetext cellpadding=1>\"
Response.Write \"<tr bgcolor=#00013A><td>Oprettet</td><td>Titel</td><td>Sti</td><td> Editering</td><td> Arkiv </td></tr>\"
Do While Not rs.EOF
tekst = rs(\"tekst\")
titel = rs(\"titel\")
Response.Write \"<tr><td>\" & rs(\"oprettet\") & \"</td><td>\"
Response.Write titel
Response.Write \"</td><td><input size=30 type=text value=\"\"java script:multiload(\'nyheder/menu_pressemeddelelser.htm\',\'nyheder/artikel.asp?id=\" & rs(\"presseid\") & \"\')\"\"></td><td><a href=update.asp?mode=rediger&id=\" & rs(\"presseid\") & \"> - Rediger</a><a href=update.asp?mode=slet_process&id=\" & rs(\"presseid\") & \"> Slet</a></td>\" &_
\"<td align=center><input type=checkbox name=arkivch\" & rs(\"presseid\") & \" value=\" & rs(\"presseid\")
if rs(\"arkiv\") = \"Sand\" Then
Response.Write \" checked\"
end if
Response.Write \" OnClick=\"\"document.forms.formarkiv.submit()\"\"><br></td></td></tr>\"
rs.MoveNext
Loop
Response.Write \"</table><br></td></tr></table>\"
Else
Response.Write \"<p>Databasen er tom!</p>\"
End If
myConn.Close
Set myConn = Nothing
%>
</form>
Request.form side:
Set Conn = Server.CreateObject(\"ADODB.Connection\")
SQL = \"SELECT * FROM presse order by oprettet desc\"
Conn.Open Connection
Set rs = Conn.Execute(SQL)
If Not (rs.BOF Or rs.EOF) Then
Do While Not rs.EOF
id = rs(\"presseid\")
if Request.Form(\"inputnavn\") <> \"\" then arkiv = 1 else arkiv = 0 end if
Set myConn = Server.CreateObject(\"ADODB.Connection\")
SQL = \"update presse set arkiv = \'\"&arkiv&\"\' where presseID = \" & id
myConn.open Connection
Response.Write SQL & \"<br>\"
myConn.execute SQL
rs.MoveNext
Loop
Else
Response.Write \"<p>Databasen er tom!</p>\"
End If
Conn.Close
Set Conn = Nothing
Min i´de med dette forsøg var at update id\'er men det virker som bekendt ikke da en ikke checked box mangler en value.
Men jeg kan ikke rigtig se iéen med din kode Erik.
