Tävlingar <% SQL = "SELECT * From propositioner ORDER BY propDate ASC" Databas.Execute( SQL ) set RecSet=Databas.execute(SQL) Do Until RecSet.EOF %>

<% =RecSet("propTitle")%> - <% d = RecSet("propDate") %><%=Right("0" & Day(d),2)%> <% =LCase(Monthname(Month(d), True))%> <% =Year(d)%>
<% If NOT RecSet("propURL") = "" then response.write "Proposition " else Response.write "Proposition" End if %> | <% If NOT RecSet("propRm") = "" then response.write "Ryttarmeddelande " else Response.write "Ryttarmeddelande" End if %> | <% If NOT RecSet("propSl") = "" then response.write "Startlistor " else Response.write "Startlistor" End if %> | <% If NOT RecSet("propRes") = "" then response.write "Resultat " else Response.write "Resultat" End if %>

<% RecSet.MoveNext Loop RecSet.Close set RecSet = Nothing %>