S/V Isolda af Göteborg
[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 FROM [album02] WHERE bild='0' " Set RecSet = Connect.Execute(sql) Dim rubrik rubrik = RecSet("rubrik") If IsNull(rubrik) OR (rubrik)= "" Then Response.Write "" Else rubrik = Replace(rubrik,vbCrLf,"
") rubrik = Trim(rubrik) rubrik = Server.HTMLEncode(rubrik) Response.Write "" Response.Write (rubrik) Response.Write "" End If RecSet.Close Set RecSet = Nothing Connect.Close Set Connect = Nothing %>

Klicka på respektive på bild för en större variant med bläddring.
[an error occurred while processing this directive] <% Set RecSet = Server.CreateObject("ADODB.Recordset") Sql = "SELECT antal FROM [album02] WHERE bild='0' " Set DataRes = Connect.Execute(sql) Dim antal antal = Trim(DataRes("antal")) %>
<% If antal => 1 Then Response.Write "" End If %> <% If antal => 2 Then Response.Write "" End If %> <% If antal => 3 Then Response.Write "" End If %>
<% If antal => 4 Then Response.Write "" End If %> <% If antal => 5 Then Response.Write "" End If %> <% If antal => 6 Then Response.Write "" End If %>
<% If antal => 7 Then Response.Write "" End If %> <% If antal => 8 Then Response.Write "" End If %> <% If antal => 9 Then Response.Write "" End If %>
<% If antal => 10 Then Response.Write "" End If %> <% If antal => 11 Then Response.Write "" End If %> <% If antal => 12 Then Response.Write "" End If %>
<% If antal => 13 Then Response.Write "" End If %> <% If antal => 14 Then Response.Write "" End If %> <% If antal => 15 Then Response.Write "" End If %>
<% If antal => 16 Then Response.Write "" End If %> <% If antal => 17 Then Response.Write "" End If %> <% If antal => 18 Then Response.Write "" End If %>
<% If antal => 19 Then Response.Write "" End If %> <% If antal => 20 Then Response.Write "" End If %> <% If antal => 21 Then Response.Write "" End If %>
<% If antal => 22 Then Response.Write "" End If %> <% If antal => 23 Then Response.Write "" End If %> <% If antal => 24 Then Response.Write "" End If %>
<% If antal => 25 Then Response.Write "" End If %> <% If antal => 25 Then Response.Write "" End If %> <% If antal => 27 Then Response.Write "" End If %>
<% If antal => 28 Then Response.Write "" End If %> <% If antal => 29 Then Response.Write "" End If %> <% If antal => 30 Then Response.Write "" End If %>
<% DataRes.Close Set DataRes = Nothing Connect.Close Set Connect = Nothing %> [an error occurred while processing this directive] [an error occurred while processing this directive]