Artiklar:

<%sql = "SELECT * FROM Artiklar WHERE aktiv" set rs = BnetConnection.Execute(sql)%> <%do until rs.eof%> "><%=rs("Topic")%> <%rs.movenext loop%>

<%if Selected then%>
<%=rs_selected("Topic")%>
<% dim strText strText = rs_selected("text") strText = replace(strText,VbCrLf,"
") %> <% =strText%>

<%end if%>