<% Dim rs, strSQL, toPrint, aPost, newsID Set rs = Server.CreateObject("ADODB.RecordSet") strSQL = "SELECT * FROM happy_news" rs.Open strSQL, objConn %> Happy Metal - Ger dig glädje! <% While (not rs.EOF) %> <% rs.MoveNext Wend %>
Senaste nytt
:: <% aPost = rs("newsText") newsID = rs("nID") If Len(aPost) > 100 Then toPrint = Left(aPost, 100) toPrint = toPrint & "...
" Response.Write toPrint Response.Write "
" %> Läs mer >> <% Else toPrint = aPost Response.Write toPrint End If %>