<% Response.Buffer = True %> <% Set myConn = Server.CreateObject("ADODB.Connection") myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database.mdb") If Request.QueryString("id") <> "" Then Set rs = Server.CreateObject("ADODB.RecordSet") strSQL = "SELECT * FROM nyheder WHERE (ID = " & Request.QueryString("id") & ")" rs.Open strSQL, myConn, 1, 3 If Not (rs.BOF Or rs.EOF) Then Response.write "

" & rs("overskrift") & " Dato " & rs("dato") & " " & rs("nyhed") & " Forfatter: " & rs("forfatter") & "

" rs.Update rs.Close myConn.Close Set rs = Nothing Set myConn = Nothing End If End If %> Tilbage