insæt data i flere felter udfra en dropdwon

' prøv dette

<%
strSQL = "SELECT * FROM tilmelding order by køn"
' Skaber et recordset udfra SQL strengen
Set rs3 = DataConn.Execute(strSQL)
%>

<select name="vikar" class="Formindhold" onChange="formnavn.submit();">
<option value="">Vælg vikar</option>
<% do while not rs3.EOF%>
<option value="<%=rs3("id")%>"><% Response.write rs3("fornavn") %>*
</option>
<%
rs3.MoveNext
loop
set rs3 = nothing
%>
</select>
<%
id = request("vikar")
if id <> "" then
strSQL4 = "select * from tilmelding where id = "& id
' Skaber et recordset udfra SQL strengen
Set rs4 = DataConn.Execute(strSQL4)
%>
<input type="text"  name="fornavn" value="<%=rs4("fornavn")%>">
<input type="text"  name="mobiltlf" value="<%=rs4("mobiltlf")%>">
<input type="text"  name="køn"  value="<%=rs4("køn")%>">
<% end if%>

hmm viser stadig ikke ..

men jeg tror vi skal arbejde med onChange="formnavn.submit();"> for det skal ikke være når min form laver change det skal være når man vælger <option value="<%=rs3("id")%>"><% Response.write rs3("fornavn") %>* på dropdown

prøv at skifte dette

<select name="vikar" class="Formindhold" onchange="this.form.submit()">

denne kode virker
<%
strSQL = "SELECT * FROM tilmelding order by køn"
' Skaber et recordset udfra SQL strengen
Set rs3 = DataConn.Execute(strSQL)
%>

<form name="vikar">
<select name="vikar" class="Formindhold" onchange="this.form.submit()">
<option value="">Vælg vikar</option>
<% do while not rs3.EOF%>
<option value="<%=rs3("id")%>"><% Response.write rs3("fornavn") %>*
</option>
<%
rs3.MoveNext
loop
set rs3 = nothing
%>
</select>
<%
id = request("vikar")
if id <> "" then
strSQL4 = "select * from tilmelding where id = "& id
' Skaber et recordset udfra SQL strengen
Set rs4 = DataConn.Execute(strSQL4)
%>
<input type="text"  name="fornavn" value="<%=rs4("fornavn")%>">
<input type="text"  name="mobiltlf" value="<%=rs4("mobiltlf")%>">
<input type="text"  name="køn"  value="<%=rs4("køn")%>">
<% end if%>

</form>


men når jeg sætter den ind i den kode den skal fungere virker den ikke fordi det er inden i en anden form prøv at se:

<form action="tilmeldingvente.asp" method="post" onsubmit="return Check_Form(this)">
<input type="hidden" name="ma" value="<%=rs("ma")%>">
<input type="hidden" name="hillerød" value="<%=rs("hillerød")%>">
<input type="hidden" name="tider" value="<%=rs("tider")%>">
<input type="hidden" name="pris" value="1">

<TABLE width="370">
<TR>
    <TD>Best nr.</TD>
    <TD><input type="text" name="fby" value="<%=rs("id")%>" class="Formindhold" size="10"></TD>
</TR>
<TR>
    <TD>Kunde:</TD>
    <TD><input type="text" name="fornavn" value="<%=rs("fornavn")%>" class="Formindhold" size="30"></TD>
</TR>
<TR>
    <TD>Kundeadr:</TD>
    <TD><input type="text" name="adresse" value="<%=rs("adresse")%>" class="Formindhold" size="30"></TD>
</TR>
<TR>
    <TD>Kontakt person:</TD>
    <TD><input type="text" name="dato" value="<%=rs("dato")%>" class="Formindhold" size="30"></TD>
</TR>
<TR>
    <TD>Email:</TD>
    <TD><input type="text" name="email" value="<%=rs("email")%>" class="Formindhold" size="30"></TD>
</TR>
<TR><%
dim maaned, dag, aar, dato
maaned = month(rs("herlev"))
dag = day(rs("herlev"))
aar = year(rs("herlev"))
dato = aar & "-" & maaned & "-" & dag
%>


    <TD>Vagt dato:</TD>
    <TD><input type="text" name="herlev" value="<% response.write(dato) %>" class="Formindhold" size="8"></TD>

</TR>
<TR>
    <TD>Starttid:</TD>
    <TD> <input type="text" name="hede" value="<%=rs("hede")%>" class="Formindhold" size="8"></TD>
