Opret aflysning

Aflyste træningstider <% dim RS, SQL set RS = server.createobject("ADODB.recordset") if request("delete") <> "" then SQL = "DELETE FROM traening WHERE (traeningsid= " & request("delete") & ")" rs.Open SQL, Conn, 1, 3 end if SQL = "SELECT * FROM traening WHERE aflyst=true ORDER By traeningsdato" RS.Open SQL,conn if not RS.eof then do until RS.EOF %> <% RS.MoveNext loop end if RS.close set RS=nothing %>

">slet

<%response.write writeDate(RS("traeningsdato"))%>

<%response.write RS("begrundelse")%>