[an error occurred while processing this directive]

[an error occurred while processing this directive]
[an error occurred while processing this directive] <% Set RecSet = Server.CreateObject("adodb.recordset") Visa = "SELECT * FROM _aktuellt" RecSet.open Visa, Connect, adopenstatic, adlockoptimistic %> <% RecSet.Close Connect.Close %>
Aktuellt
<% aktuellt = Trim(RecSet("aktuellt")) If aktuellt ="nix" Then ElseIf aktuellt ="aktuellt" Then %>
<%= RecSet("datum") %>

<%= RecSet("rubrik") %>

<% inlagg = RecSet("inlagg") inlagg = Trim(inlagg) inlagg = Server.HtmlEncode(inlagg) inlagg = Replace (inlagg,vbCrLf,"
") If inlagg ="" Then Response.Write " " Else Response.Write inlagg End If End If aktuellt2 = Trim(RecSet("aktuellt2")) If aktuellt2 ="nix" Then ElseIf aktuellt2 ="aktuellt" Then %>


<%= RecSet("datum2") %>

<%= RecSet("rubrik2") %>

<% inlagg2 = RecSet("inlagg2") inlagg2 = Trim(inlagg2) inlagg2 = Server.HtmlEncode(inlagg2) inlagg2 = Replace (inlagg2,vbCrLf,"
") If inlagg2 ="" Then Response.Write " " Else Response.Write inlagg2 End If End If aktuellt3 = Trim(RecSet("aktuellt3")) If aktuellt3 ="nix" Then ElseIf aktuellt3 ="aktuellt" Then %>


<%= RecSet("datum3") %>

<%= RecSet("rubrik3") %>

<% inlagg3 = RecSet("inlagg3") inlagg3 = Trim(inlagg3) inlagg3 = Server.HtmlEncode(inlagg3) inlagg3 = Replace (inlagg3,vbCrLf,"
") If inlagg3 ="" Then Response.Write " " Else Response.Write inlagg3 End If End If aktuellt4 = Trim(RecSet("aktuellt4")) If aktuellt4 ="nix" Then ElseIf aktuellt4 ="aktuellt" Then %>


<%= RecSet("datum4") %>

<%= RecSet("rubrik4") %>

<% inlagg4 = RecSet("inlagg4") inlagg4 = Trim(inlagg4) inlagg4 = Server.HtmlEncode(inlagg4) inlagg4 = Replace (inlagg4,vbCrLf,"
") If inlagg4 ="" Then Response.Write " " Else Response.Write inlagg4 End If End If %> 		Protokoll