</TR>
<TR>
    <TD>Sluttid</TD>
    <TD><input type="text" name="kommune" value="<%=rs("kommune")%>" class="Formindhold" size="8"></TD>
</TR>


<%
strSQL = "SELECT * FROM tilmelding order by køn"
' Skaber et recordset udfra SQL strengen
Set rs3 = DataConn.Execute(strSQL)
%>

<form name="vikar">
<select name="vikar" class="Formindhold" onchange="this.form.submit()">
<option value="">Vælg vikar</option>
<% do while not rs3.EOF%>
<option value="<%=rs3("id")%>"><% Response.write rs3("fornavn") %>*
</option>
<%
rs3.MoveNext
loop
set rs3 = nothing
%>
</select>
<%
id = request("vikar")
if id <> "" then
strSQL4 = "select * from tilmelding where id = "& id
' Skaber et recordset udfra SQL strengen
Set rs4 = DataConn.Execute(strSQL4)
%>
<input type="text"  name="fornavn" value="<%=rs4("fornavn")%>">
<input type="text"  name="mobiltlf" value="<%=rs4("mobiltlf")%>">
<input type="text"  name="køn"  value="<%=rs4("køn")%>">
<% end if%>

</form>

<BR><BR><center>
<input type="submit" value="Godkend bestilling" name="send" class="knap">
</form>

hvad kan vi gøre ved det ?

<%
strSQL = "SELECT * FROM tilmelding order by køn"
' Skaber et recordset udfra SQL strengen
Set rs3 = DataConn.Execute(strSQL)
%>

<form name="vikar"> 'denne form kører på siden og sender så videre til næste form - husk du kan ikke have en form i en anden form
  <select name="vikar" class="Formindhold" onchange="this.form.submit()">
<option value="">Vælg vikar</option>
<% do while not rs3.EOF%>
<option value="<%=rs3("id")%>"><% Response.write rs3("fornavn") %>*
</option>
<%
rs3.MoveNext
loop
set rs3 = nothing
%>
</select>
</form>

<form name="vikar">

<%
id = request("vikar")
if id <> "" then
strSQL4 = "select * from tilmelding where id = "& id
' Skaber et recordset udfra SQL strengen
Set rs4 = DataConn.Execute(strSQL4)
%>
<input type="text"  name="fornavn" value="<%=rs4("fornavn")%>">
<input type="text"  name="mobiltlf" value="<%=rs4("mobiltlf")%>">
<input type="text"  name="køn"  value="<%=rs4("køn")%>">
<input type="submit" value="Godkend bestilling" name="send" class="knap">


<% end if%>

</form>
' så kan du selv sætte det op så det passer - men vær opmærksom på at du i din db har et felt der hedder - køn - uf.. det kan give problemer med det ø

uha det forstod jeg ikke helt, hvad er det jeg skal gøre ? kan du sætte hele koden ind som den skal se ud , atk

nu har jeg prøvet, problemet er at den ikke må insert før man trykker på <input type="submit" value="Godkend bestilling" name="send" class="knap">
og når man har valgt en vikar og den vender siden laver den fejl for så kan den ikke finde id strSQL = "Select * From bestilling Where Id = " & Request.Querystring("id")

hele koden i sin herlighed



if request.form("send") <> "" then

SQLserveradr="localhost" 
SQLdatabase="x_dk"
SQLlogin="x_dk"
SQLpassword="x"
Set DataConn = Server.CreateObject("ADODB.Connection")
conStr = "driver={MySQL ODBC 3.51 Driver};"& _
"server="& SQLserveradr &";"& _
"database="& SQLdatabase &";"& _
"uid="& SQLlogin &";"& _
"pwd="& SQLpassword &";"& _
"OPTION=3"
DataConn.Open conStr

