insæt data i flere felter udfra en dropdwon

her henter jeg en bestilling ind som jeg så lukker ved at vælge et vikarnavn.... og klikke godkend bestilling. sorry for den lange kode..

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


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,td,ta,od,sn,ton,aftentlf) 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"),"'","''") & "' ,'" & replace(Request.Form("td"),"'","''") & "' ,'" & replace(Request.Form("ta"),"'","''") & "' ,'" & replace(Request.Form("od"),"'","''") & "' ,'" & replace(Request.Form("sn"),"'","''") & "' ,'" & replace(Request.Form("ton"),"'","''") & "' ,'" & replace(Request.Form("aftentlf"),"'","''") & "'  )"
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"



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

  ' Her sættes overskriften på mailen
 




objCDO.BodyFormat = 0



  ' Send e-mail og skriv status
  objCDO.Send


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


response.End 'stopper koden her
end if


'Viser formen

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 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)">


    <TR>
        <TD>Skal vikaren have kørekort</TD>
        <% If rs("ta") = 1 Then %>
<td align="center"><input type="checkbox" checked="checked" name="ta" value="1"></td>
<% Else %>
<td align="center"><input type="checkbox" ></td>
<% End If %>
    </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>

jeg vil gerne hente vikarens data ind første gang jeg vælger personen i dropdown... dvs at den sætter 'mobiltlf' + 'efternavn' + 'køn' ind auto UDEN at vende siden, for vender den siden insertes bestillingen... eller hvordan kan jeg gøre det smartest ?