Hjælp til Formular og muligvis array?
Hej EksperterJeg har følgende problematik jeg ikke ved hvordan jeg skal løse, og håber derfor at I vil hjælpe mig! :o)
Det jeg gerne vil gøre er at sende en mail ud til den træner og de spillere der er valgt.
Jeg henter info om spilleren fra DB og laver nogle checkboxe, så man kan vælge de spillere der skal spille den pågældende kamp.
Træneren og spillerne bliver hentet fra tabeller i DB der indeholder: "træner, email, hold" og "spiller, email, hold".
Jeg forestiller mig at jeg skal gemme alle info i DB, og derefter hente emailadresserne, og sende mails.
Min formularkode er som følger:
******************************
<table border="0" cellpadding="0" cellspacing="0" width="770" height="660">
<tr>
<td align="left" valign="top">
<table width="770">
<form method="post" action="" onsubmit="validateChecks()" ENCTYPE="multipart/form-data">
<div class="artikel">
<p>
<font face="verdana" size="1" >Dato (eks.: 23-04-09):<br>
<input type="text" size="10" maxlength="8" name="kampdato"></font><br>
<font face="verdana" size="1" >Mødetid (eks.: 12.15):<br>
<input type="text" size="10" maxlength="5" name="kampmoedetid"></font><br>
<font face="verdana" size="1" >Mødested og adresse (eks.: xxxxx Stadion, Stadionvej 1, xxxx Randers):<br>
<input type="text" size="90" maxlength="150" name="moedested"></font><br>
<font face="verdana" size="1" >Spillested og adresse (eks.: xxxxxxx Stadion, Stadionvej 1, xxxx Randers):<br>
<input type="text" size="90" maxlength="150" name="kampsted"></font><br>
<p>Vælg træner:<br>
<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../../db/hs.mdb")
Conn.Open DSN
'Henter trænerliste
Set rs = Server.CreateObject("ADODB.Recordset")
strSQL = "select * from traener WHERE hold = '" & session("hold") & "'"
rs.Open strsql, conn, 1, 3
if rs.EOF then
Response.write "<b>Der er ikke oprettet nogen træner!</b>"
else
' Sætter trænerlisten ind i dropdownlisten
Response.Write "<select name=kamptraener size=1>"
Response.write "<option></option>"
Do While Not rs.EOF
Response.Write "<option value=" & rs("id") & ">" & rs("traener") & "</option>"
RS.movenext
Loop
Response.Write "</select>"
End if
Conn.Close
Set Conn = Nothing
Response.write "</p>"
%>
<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../../db/hs.mdb")
Conn.Open DSN
'Tilføjer brugeren til databasen
Set rs = Server.CreateObject("ADODB.Recordset")
strSQL = "select * from spiller WHERE hold = '" & session("hold") & "'"
rs.Open strsql, conn, 1, 3
if rs.EOF then
Response.write "<b>Der er ikke oprettet nogen spiller!</b>"
else
'Do until rs.EOF
'Response.write "<div class=artikel>"& replace(replace(rs("traener"),"''","'"),vbCrLf,"<br>") & "</div>"
'Response.write "<div id=""billedefforord""><img border=1 src=""/pics/upload/" & rs("FILE1") & """ width=""130"" height=""130""></div>"
%>
<p>Vælg spillere:<br>
<%
'Response.Write "<select name=dropdown size=1>"
Do While Not rs.EOF
Response.Write "<input name=spiller[] type=checkbox value=" & rs("id") & ">" & rs("spiller") & "<br>"
RS.movenext
Loop
End if
Conn.Close
Set Conn = Nothing %>
<br><font face="verdana" size="1" >Diverse(eks.: kampe, husk m.m.):<br>
</p><p>
<textarea name="kampdiverse" rows="6" cols="70">
</textarea></p>
<font face="verdana" size="1" >Frugt:<br>
<input type="text" size="50" maxlength="50" name="frugt"></font><br>
<font face="verdana" size="1" >Tøjvask:<br>
<input type="text" size="50" maxlength="50" name="toejvask"></font><br><br>
<input type="submit" value="Opret" ><input type="reset" value="Slet"><br><br>
<a href="default.asp?m=m-default">Til forsiden</a>
</form>
</table>
<div class="artikel"><a href="java script:history.go('-1')">Tilbage til admin-siden</a></div>
<br>
</div></td></tr>
</table>
*****************************
