 |
<% dim t1, _ t2, _ del, _ kine, _ oFs Set oFs = Server.CreateObject("Scripting.FileSystemObject") t1 = "/images/trainers/lmeyseman.jpg" t2 = "/images/trainers/ffrancois.jpg" If Not oFs.FileExists(server.mappath(t1)) Then t1 = "/images/trainers/default.gif" End If If Not oFs.FileExists(server.mappath(t2)) Then t2 = "/images/trainers/default.gif" End If %>
|
|
Trainer Leo Meyseman +32 476 35 77 03 |
Assistent Trainer Franky François +32 477 24 31 47 |
|
|
Training Dinsdag van 19:30 tot 21:00 Donderdag van 19:30 tot 21:00 |
<%
Dim rsSchutter, _
Sql_Top, _
goals
Set rsSchutter = Server.CreateObject("ADODB.RecordSet")
Sql_Top = "Select Naam, Voornaam, Doelpunten From kern_be Order By Doelpunten Desc"
rsSchutter.open Sql_Top, oConn
%>
Topschutter <% if rsSchutter.eof then else 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 %> |
|