Avatar billede bpedersen Novice
21. marts 2009 - 09:15 Der er 2 kommentarer og
1 løsning

Hjælp til array m.m.

Hej Eksperter

Jeg 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>
*****************************
Avatar billede bpedersen Novice
28. marts 2009 - 20:35 #1
Slet ingen der kan hjælpe mig på vej?
Avatar billede bpedersen Novice
24. juli 2011 - 09:15 #2
Efter laaanng tid, vil jeg igen prøve om jeg kan få ovenstående til at virke. Så jeg håber der denne gang er nogle der kan hjælpe mig på rette vej.
Avatar billede bpedersen Novice
24. juli 2011 - 13:10 #3
lukker
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester