[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") %>
<% Sql = "SELECT rubrik, antal FROM [album03] WHERE bild='0' " Set RecSet = Connect.Execute(sql) Dim rubrik, sista sista = Trim(RecSet("antal")) If IsNull(text) OR (rubrik)= "" Then Response.Write "" Else rubrik = RecSet ("rubrik") rubrik = Trim(rubrik) rubrik = Server.HTMLEncode(rubrik) rubrik = Replace(rubrik,vbCrLf,"
") Response.Write "" Response.Write (rubrik) Response.Write "" End If RecSet.Close Set RecSet = Nothing %>

<% Sql = "SELECT text, bild FROM album03 WHERE bild='" & Trim(Request.QueryString("bild")) & "' " Set RecSet = Connect.Execute(sql) If request.querystring("bild") = "" & Trim(Request.QueryString("bild")) & "" Then %> .jpg" border="0">

<% If request.querystring("bild") = "1" Then %> « förra <% Else %> " onFocus="this.blur();" title="förra bilden">« förra <% End If %> | tillbaka | <% If request.querystring("bild") = "" & Trim(sista) & "" Then %> nästa » <% Else %> " onFocus="this.blur();" title="nästa bild">nästa » <% End If %>

<% text = RecSet ("text") If IsNull(text) OR (text)= "" Then Response.Write "" Else text = Trim(text) text = Server.HTMLEncode(text) text = Replace(text,vbCrLf,"
") Response.Write "" Response.Write (text) Response.Write "" End If %> <% End If RecSet.Close Set RecSet = Nothing %>
<% Connect.Close Set Connect = Nothing %>