| <%response.write setupClubName%> Målscorer |
<%
dim RS, SQL, goalresult, assistresult, maalarray, assistarray
if request("gem")<> "" then
set RS = server.createobject("ADODB.recordset")
SQL = "DELETE * FROM maal WHERE kampid=" & request("kampid")
RS.Open SQL,conn,2,3
SQL = "SELECT * FROM maal"
RS.open SQL,conn,2,3
maalarray = split(request("maal"),",")
assistarray = split(request("assist"),",")
if isarray(maalarray) then
for i=0 to ubound(maalarray)
goalresult = goalresult & getPlayerName(maalarray(i)) & ", "
assistresult = assistresult & getPlayerName(assistarray(i)) & ", "
rs.addnew
RS("spillerid")=maalarray(i)
RS("assistspillerid")=assistarray(i)
RS("saesonid")= request("saesonid")
RS("kampid")= request("kampid")
RS.update
RS.movelast
next
goalresult = left(goalresult,len(goalresult)-2)
assistresult = left(assistresult,len(assistresult)-2)
else
goalresult = goalresult & getPlayerName(maalarray)
assistresult = assistresult & getPlayerName(assistarray)
rs.addnew
RS("spillerid")=maalarray
RS("assistspillerid")=assistarray
RS("saesonid")=request("saesonid")
RS("kampid")= request("kampid")
RS.update
RS.movelast
end if
%>
<%
goalresult = goalresult & " er nu oprettet som målscorere."
rs.close
set RS = Nothing
%>
| <%response.write goalresult%> |
<%
else
dim maalcount, i, oldscrorerscount, lsaesonid
maalarray = 0
set RS = server.createobject("ADODB.recordset")
SQL = "SELECT * FROM maal WHERE kampid=" & request("kampid")
RS.Open SQL,conn
if not RS.eof then
maalarray = RS.GetRows()
end if
if isarray(maalarray) then
oldscrorerscount = ubound(maalarray,2)
lsaesonid = maalarray(2,0)
for i=0 to (request("antalmaal")-1)
response.Write "| "&(i +1)&". mål/assist: | | "
response.Write "/ | |
"
next
else
if maalarray = 0 then
lsaesonid = request("saesonid")
for i=0 to (request("antalmaal")-1)
response.Write "| "&(i +1)&". mål/assist: | |
"
response.Write "| / | |
"
next
end if
end if
%>
|
|
<%
%>
<%
RS.close
set RS=nothing
end if
%>