<%Option Explicit%>
<%
if request("gem")<> "" then
dim RS, SQL, lkampid
dim saesonid: if request("saesonid") <> "" then saesonid = request("saesonid") else saesonid = " "
dim modstander: if request("modstander") <> "" then modstander = request("modstander") else modstander = " "
dim klubscore: if request("klubscore") <> "" then klubscore = cint(request("klubscore")) else klubscore = 0
dim modstanderscore:if request("modstanderscore") <> "" then modstanderscore = cint(request("modstanderscore")) else modstanderscore= 0
dim overskrift: if request("overskrift") <> "" then overskrift = request("overskrift") else overskrift = " "
dim referat: if request("referat") <> "" then referat = request("referat") else referat = " "
dim tilskuere: if request("tilskuere") <> "" then tilskuere = request("tilskuere") else tilskuere = " "
dim mom: if request("mom") <> "" then mom = request("mom") else mom = " "
dim dom: if request("dom") <> "" then dom = request("dom") else dom = " "
dim spiller1: if request("spiller1") <> "" then spiller1 = request("spiller1") else spiller1 = " "
dim spiller2: if request("spiller2") <> "" then spiller2 = request("spiller2") else spiller2 = " "
dim spiller3: if request("spiller3") <> "" then spiller3 = request("spiller3") else spiller3 = " "
dim spiller4: if request("spiller4") <> "" then spiller4 = request("spiller4") else spiller4 = " "
dim spiller5: if request("spiller5") <> "" then spiller5 = request("spiller5") else spiller5 = " "
dim spiller6: if request("spiller6") <> "" then spiller6 = request("spiller6") else spiller6 = " "
dim spiller7: if request("spiller7") <> "" then spiller7 = request("spiller7") else spiller7 = " "
dim spiller8: if request("spiller8") <> "" then spiller8 = request("spiller8") else spiller8 = " "
dim spiller9: if request("spiller9") <> "" then spiller9 = request("spiller9") else spiller9 = " "
dim spiller10: if request("spiller10") <> "" then spiller10 = request("spiller10") else spiller10 = " "
dim referant: if request("referant") <> "" then referant = request("referant") else referant = " "
dim vask: if request("vask") <> "" then vask = request("vask") else vask = " "
dim stadion: if request("stadion") <> "" then stadion = request("stadion") else stadion = " "
dim goals: if request("goals") <> "" then goals = request("goals") else goals = ""
dim assists: if request("assists") <> "" then assists = request("assists") else assists = ""
set RS = server.createobject("ADODB.recordset")
SQL = "SELECT * FROM kampe"
RS.Open SQL,conn,2,3
RS.addnew
RS("dato") = request("aar") & request("maaned") & request("dag")
RS("tidspunkt") = request("time")&":"&request("minut")
RS("saesonid") = saesonid
RS("modstander") = modstander
RS("klubscore") = klubscore
RS("modstanderscore") = modstanderscore
RS("overskrift") = overskrift
RS("referat") = referat
RS("tilskuere") = tilskuere
RS("mom") = mom
RS("dom") = dom
RS("spiller1") = spiller1
RS("spiller2") = spiller2
RS("spiller3") = spiller3
RS("spiller4") = spiller4
RS("spiller5") = spiller5
RS("spiller6") = spiller6
RS("spiller7") = spiller7
RS("spiller8") = spiller8
RS("spiller9") = spiller9
RS("spiller10") = spiller10
RS("referant") = referant
RS("vask") = vask
if modstanderscore > klubscore then
RS("VUT") = "T"
end if
if modstanderscore = klubscore then
RS("VUT") = "U"
end if
if modstanderscore < klubscore then
RS("VUT") = "V"
end if
if request("hjemmehold") = "ja" then
RS("hjemmehold") = true
else
RS("hjemmehold") = false
end if
RS("stadion") = stadion
RS.update
RS.movelast
lkampid = RS("kampid")
RS.close
if goals <> "" then
dim maalarray, i, assistarray
SQL = "SELECT * FROM maal"
RS.open SQL,conn,2,3
maalarray = split(goals,",")
assistarray = split(assists,",")
if isarray(maalarray) then
for i=0 to ubound(maalarray)
rs.addnew
RS("spillerid")=maalarray(i)
RS("assistspillerid")= assistarray(i)
RS("saesonid")= request("saesonid")
RS("kampid")= lkampid
RS.update
RS.movelast
next
else
rs.addnew
RS("spillerid")=maalarray
RS("assistspillerid")= assistarray
RS("saesonid")=request("saesonid")
RS("kampid")= lkampid
RS.update
RS.movelast
end if
RS.close
end if
set rs=nothing
response.Redirect("kampedit.asp?kampid="&lkampid)
else
dim selYear, selMonth, selDay, selHour, SelMinute
selYear = year(now)
selMonth = month(now): if selMonth < 10 then selMonth = "0" & selMonth
selDay = day(now): if selDay < 10 then selDay = "0" & selDay
%>
Tilbage
<%
function setTeamLines(playerNo,TacticID)
dim result
result = "border-top:1px solid #666666"
select case cstr(playerNo)
case "1"
result = ""
case "2"
result = "border-top:1px solid #666666"
case "3"
result = ""
case "4"
select case TacticID
case 1 '3-3
result = ""
case 2 '2-3-1
result = "border-top:1px solid #666666"
case 3 '3-2-1
result = ""
end select
case "5"
select case TacticID
case 1 '3-3
result = "border-top:1px solid #666666"
case 2 '2-3-1
result = ""
case 3 '3-2-1
result = "border-top:1px solid #666666"
end select
case "6"
select case TacticID
case 1 '3-3
result = ""
case 2 '2-3-1
result = ""
case 3 '3-2-1
result = ""
end select
case "7"
select case TacticID
case 1 '3-3
result = ""
case 2 '2-3-1
result = "border-top:1px solid #666666"
case 3 '3-2-1
result = "border-top:1px solid #666666"
end select
case "8"
result = "border-top:1px solid #666666"
case "9"
result = ""
case "10"
result = ""
end select
setTeamLines = result
end function
function getTeamPositionName(playerNo,TacticID)
dim result
result = "??"
select case cstr(playerNo)
case "1"
result = "Målmand"
case "2"
result = "Forsvar"
case "3"
result = "Forsvar"
case "4"
select case TacticID
case 1 '3-3
result = "Forsvar"
case 2 '2-3-1
result = "Midtbane"
case 3 '3-2-1
result = "Forsvar"
end select
case "5"
select case TacticID
case 1 '3-3
result = "Angreb"
case 2 '2-3-1
result = "Midtbane"
case 3 '3-2-1
result = "Midtbane"
end select
case "6"
select case TacticID
case 1 '3-3
result = "Angreb"
case 2 '2-3-1
result = "Midtbane"
case 3 '3-2-1
result = "Midtbane"
end select
case "7"
select case TacticID
case 1 '3-3
result = "Angreb"
case 2 '2-3-1
result = "Angreb"
case 3 '3-2-1
result = "Angreb"
end select
case "8"
result = "Reserve"
case "9"
result = "Reserve"
case "10"
result = "Reserve"
end select
getTeamPositionName = result
end function
set RS = nothing
end if
%>