vælg flere virker ikke

Kan ikke helt forstå

Men er der ikke lidt kaos

din dropdown hedder efternavn
i denne viser du fornavnet og sender mobilnumret som værdi

Så hvis du spørger om efternavnet med request så
får du selvfølgelig mobilnumret

LN

fordi den henter fornavn fra en anden tabel og som så når jeg gemmer skal være = efternavn i tabellen bestilling

Jamen værdien du sender er jo mobilnumret

Hvis du vil have fornavnet med skal value rettes til rs2("fornavn")

ln

det ved jeg men så vælger den ikke at vise mobiltlf i feltet <TD><input type="text" id="phone" name="mobiltlf" class="Formindhold" size="8"></TD>
</TR>

Altså når jeg i dropdown vælger en vikar "Peter"

Så skal den vise peter mobiltlf i feltet input type="text" id="phone" name="mobiltlf" class="Formindhold" size="8">

Men samtidig skal vikaren navn også sættes ind i tabellen bestilling og der har den et feltnavn der hedder 'efternavn'

Så skal du gøre noget andet
I din dropdownbox sender du ID med på vikaren
når så der fforetages et valg i dropdownboxen
henter du alle relevante dataer op fra din tabel/tabeller
og får resultatet ind i de felter du ønsker
det kan ske på samme side med en if sætning.
Det der sker lige nu er at dit javascript henter værdien fra din dropdown ind
i feltet til mobil telefon. Så lav dropdown om til bare at køre onchange kald feks.
dropsownfeltet vikar, vi fornavnet , send id med Og derefter hent det du har brug for ud fra valget

F.ek.s
If request("vikar") <> "" then
hent alt fra tabellen hvor id = " & request("vikar) &"

Mobil = rs("mobil)
efternavn = rs("efternavn")

osv sov
LN

uha, kan du skrive noget mere kode jeg kan ikke gennemskue det tak

hvad siger du til kan du skrive koden for mig ?

><select name="vikar" class="Formindhold" onChange="formnavn.submit();">
<option value"">Vælg vikar</option>
<% do while not rs2.EOF%>
<option value="<%=rs2("id")%>"><% Response.write rs2("fornavn") %>*
</option>
<%
rs2.MoveNext
loop
%>
</select>
<%
id = request("vikar")
if id <> "" then
Så skal d kalde din database og din tabel
i selct sætningen vælger du så
rs = select * from tabelnavn where id = "& id &""


><input type="text" id="phone" name="mobil" value="<%=rs("mobil")%>">
><input type="text" id="efternavn" name="efternavn"  value="<%=rs("efternavn")%>">
osv osv
osv

<% end if%>
LN

<select name="vikar" class="Formindhold" onChange="formnavn.submit();">
<option value"">Vælg vikar</option>
<% do while not rs2.EOF%>
<option value="<%=rs2("id")%>"><% Response.write rs2("fornavn") %>*
</option>
<%
rs2.MoveNext
loop
%>
</select>
<%
id = request("vikar")
if id <> "" then
rs = select * from tilmelding where id = "& id &""
%>
<input type="text" id="phone" name="mobil" value="<%=rs("mobil")%>">
<input type="text" id="efternavn" name="efternavn"  value="<%=rs("efternavn")%>">


fejl:

Error Type:
Sun ONE ASP VBScript compilation (0x800A03FD)
Expected 'Case'
/admin/tilmeldingvente.asp, line 267, column 13

line267
if id <> "" then

hvad siger du til det ?

Kan du ikke vise hele koden du har på siden
der må være noget andet der driller.

LN

Du skal også husek at i
<select name="vikar" class="Formindhold" onChange="formnavn.submit();">
Skal formnavn selvfølgelig udskiftes med din formnavn !!!!!!!!!!!

HAr du også husket at kalde din database og brugt variablen RS

LN

Det hedder min form

<form action="tilmeldingvente.asp" method="post" onsubmit="return Check_Form(this)">

strSQL = "Insert into bestilling (DateKolonne,fornavn,køn,herlev,hede,kommune,hillerød,pris,efternavn,dato,email,fby,dag,mobiltlf,tider,adresse) 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"),"'","''") & "'  )"
DataConn.Execute(strSQL)

strSQL = "DELETE From bestilling Where Id = " & Request.Form("fby") &" "
DataConn.Execute(strSQL)



'Kode som sender mailen her:

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

  '
 

  '