strSQL = "Insert into bestilling (DateKolonne,fornavn,køn,herlev,hede,kommune,hillerød,pris,efternavn,dato,email,fby,dag,mobiltlf,tider,adresse,ma) values(now(),'" & replace(Request.Form("fornavn"),"'","''") & "','" & replace(Request.Form("køn"),"'","''") & "','" & replace(Request.Form("herlev"),"'","''") & "','" & replace(Request.Form("hede"),"'","''") & "' ,'" & replace(Request.Form("kommune"),"'","''") & "' ,'" & replace(Request.Form("hillerød"),"'","''") & "'  ,'" & replace(Request.Form("pris"),"'","''") & "','" & replace(Request.Form("efternavn"),"'","''") & "' ,'" & replace(Request.Form("dato"),"'","''") & "' ,'" & replace(Request.Form("email"),"'","''") & "'  ,'" & replace(Request.Form("fby"),"'","''") & "' ,'" & replace(Request.Form("dag"),"'","''") & "' ,'" & replace(Request.Form("mobiltlf"),"'","''") & "' ,'" & replace(Request.Form("tider"),"'","''") & "','" & replace(Request.Form("adresse"),"'","''") & "','" & replace(Request.Form("adresse"),"'","''") & "'    )"
DataConn.Execute(strSQL)
strSQL = "DELETE From bestilling Where Id = " & Request.Form("fby") &" "
DataConn.Execute(strSQL)
strSQL = "DELETE From ledig Where fornavn = '" & replace(Request.Form("efternavn"),"'","''") &"' and tider = '" & replace(Request.Form("tider"),"'","''") &"' and ma = '" & replace(Request.Form("ma"),"'","''") &"'"
DataConn.Execute(strSQL)
'Kode som sender mailen her:

if Request.Form("fornavn") <> "" then
  Dim objCDO
  Set objCDO = Server.CreateObject( "CDONTS.NewMail" )

  ' Her sættes afsender navn og e-mail adresse

  ' Afsenders mailserver RETTES TIL
  objCDO.Host = "mailout.b-one.net"


objCDO.From = "karina@.dk"

  ' Her sættes modtager navn og e-mail adresse
  objCDO.To =  Request.Form("email")

  ' Her sættes overskriften på mailen
  objCDO.Subject    = " nr "& Request.Form("fby") &""




objCDO.BodyFormat = 0
objCDO.Body = "<html><body><body></html>"



  ' Send e-mail og skriv status
  objCDO.Send


  ' Fjern objekt igen
Set objCDO = Nothing
end if
strNavn2 ="slet"

response.write "<BR><BR

response.write "<br><BR>Forsat god dag....<BR><BR><BR>"
response.End 'stopper koden her
end if


'Viser formen

SQLserveradr="localhost" 
SQLdatabase="x_dk"
SQLlogin="x_dk"
SQLpassword="x"
Set DataConn = Server.CreateObject("ADODB.Connection")
conStr = "driver={MySQL ODBC 3.51 Driver};"& _
"server="& SQLserveradr &";"& _
"database="& SQLdatabase &";"& _
"uid="& SQLlogin &";"& _
"pwd="& SQLpassword &";"& _
"OPTION=3"
DataConn.Open conStr


strSQL = "Select * From bestilling Where Id = " & Request.Querystring("id")
Set rs = DataConn.Execute(strSQL)

%>
<%
strSQL = "SELECT fornavn FROM tilmelding where forfos2 = '1' order by fornavn"
' Skaber et recordset udfra SQL strengen
Set rs2 = DataConn.Execute(strSQL)
%>
<%
strSQL = "SELECT fornavn FROM tilmelding where forfos2 = '1'  order by fornavn"
' Skaber et recordset udfra SQL strengen
Set rs22 = DataConn.Execute(strSQL)
%>
<%
strSQL = "SELECT fornavn, mobiltlf FROM tilmelding where forfos2 = '1'  order by fornavn"
Set rs22 = DataConn.Execute(strSQL)
%>
<%
strSQL = "SELECT fornavn, køn FROM tilmelding where forfos2 = '1'  order by fornavn"
Set rs222 = DataConn.Execute(strSQL)
%>
<%
strSQL = "SELECT køn FROM tilmelding order by køn"
' Skaber et recordset udfra SQL strengen
Set rs3 = DataConn.Execute(strSQL)
%>

<CENTER><B><BR><B>Du er ved godkende en bestilling..</B><BR></B></CENTER>
<BR>

<br>
<form action="tilmeldingvente.asp" method="post" onsubmit="return Check_Form(this)">
<input type="hidden" name="ma" value="<%=rs("ma")%>">
<input type="hidden" name="hillerød" value="<%=rs("hillerød")%>">
<input type="hidden" name="tider" value="<%=rs("tider")%>">
<input type="hidden" name="pris" value="1">

<TABLE width="370">
<TR>
    <TD>Best nr.</TD>
    <TD><input type="text" name="fby" value="<%=rs("id")%>" class="Formindhold" size="10"></TD>
