Hjælp til array m.m.
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 via nedenstående formular at sende en mail ud til den valgt træner og de spillere der er valgt. Derudover vil jeg gerne gemme info i DB.
Træneren og spillerne bliver hentet fra tabeller i DB der indeholder: "træner, email, hold" og "spiller, email, hold".
Hvordan skal jeg få fat i emailadressen på de spillere der er valgt?
Skal info fra formularen gemmes i DB først?
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>
*****************************
