<%Option Explicit%>
<%
dim RS, SQL, strUID, strPWD, Username, Password, trainingdate, dbtrainingdate, ltilmeld, lafbud, lvedikke, laflyst, errormsg, displayForm
set RS = server.createobject("ADODB.recordset")
trainingdate = getNextTrainingDay(setupTrainingDay)
dbtrainingdate = year(trainingdate)
if month(trainingdate)<10 then
dbtrainingdate = dbtrainingdate & "0" & month(trainingdate)
else
dbtrainingdate = dbtrainingdate & month(trainingdate)
end if
if day(trainingdate)<10 then
dbtrainingdate = dbtrainingdate & "0" & day(trainingdate)
else
dbtrainingdate = dbtrainingdate & day(trainingdate)
end if
displayForm = false
if session("UserID") <> "" then
'if request("action")<> "" then
'strUID = Trim(Replace(Request.Form("Brugernavn"),"'",""))
'strPWD = Trim(Replace(Request.Form("Adgangskode"),"'",""))
'If Len(strUID) > 0 And Len(strPWD) > 0 Then
' Username=setupUserName
' Password=setupPassword
' if (Username = strUID AND Password = strPWD) then
displayForm = true
if request("neu_to_on")<> "" then
if request("neu") <> "" then
SQL="SELECT traener FROM spillere WHERE spillerID = "& request("neu")
RS.Open SQL,Conn,2,3
if not rs.eof then
Rs("traener") = true
rs.update
end if
RS.close
else
errormsg = "Vælg et navn fra listen!!"
end if
end if
if request("on_to_neu")<> "" then
if request("on") <> "" then
SQL="SELECT traener FROM spillere WHERE spillerID = "& request("on")
RS.Open SQL,Conn,2,3
if not rs.eof then
Rs("traener") = false
rs.update
end if
RS.close
else
errormsg = "Vælg et navn fra listen!!"
end if
end if
if request("neu_to_off")<> "" then
if request("neu") <> "" then
SQL="SELECT traenerikke FROM spillere WHERE spillerID = "& request("neu")
RS.Open SQL,Conn,2,3
if not rs.eof then
Rs("traenerikke") = true
rs.update
end if
RS.close
else
errormsg = "Vælg et navn fra listen!!"
end if
end if
if request("off_to_neu")<> "" then
if request("off") <> "" then
SQL="SELECT traenerikke FROM spillere WHERE spillerID = "& request("off")
RS.Open SQL,Conn,2,3
if not rs.eof then
Rs("traenerikke") = false
rs.update
end if
RS.close
else
errormsg = "Vælg et navn fra listen!!"
end if
end if
laflyst = false
SQL = "SELECT * FROM Traening where traeningsdato = "& dbtrainingdate
RS.Open SQL,Conn,2,3
if not RS.eof then
if not RS("aflyst") then
ltilmeld = getTrainingPlayers()
lafbud = getNotTrainingPlayers()
lvedikke = getTheRest()
else
laflyst = true
end if
else
deleteOldTraining(dbtrainingdate)
rs.addnew
RS("traeningsdato") = dbtrainingdate
RS.update
setPlayersTrainingState()
lvedikke = getTheRest()
end if
RS.close
set RS = nothing
'else
'displayForm = false
'end if
'end if
'end if
else
displayForm = false
end if
%>
<%response.write setupClubName%>Træning <%response.write getDayName(setupTrainingDay)%> d. <%response.write writeDate(dbtrainingdate)%> kl. <%response.write setupTrainingTime%> (<%response.write setupTrainingPlace%>)