Länkar


<% dat2 = date + 90 dat3 = date Set annons = Server.CreateObject("ADODB.Recordset") annons.CursorLocation = adUseClient annons_sql = "SELECT * FROM links ORDER BY datum DESC" '"SELECT * FROM datum ORDER BY datum ASC" annons.Open annons_sql, objConn, 3, 1 %>

Vi rekommenderar följande länkar 
 
<% If annons.EOF Then Response.Write "Tyvärr finns inga länkar inlagda i databasen." Else do while not annons.EOF nummer = nummer + 1 If nummer Mod 2 = 0 then color = "#FDFDFD" Else color = "#EEEEEE" End If %> <% annons.MoveNext Loop end if annons.close set annons = nothing %>
<%= annons("rubrik")%> <%= annons("datum")%> " target="_blank">Besök <%= annons("rubrik")%>
<%= Replace(annons("text"),vbCrlf,"
")%>