</TR>
<TR>
    <TD>Kunde:</TD>
    <TD><input type="text" name="fornavn" value="<%=rs("fornavn")%>" class="Formindhold" size="30"></TD>
</TR>
<TR>
    <TD>Kundeadr:</TD>
    <TD><input type="text" name="adresse" value="<%=rs("adresse")%>" class="Formindhold" size="30"></TD>
</TR>
<TR>
    <TD>Kontakt person:</TD>
    <TD><input type="text" name="dato" value="<%=rs("dato")%>" class="Formindhold" size="30"></TD>
</TR>
<TR>
    <TD>Email:</TD>
    <TD><input type="text" name="email" value="<%=rs("email")%>" class="Formindhold" size="30"></TD>
</TR>
<TR><%
dim maaned, dag, aar, dato
maaned = month(rs("herlev"))
dag = day(rs("herlev"))
aar = year(rs("herlev"))
dato = aar & "-" & maaned & "-" & dag
%>


    <TD>Vagt dato:</TD>
    <TD><input type="text" name="herlev" value="<% response.write(dato) %>" class="Formindhold" size="8"></TD>

</TR>
<TR>
    <TD>Starttid:</TD>
    <TD> <input type="text" name="hede" value="<%=rs("hede")%>" class="Formindhold" size="8"></TD>
</TR>
<TR>
    <TD>Sluttid</TD>
    <TD><input type="text" name="kommune" value="<%=rs("kommune")%>" class="Formindhold" size="8"></TD>
</TR>


<%
strSQL = "SELECT * FROM tilmelding order by køn"
' Skaber et recordset udfra SQL strengen
Set rs3 = DataConn.Execute(strSQL)
%>


<form name="vikar"> 'denne form kører på siden og sender så videre til næste form - husk du kan ikke have en form i en anden form
  <select name="vikar" class="Formindhold" onchange="this.form.submit()">
<option value="">Vælg vikar</option>
<% do while not rs3.EOF%>
<option value="<%=rs3("id")%>"><% Response.write rs3("fornavn") %>*
</option>
<%
rs3.MoveNext
loop
set rs3 = nothing
%>
</select>
</form>

<form name="vikar">

<%
id = request("vikar")
if id <> "" then
strSQL4 = "select * from tilmelding where id = "& id
' Skaber et recordset udfra SQL strengen
Set rs4 = DataConn.Execute(strSQL4)
%>
<input type="text"  name="fornavn" value="<%=rs4("fornavn")%>">
<input type="text"  name="mobiltlf" value="<%=rs4("mobiltlf")%>">
<input type="text"  name="køn"  value="<%=rs4("køn")%>">
<input type="submit" value="Godkend bestilling" name="send" class="knap">


<% end if%>

</form>

du gør klogt i at lave en side med formen og så sende videre til en anden sider hvor det bliver indsat og der bliver sendt email

hmm kan vi ikke have det hele på denne side vi er så tæt på....

det er meget nemmere at splitte det op på to sider - nemmere at overskude

men hvordan gør jeg det fordi jeg vil ikke over i at oprette bestillingen flere gange

kan vi ikke bypass denne her if request.form("send") <> "" then fordi så sender den ikke mail og inserter heller ikke...

vi er bare så tæt på ......

det sjove er jo at denne kode IKKE vender siden..
<%
strSQL = "SELECT * FROM tilmelding order by køn"
' Skaber et recordset udfra SQL strengen
Set rs3 = DataConn.Execute(strSQL)
%>

<form name="vikar">
<select name="vikar" class="Formindhold" onchange="this.form.submit()">
<option value="">Vælg vikar</option>
<% do while not rs3.EOF%>
<option value="<%=rs3("id")%>"><% Response.write rs3("fornavn") %>*
</option>
<%
rs3.MoveNext
loop
set rs3 = nothing
%>
</select>
<%
id = request("vikar")
if id <> "" then
strSQL4 = "select * from tilmelding where id = "& id
' Skaber et recordset udfra SQL strengen
Set rs4 = DataConn.Execute(strSQL4)
%>
<input type="text"  name="fornavn" value="<%=rs4("fornavn")%>">
<input type="text"  name="mobiltlf" value="<%=rs4("mobiltlf")%>">
<input type="text"  name="køn"  value="<%=rs4("køn")%>">
<% end if%>

</form>

men vi kan ikke få den ind i den anden kode uden at den skal vende siden eller hvad ?