<% set rsvisa = connect.execute ("select id from visa") intid=request.QueryString("id") set rsOldnews = connect.execute("select id, rubrik, ingress, bild, bildtext, datum, forfattare, eforfattare, nyheter from nyheter where id=" & intid & "") set rsantal = connect.execute ("select antal from antal") %> <% =rsOldnews("Rubrik") %> <% intAntal=rsantal("antal") alignment="right" antal=0 do until rsoldnews.eof or antal = intantal if rsoldnews("bild")="no_image.jpg" then %>
<% if rsoldnews("ingress") >"" then %> <% else %> <% end if %>
<% =rsOldnews("Rubrik") %>
Skrivet: <% =FormatDateTime(rsOldnews("Datum"),2) %> Av: "> <% =rsOldnews("Forfattare") %>
<% =rsOldnews("ingress") %>

<% =rsOldnews("nyheter") %>
<% =rsOldnews("nyheter") %>


<% else %>
<% if rsoldnews("ingress") >"" then %> <% else %> <% end if %>
<% =rsOldnews("Rubrik") %>
Skrivet: <% =FormatDateTime(rsOldnews("Datum"),2) %> Av: "> <% =rsOldnews("Forfattare") %>
">
<% =rsOldnews("Bildtext") %>
 
<% =rsOldnews("ingress") %>

<% =rsOldnews("Nyheter") %>
<% =rsOldnews("Nyheter") %>


<% end if %>

<% antal=antal+1 rsOldnews.movenext loop %> <% rsOldnews.close set rsoldnews = nothing rsantal.close set rsantal = nothing rsvisa.close set rsvisa = nothing %>