objCDO.BodyFormat = 0
objCDO.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>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' or hhh = '1' order by fornavn"
' Skaber et recordset udfra SQL strengen
Set rs2 = DataConn.Execute(strSQL)
%>
<%
strSQL = "SELECT fornavn FROM tilmelding where forfos2 = '1' or hhh = '1'  order by fornavn"
' Skaber et recordset udfra SQL strengen
Set rs22 = DataConn.Execute(strSQL)
%>
<%
strSQL = "SELECT fornavn, mobiltlf FROM tilmelding where forfos2 = '1' or hhh = '1'  order by fornavn"
Set rs22 = DataConn.Execute(strSQL)
%>
<%
strSQL = "SELECT fornavn, køn FROM tilmelding where forfos2 = '1' or hhh = '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="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>


<TR>
    <TD>Vikar</TD>

    <TD><select name="efternavn" class="Formindhold" >
<option value=""></option><%
do while not rs2.EOF
%><option value="<% Response.write rs2("fornavn")%>"><% Response.write rs2("fornavn") %></option>
<%
rs2.MoveNext
loop
%>
</select></TD>

</TR><TR>
<TD>Vikarmobil</TD>
    <TD><select name="" class="Formindhold" onChange="getElementById('phone').value=this.options[this.selectedIndex].value">
<option value=""></option>
<% do while not rs22.EOF%>
<option value="<%=rs22("mobiltlf")%>"><% Response.write rs22("fornavn") %></option>
<%
rs22.MoveNext
loop
%>
</select></TD>
</TR>
<TR>
    <TD>Vikar mobil</TD>
    <TD><input type="text" id="phone" name="mobiltlf" class="Formindhold" size="8"></TD>
</TR>

<TR>
<TD>Vikaruddannelse</TD>
    <TD><select name="" class="Formindhold" onChange="getElementById('phonea').value=this.options[this.selectedIndex].value">
<option value=""></option>
<% do while not rs222.EOF%>
<option value="<%=rs222("køn")%>"><% Response.write rs222("fornavn") %></option>
<%
rs222.MoveNext
loop
%>
</select></TD>
</TR>
<TR>
    <TD>Udannelse</TD>
    <TD><input type="text" id="phonea" name="køn" class="Formindhold" size="30"></TD>
</TR>

</TABLE>

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

Så tror jeg at jeg står af 3 stk rs22 med forskelligt indhold??????????
den må du hellere give til andre
Sæt spørgsmålet op igen, men husk at tage noget kode med, så man kan se hvad der sker

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

godt så tager vi en ny helt enkel side kun det emne her... den viker men den viser ikke de tre felter hvor den skal sætte mobil, navn og køn ind...

<%
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
%>
</select>
<%
id = request("vikar")
if id <> "" then
rs4 = "select * from tilmelding where id = "& id &""
%>
<input type="text"  name="fornavn" value="<%=rs4("fornavn")%>">
<input type="text"  name="mobiltlf" value="<%=rs3("mobiltlf")%>">
<input type="text"  name="køn"  value="<%=rs3("køn")%>">
<% end if%>

<%
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
%>
</select>
<%
id = request("vikar")
if id <> "" then
StrSQL2 = "select * from tilmelding where id = "& id &""
Set rs4 = DataConn.Execute(strSQL2)
%>
<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%>

Læg endvidere mærke til formnavn.submit(); hedder din form Formnavn?

LN

<%
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
rs3.close
set rs3 = nothing
%>
</select>
<%
id = request("vikar")
if id <> "" then
StrSQL2 = "select * from tilmelding where id = "& id &""
Set rs4 = DataConn.Execute(strSQL2)
%>
<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")%>">
<%
rs4.close
set rs4 = nothing

end if%>

Læg endvidere mærke til formnavn.submit(); hedder din form Formnavn?

LN

<%
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="vikar.submit();">
<option value"">Vælg vikar</option>
<% do while not rs3.EOF%>
<option value="<%=rs3("id")%>"><% Response.write rs3("fornavn") %>*
</option>
<%
rs3.MoveNext
loop
rs3.close
set rs3 = nothing
%>
</select>
<%
id = request("vikar")
if id <> "" then
StrSQL2 = "select * from tilmelding where id = "& id &""
Set rs4 = DataConn.Execute(strSQL2)
%>

<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")%>">
<%
rs4.close
set rs4 = nothing

end if%>

</form>

den viser stadig ikke inputfelterne :-)

men den skal jo ikke sætte dem ind når jeg lave change på formen kun når jeg laver change på dropdown.

Så lav en form kun til dropdown


LN

hvordan gør jeg det.. kan du sætte det ind i ovenstående kode tak

svar