 |
<% dim t1, _ del, _ kine, _ oFs Set oFs = Server.CreateObject("Scripting.FileSystemObject") t1 = "/images/trainers/jdelathouwer.jpg" If Not oFs.FileExists(server.mappath(t1)) Then t1 = "/images/trainers/default.gif" End If %>
|
|
Trainer Johan Delathouwer +32 478 28 43 55 |
<%
Dim rsSchutter, _
Sql_Top, _
goals
Set rsSchutter = Server.CreateObject("ADODB.RecordSet")
Sql_Top = "Select Naam, Voornaam, Doelpunten From kern Where positie = 'Miniem' Order By Doelpunten Desc"
rsSchutter.open Sql_Top, oConn
%>
|
Training Dinsdag van 18:30 tot 19:30 Donderdag van 18:15 tot 19:30 |
Topschutter <% if rsSchutter.eof then goals = rsSchutter("Doelpunten") If goals <> 0 Then Do While (not rsSchutter.eof) AND rsSchutter("Doelpunten") = goals %> <%= rsSchutter("Voornaam") & " " & rsSchutter("Naam")%> <% rsSchutter.Movenext() loop %> <%= goals%> doelpunten <% Else %> Nog geen doelpunten gescoord <% End If end if %> |
|