<%Option Explicit%>
<%
dim RS, SQL, strUID, strPWD, Username, Password, trainingdate, dbtrainingdate, ltilmeld, lafbud, lvedikke, laflyst, lbegrundelse
set RS = server.createobject("ADODB.recordset")
laflyst = false
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
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
lbegrundelse = rs("begrundelse")
end if
else
deleteOldTraining(dbtrainingdate)
rs.addnew
RS("traeningsdato") = dbtrainingdate
RS.update
setPlayersTrainingState()
lvedikke = getTheRest()
end if
RS.close
set RS = nothing
%>
<%response.write setupClubName%>
<%if laflyst then%>
Træning <%response.write getDayName(setupTrainingDay)%> d. <%response.write writeDate(dbtrainingdate)%> kl. <%response.write setupTrainingTime%>
(<%response.write setupTrainingPlace%>)
Træningen er aflyst!!
<%response.write lbegrundelse%>
<%else%>
Træning <%response.write getDayName(setupTrainingDay)%> d. <%response.write writeDate(dbtrainingdate)%> kl. <%response.write setupTrainingTime%>
(<%response.write setupTrainingPlace%>)
<%end if%>
<%
closeconn()
%>