<% Dim cnn Dim rstSpelers set cnn = Server.CreateObject("ADODB.Connection") cnn.ConnectionString = "Driver={MySQL}; Server=mysqlhost; Database=???; User ID=???; Password=???;" cnn.Open set rstSpelers = Server.CreateObject("ADODB.Recordset") rstSpelers.Open "select * from tblSpelers where status = 'N'", cnn, 3, 1 %> <% rstSpelers.movefirst do while not rstSpelers.eof Response.Write("") rstSpelers.movenext loop %>

Naam	Vorige Club
" & rstSpelers.Fields("Naam") & " " & rstSpelers.Fields("Voornaam") & "	" & rstSpelers.Fields("VorigeClub") & "

<% rstSpelers.Close cnn.Close set rstSpelers = Nothing set cnn = Nothing %>