<%Option Explicit%>
<%
dim RS, SQL
set RS = server.createobject("ADODB.recordset")
if request("action")<>"" then
dim spilleridarray, requesttilmeldte, requestafbud, j
SQL = "SELECT spillerid FROM spillere ORDER By fornavn"
RS.Open SQL,Conn
if not rs.eof then
do until rs.eof
if request("spiller"&RS("spillerid")) = 1 then
requesttilmeldte = requesttilmeldte & RS("spillerid") & ","
else
requestafbud = requestafbud & RS("spillerid") & ","
end if
rs.movenext
loop
end if
rs.close
SQL = "UPDATE event SET eventtilmeldte = '"&requesttilmeldte&"', eventafbud='"& requestafbud &"' WHERE eventID="&request("eventid")
rs.open SQL, conn, 2,3
end if
%>
<%response.write setupClubName%>
<%
if request("eventid")<> "" and isnumeric(request("eventid")) then
dim Tilmeldte, tilmeldliste, afbud, afbudliste,i, tilmeldtestring
SQL = "SELECT * FROM event WHERE eventid= " & request("eventid")
RS.Open SQL,Conn
if not RS.eof then
if rs("eventtilmeldte") <> "" then
Tilmeldte = split(rs("eventtilmeldte"),",")
tilmeldtestring = ","&rs("eventtilmeldte")&","
for i = 0 to (ubound(Tilmeldte)-1)
if Tilmeldte(i) <> "" then
tilmeldliste = tilmeldliste & getPlayerName(Tilmeldte(i)) & " "
end if
next
else
tilmeldliste = "Ingen tilmeldte"
end if
if rs("eventafbud") <> "" then
afbud = split(rs("eventafbud"),",")
for i = 0 to ubound(afbud)
if afbud(i) <> "" then
afbudliste = afbudliste & getPlayerName(afbud(i)) & " "
end if
next
else
afbudliste = "Ingen afbud"
end if
end if
end if
rs.close
if session("UserID")<>""then
%>
<%
SQL = "SELECT * FROM spillere ORDER By fornavn"
RS.Open SQL,Conn
if not rs.eof then
%>
<%end if
rs.close
%>
<%else%>
<%response.write "Tilmeldte:
" & tilmeldliste & "
Afbud eller intet svar:
" & afbudliste & "
Du skal være logget på som medlem for at kunne tilmelde dig arrangementet!