<%
set rsOldnews = connect.execute("select id, rubrik, visa from nyheter order by visa desc")
if request("action") = "modifyme" then
intID=request("ID")
bolVisa=request("visa")
if bolVisa=0 then
strChecked=""
else
strChecked="checked"
end if
set rsNewsToModify = connect.execute ("select id, edatum,datum, rubrik, ingress, bild, bildtext, forfattare, eforfattare, nyheter from nyheter where id=" & intID & "")
txtRubrik=rsNewsToModify("rubrik")
txtNyheter=rsNewsToModify("nyheter")
txtIngress=rsNewsToModify("ingress")
txtBild=rsNewsToModify("bild")
txtBildtext=rsNewsToModify("bildtext")
txtForfattare=rsNewsToModify("forfattare")
txtEforfattare=rsNewsToModify("eforfattare")
end if
if request("action")="modify" then
txtRubrik=request.form("rubrik")
txtNyheter=request.form("meddelande")
txtIngress=request.form("ingress")
txtBild=request.form("bild")
txtBildtext=request.form("bildtext")
txtforfattare=request.form("forfattare")
txteforfattare=request.form("eforfattare")
intedatum=request.form("edatum")
chkCheckbox=request.form("checkbox")
txtNyheter=Replace(txtNyheter,"'","''")
txtNyheter=Replace(txtNyheter,"fitta","grotta")
txtNyheter=Replace(txtNyheter,"fitt","grott")
txtNyheter=Replace(txtNyheter,"kuk","pinne")
txtRubrik=Replace(txtRubrik,"'","''")
txtBildtext=Replace(txtBildtext,"'","''")
txtIngress=Replace(txtIngress,"'","''")
intID=request("ID")
connect.execute ("update nyheter set edatum=#"& intedatum &"#, rubrik='"& txtRubrik &"', nyheter='" & txtNyheter & "', ingress='" & txtIngress & "', bild = '" & txtBild & "', bildtext='" & txtBildtext & "', forfattare='" & txtForfattare & "', eforfattare='" & txtEforfattare & "' where id =" & intID & "")
if chkCheckbox="" then
connect.execute ("update nyheter set visa=0 where id =" & intID & "")
else
connect.execute ("update nyheter set visa=1 where id =" & intID & "")
end if
response.redirect "list.asp"
end if
%>