<%
if request("action") = "update" then
if request("password") <> "hike97" then
msg = "The password you entered was not correct."
else
set cnn = server.createobject("adodb.connection")
cnn.open connect
cnn.execute "UPDATE tbl_store SET active=0"
for each itm in request.form
if left(itm, 6) = "store-" then
temp = replace(itm,"store-","")
if request(itm) & "" = "1" then
cnn.execute "UPDATE tbl_store SET active=1 WHERE id=" & temp
end if
end if
next
cnn.close
set cnn = nothing
end if
end if
%>