%Option Explicit%>
| <% dim RS, SQL if request("gem")<> "" then set RS = server.createobject("ADODB.recordset") SQL = "UPDATE modstandere SET modstandernavn='"&request("modstandernavn")&"', modstanderintro='"&request("modstanderintro")&"', modstanderinfo='"&request("modstanderinfo")&"' WHERE modstanderid = "&request("id")&";" response.write SQL RS.Open SQL,conn,2,3 set RS = nothing response.redirect("modstander.asp") else set RS = server.createobject("ADODB.recordset") SQL = "SELECT * FROM modstandere WHERE modstanderid = "&request("id") RS.Open SQL,conn if not rs.eof then %> <% end if rs.close set rs= nothing end if %> |