<% startSQL = "SELECT TOP 1 * From start WHERE startType='start' ORDER BY startID DESC" Databas.Execute( startSQL ) set RecSet=Databas.execute(startSQL) %>

<% =RecSet("startTitle")%>
<% =textfix(RecSet("startText"))%>

<% RecSet.Close set RecSet = Nothing %>

Senaste nytt
<% SQL = "SELECT TOP 5 newsID, newsTitle, newsDate, newsIngress From news ORDER BY newsDate DESC" Databas.Execute( SQL ) set RecSet=Databas.execute(SQL) Do Until RecSet.EOF %> <% =RecSet("newsTitle")%> - <% d = RecSet("newsDate") %><%=Right("0" & Day(d),2)%> <% =LCase(Monthname(Month(d), True))%> <% =Year(d)%>
<%If Len(RecSet("newsIngress")) > 120 Then Response.write Left(RecSet("newsIngress"),120) & "..." Else Response.write textfix(RecSet("newsIngress")) End If %>
">Läs mer

<% RecSet.MoveNext Loop RecSet.Close set RecSet = Nothing %> Visa alla nyheter