vis/skjul ved hjælp af \"Checkbox\"

Hver felt skal havde en checkbox. Alle checkboxe skal havde samme navn og deres value skal være ID på posten. Så skal du havde en update side som gemmer i databasen. Det har du sikkert, så du kan ligge det kode ind som er i bunden:

Checkboxen:
<input type=\"checkbox\" name=\"visstatus\" value=\"<%=rs(\"ID\")%>\" <% if rs(\"vis\") = true then Response.Write \" checked\"%>>Vis


Kode som updater databasen:
  strIDinput = Request.Form(\"visstatus\")
  if strIDinput = \"\" then \'Alle er sat til ikke vis
    strSQL = \"UPDATE tabel SET vis=false;\"
    myConn.Execute (strSQL)
  else 
    strSQL = \"UPDATE tabel SET vis=true WHERE id IN (\" & strIDinput & \");\" \'Opdate dem som er valgt til true
    myConn.Execute (strSQL)
    strSQL = \"UPDATE tabel SET vis=false WHERE id NOT IN (\" & strIDinput & \");\" \'Opdater dem som ikke er valgt til false
    myConn.Execute (strSQL)
  end if

Vil du skrive hele databasekaldet ind her?

Jeg bruger denne side som action i min form:
<% Option Explicit
Response.Buffer = True %>
<%
strIDinput = Request.Form(\"visstatus\")
if strIDinput = \"\" then \'Alle er sat til ikke vis
strSQL = \"UPDATE news SET vis=false;\"
myConn.Execute (strSQL)
else 
strSQL = \"UPDATE news SET vis=true WHERE id IN (\" & strIDinput & \");\" \'Opdate dem som er valgt til true
myConn.Execute (strSQL)
strSQL = \"UPDATE news SET vis=false WHERE id NOT IN (\" & strIDinput & \");\" \'Opdater dem som ikke er valgt til false
myConn.Execute (strSQL)
end if
Response.Redirect(ViewList.asp)
%>

VesTer

myConn skal være en connection til din database som vis ligger i:

Eks på myConn

strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\".\\db\\db5.mdb\")
Set myConn = Server.CreateObject(\"ADODB.Connection\")
Set rs = Server.CreateObject(\"ADODB.RecordSet\")
myConn.Open strDSN

var det det du mente ?

Det var det jeg mente, men nu skriver den dette:


Der opstod en Microsoft VBScript-kørselsfejl fejl \'800a01f4\'

Variablen er ikke defineret: \'strDSN\'

så skal der nok lige en dim stDSN ind:
dim strDSN
strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\".\\db\\db5.mdb\")

Efter at have tilføjet denne linie virkede det:
Dim strDSN, myConn, rs, strIDinput, strSQL

Tak for hjælpen

VesTer