Tilbage

Rediger Arrangement <% dim RS, SQL set RS = server.createobject("ADODB.recordset") if request("gem")<>"" 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 eventtekst='"&request("eventtekst")&"', eventoverskrift='"&request("eventoverskrift")&"', eventmail='"&request("eventmail")&"', eventarrangor='"&request("eventarrangor")&"', eventtid='"&request("time")&":"&request("minut")&"', eventsted='"&request("eventsted")&"', eventtilmeldte='"&requesttilmeldte&"', eventafbud='"& requestafbud &"', eventdato='"&request("aar") & request("maaned") & request("dag")&"' WHERE eventID="&request("id") rs.open SQL, conn, 2,3 set RS = nothing response.redirect("event.asp") end if SQL = "SELECT * FROM event WHERE eventid = "&request("id") RS.Open SQL,conn if not rs.eof then dim selYear, selMonth, selDay, selHour, SelMinute,tilmeldtestring selYear = left(RS("eventdato"),4) selMonth = mid(RS("eventdato"),5,2) selDay = right(RS("eventdato"),2) if RS("eventdato") <> "" then selHour = left(RS("eventtid"),instr(RS("eventtid"),":")-1) selMinute = right(RS("eventtid"),2) end if if rs("eventtilmeldte") <> "" then tilmeldtestring = ","&rs("eventtilmeldte")&"," end if %>

Dato:

/ - kl. :

Overskrift:

Beskrivelse:

Hjælp til formatering.
Kode	Eksempel	Resultat
<b>...</b>	<b>Fed</b> tekst.	Fed tekst.
<i>...</i>	<i>Kursiv</i> tekst.	Kursiv tekst.
<br>	Laver <br>linieskift	Laver linieskift
<p>	Laver <p>nyt afsnit	Laver nyt afsnit

Sted:

Arrangør:

Email:

Tilmelding:

<% rs.close SQL = "SELECT * FROM spillere ORDER By fornavn" RS.Open SQL,Conn if not rs.eof then %>

<% do until rs.eof if instr(tilmeldtestring,","&rs("spillerid")&",") then response.write "" & "" & "" & "" else response.write "" & "" & "" & "" end if rs.movenext loop%>

Medlemmer	Ja	Nej
" & getPlayerName(rs("spillerid")) &"
" & getPlayerName(rs("spillerid")) &"

<%end if %>

<% end if rs.close set rs= nothing %>