<% strPub=Request("pubdate") strTit=Request("title") strTex=Request("text") strInf=Request("info") strHtm=Request("html") strID=Request("ID") Set DataConn = Server.CreateObject("ADODB.Connection") Set rs = Server.CreateObject("ADODB.Recordset") DataConn.Open Session("dbConn") if strID=99999999 then MYSQL = "SELECT * FROM news ORDER BY ID;" rs.Open MYSQL, DataConn, 1, 3 rs.Addnew else MYSQL = "SELECT * FROM news WHERE ID=" & strID & " ORDER BY ID;" rs.Open MYSQL, DataConn, 1, 3 end if rs("Rubrik") = Request("rubrik") rs("Title") = strTit rs("Text") = strTex rs("Html") = strHtm rs("Pubdate") = Request("pubdate") rs("Arkdate") = Request("arkdate") rs("Info") = strInf rs("Arkiveras") = Request("arkiv") rs.Update rs.Close Set DataConn = Nothing Set rs = Nothing response.redirect("listanyheter.asp") %>