<% dim DB set DB = Server.CreateObject ("ADODB.Connection") DB.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & server.mappath("Dbase/sider.mdb") dim ID ID = request.querystring("ID") if ID <> "" then set RS = DB.execute("SELECT * FROM [side] WHERE [ID]=" & ID ) if not RS.EOF then response.write "

"& RS.fields("Tittel") & "

" & vbCrLf response.write RS.fields("HTML") & vbCrLf else response.write "Side finnes ikke." & vbCrLf end if else set RS = DB.execute("SELECT * FROM [side] ORDER BY [Dato]") response.write "

Sider

" & vbCrLf RS.movefirst while not RS.EOF response.write("" & RS.Fields ("Tittel") & "
" & vbCrLf) RS.movenext wend end if DB.close %>