<% Dim cnn Dim rstSpeler Dim intID Dim intTeller Dim intDoelpunten Dim intGeel Dim intRood set cnn = Server.CreateObject("ADODB.Connection") cnn.ConnectionString = "Driver={MySQL}; Server=mysqlhost; Database=???; User ID=???; Password=???;" cnn.Open intID = Request.QueryString("ID") set rstSpeler = Server.CreateObject("ADODB.Recordset") rstSpeler.Open "select * from tblSpelers where ID = " & intID, cnn, 3, 1 %> <%=rstSpeler.Fields("Voornaam")%> <%=rstSpeler.Fields("Naam")%>
 
") next end if %>

<%=rstSpeler.fields("Naam")%>.jpg" width="113" height="160">

    

Naam + Voornaam :

<%=rstSpeler.Fields("Naam")%> <%=rstSpeler.Fields("Voornaam")%>

Geboortedatum : <%=rstSpeler.Fields("GeboorteDatum")%>
Positie : <%=rstSpeler.Fields("Positie")%>
Shirtnummer : <%=rstSpeler.Fields("Rugnummer")%>
Aantal doelpunten : <% intDoelpunten = rstSpeler.Fields("Doelpunten") if intDoelpunten > 0 then for intTeller = 1 to intDoelpunten Response.Write("
 Vorige Club : <%=rstSpeler.Fields("VorigeClub")%> Kasterlee
Gele kaarten : <% intGeel = rstSpeler.Fields("Geel") if intGeel > 0 then for intTeller = 1 to intGeel response.write("") next end if %>
Rode kaarten : <% intRood = rstSpeler.Fields("Rood") if intRood > 0 then for intTeller = 1 to intRood response.Write("") next end if %>
 
<% rstSpelers.Close cnn.Close set rstSpelers = Nothing set cnn = Nothing %>