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 = "INSERT INTO event (eventoverskrift, eventtekst, eventsted, eventdato, eventtid, eventarrangor, eventmail, eventtilmeldte, eventafbud) VALUES('"&request("eventoverskrift")&"','"&request("eventtekst")&"','"&request("eventsted")&"','"&request("aar") & request("maaned") & request("dag")&"','"&request("time")&":"&request("minut")&"','"&request("eventarrangor")&"','"&request("eventmail")&"','"&requesttilmeldte&"','"& requestafbud &"')" rs.open SQL, conn, 2,3 set RS = nothing response.redirect("event.asp") end if dim selYear, selMonth, selDay, selHour, SelMinute selYear = year(now) selMonth = month(now): if selMonth < 10 then selMonth = "0" & selMonth selDay = day(now): if selDay < 10 then selDay = "0" & selDay %>

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:

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

<% do until rs.eof response.write "" & "" & "" & "" rs.movenext loop%>

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

<%end if rs.close %>

<% set rs= nothing %>