<%@ Language=VBScript %> <% strSQL = "SELECT * FROM tbl_tips ORDER BY nieuwsID" Set adoRS = Server.CreateObject("ADODB.RecordSet") adoRS.Open strSQL, DSN, 3 %>

<% While Not adoRS.EOF Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" adoRS.MoveNext Wend%> " Response.Write adoRS("nieuwstitel") Response.Write " " Response.Write adoRS("nieuwsomschrijving") Response.Write " " Response.Write "" Response.Write " " Response.Write "" Response.Write " " Response.Write "" Response.Write "

<% adoRS.Close Set adoRS = Nothing %>