<% On Error Resume Next key = Request.QueryString("key") Archief = Request.QueryString("Archief") Dim LogTable Set conn = Server.CreateObject("ADODB.Connection") conn.Open xDb_Conn_Str SQL = "SELECT * FROM tblCMS WHERE BerichtID = " & key Set rs = Server.CreateObject("ADODB.Recordset") rs.Open SQL, conn If Not rs.Eof Then rs.MoveFirst BerichtID = rs("BerichtID") Datum = rs("Datum") Response.write "

" & rs("Titel") & "

" & vbCr Response.write "

" & rs("Bericht") End If rs.Close Set rs = Nothing Response.write "

" If Archief = 1 Then Response.write "<<< terug" Else Response.write "<<< home" End If Response.write "

" conn.close Set Conn = Nothing %>