<% Set rsPlayers = Server.CreateObject("ADODB.Recordset") rsPlayers.ActiveConnection = con_string sqlstringPlayers="SELECT players.ID, players.FullName, players.Picture, players.Position_ID, players.Height, players.Weight, players.CV, players.Videofilename, Clubs.Name FROM players INNER JOIN Clubs ON players.Club_Id = Clubs.ID WHERE (((players.Position_ID)="&pp&"));" rsPlayers.Source = sqlstringPlayers rsPlayers.CursorType = 0 rsPlayers.CursorLocation = 2 rsPlayers.LockType = 1 rsPlayers.Open() %>

» <%=pagename%>

<% ctr=1 do while not rsPlayers.eof playername=rsplayers("FullName") Picture=rsplayers("Picture") Club=rsplayers("Name") Height=rsplayers("Height") Weight=rsplayers("Weight") Video=rsplayers("Videofilename") p_id= rsplayers("id") %> <%if ctr=1 then response.write ""%> <% ctr=ctr+1 if ctr=4 then response.write "" ctr=1 end if%> <% rsplayers.movenext loop %>
<%if Picture<>"" then%>
<%end if%> <%if playername<>"" then%> Name : <%=playername%>
<%end if%> <%if Club<>"" then%> Club : <%=Club%>
<%end if%> <%if Height<>"" then%> Height : <%=Height%> <%end if%> <%if height<>"" and weight<>"" then%> , <%end if%> <%if Weight<>"" then%> Weight : <%=Weight%> <%end if%> <%if Video<>"" then%>
Video: Click Here <%end if%>