<%response.write setupClubName%>

<%Option Explicit%> <% If isEmpty(Session("UserID")) Then Response.Redirect("index.asp") End If %> <%response.write setupClubName%>

<%response.write setupClubName%> Målscorer

<% dim goalresult, assistresult, maalarray, assistarray if request("gem")<> "" then maalarray = split(request("maal"),",") assistarray = split(request("assist"),",") if isarray(maalarray) then for i=0 to ubound(maalarray) goalresult = goalresult & getPlayerName(maalarray(i)) & ", " next goalresult = left(goalresult,len(goalresult)-2) else goalresult = goalresult & getPlayerName(maalarray) end if if isarray(assistarray) then for i=0 to ubound(maalarray) assistresult = assistresult & getPlayerName(assistarray(i)) & ", " next assistresult = left(assistresult,len(assistresult)-2) else assistresult = assistresult & getPlayerName(assistarray) end if %> <% goalresult = goalresult & " er nu oprettet som målscorere." %> <% else dim i for i=0 to (request("antalmaal")-1) response.Write "" response.Write "" next %> <% %> <% end if %>

<%response.write setupClubName%> Målscorer
<%response.write goalresult%>
"&(i +1)&". målscorer
assist