hente data fra en anden db..

se evt her...http://www.eksperten.dk/spm/471660 ;-)

//akj

ja jeg prøver lige om der er en med en anden vinkel på den :-)

1. lav en onchange="" på din dropdown som submitter din form, og gem kun personens id i value

2. efter dropdown:
if request.form("tnavn") <> "" then
set rs=conn.execute("select alle data where id="& request.form("tnavn"))
if not rs.eof then
  udskriv dine værdier.....
end if
end if

fennec.. men det er midt i en form... jeg er ved at oprette en faktura... men måske kan det lade sig gøre... ? kan du ikke lave lidt mere kode..

noget i denne stil:

<form name="form" method="post">
<SCRIPT LANGUAGE="JavaScript" TYPE="text/javascript">
<!--
function send(mode)
{
    document.form.action = "minSide.asp?mode="+mode;
    document.form.submit()
}
//-->
</SCRIPT>
<table>
<tr>
    <td>
        <select name="id" onchange="send('')">
<%         set rs = conn.Execute("select * from tabel order by name")
        do while not rs.eof
            if Request.Form("id")&"" = rs("id")&"" then
                Response.write "<option value="""& rs("id") &""" selected>"& rs("name")
            else
                Response.write "<option value="""& rs("id") &""">"& rs("name")
            end if
            rs.MoveNext
        loop %>
        </select>
    </td>
</tr>
<%
if Request.Form("id") <> "" then
    set rs = conn.Execute("select * from tabel where id="& Request.Form("id"))
else
    set rs = conn.Execute("select * from tabel order by name")
end if
%>
<tr>
    <td>Navn:</td>
    <td><% if not rs.eof then Response.write rs("name")%></td>
</tr>
<tr>
    <td>Adresse:</td>
    <td><% if not rs.eof then Response.write rs("add")%></td>
</tr>
</table>
</form>

når du så vil gemme data sender du formen med send('save'). I toppen af siden har du så:

if request.querystring("mode") = "save" then
'  gem data her
end if

du kan også sende til en ny side hvis du vil det, så laver du bare lidt om på send funktionen.

ret først dette til:
<%
strSQL = "SELECT Fornavn, Efternavn FROM med where Stilling = 'sales' "
Set rs24 = Conn.Execute(strSQL)
%>
<form method="post" action="dinside.asp">
<TD><select name="tnavn" class="Formindhold" onchange="this.form.submit()">
            <option value=""></option><%
                do while not rs24.EOF
              if rs24.fields("id") = request.querystring("id") then 
            %>
    <option value="<%=rs24("id")%>" selected><% Response.write rs24("fornavn") & " " & rs24("Efternavn") %></option>
</form>
<% else %>
    <option value="<%=rs24("id")%>"><% Response.write rs24("fornavn") & " " & rs24("Efternavn") %></option>

      <%
              rs24.MoveNext
     
          loop
           
            %>
    </select></TD>

og dernæst så opbygger du resten af din form med:
<%
set rs=conn.execute("select alle data where id="& request.form("tnavn"))
if not rs.eof then
%>
</TR>
            <TR>
                <TD>Phone</TD>
                <TD><input type="text" name="ttlf" class="Formindhold" size="50" value="<%=rs.fields("mobil")%>"></TD>
            </TR>
            <TR>
                <TD>Cell</TD>
                <TD><input type="text" name="tmobil" class="Formindhold" size="50" value="<%=rs.fields("mobil")%>"></TD>
            </TR>
            <TR>
                <TD>Mail</TD>
                <TD><input type="text" name="temail" class="Formindhold" size="50" value="<%=rs.fields("email")%>"></TD>
            </TR>
            <TR>
                <TD>Fax</TD>
                <TD><input type="text" name="tfax" class="Formindhold" size="50" value="<%=rs.fields("fax")%>"></TD>
<input type="hidden" name="userid" value="<%response.write (rs.fields("fornavn") & " " & rs.fields("efternavn"))%>">
            </TR>
            </TABLE>
<% end if %>

Noget i denne stil.

det er min kode nu.... derfor har jeg lidt svært ved at sætte en ny form ind...

jeg tror ellebaek er med på noget måske kan I sætte koden i i det her...

ps. der er mange andre felter men dem har jeg ikke taget med...

<%
strSQL = "SELECT Fornavn, Efternavn FROM med where Stilling = 'sales' "
Set rs24 = Conn.Execute(strSQL)
%>




<form method="post"  name="tstest"  action="<%=MM_editAction%>" name="form1" enctype="multipart/form-data" onSubmit="checkFileUpload(this,'GIF,JPG,JPEG,BMP,PNG,DOC,PDF,XLS',true,');return document.MM_returnValue">

<TD>Firma<td><input type="text" name="firmanavn" class="Formindhold" size="30"></td></TD>

<TABLE>
            <TR><b>Sælger
                <TD>Name</TD>
    <TD><select name="tnavn" class="Formindhold" >
            <option value=""></option><%
                do while not rs24.EOF
               
            %>
    <option value="<% Response.write rs24("fornavn") & " " & rs24("Efternavn") %>"><% Response.write rs24("fornavn") & " " & rs24("Efternavn") %></option>
      <%
              rs24.MoveNext
     
          loop
           
            %>
    </select></TD>
            </TR>
            <TR>
                <TD>Phone</TD>
                <TD><input type="text" name="ttlf" class="Formindhold" size="50" ></TD>
            </TR>
            <TR>
                <TD>Cell</TD>
                <TD><input type="text" name="tmobil" class="Formindhold" size="50" ></TD>
            </TR>
            <TR>
                <TD>Mail</TD>
                <TD><input type="text" name="temail" class="Formindhold" size="50" ></TD>
            </TR>
            <TR>
                <TD>Fax</TD>
                <TD><input type="text" name="tfax" class="Formindhold" size="50" ></TD>
            </TR>
            </TABLE>

<input type="submit" value="Submit" name="submit" class="Buttons" >

<%
strSQL = "SELECT id, Fornavn, Efternavn FROM med where Stilling = 'sales' "
Set rs24 = Conn.Execute(strSQL)
%>


<TD>Firma<td><input type="text" name="firmanavn" class="Formindhold" size="30"></td></TD>

<TABLE>
<form method="post" action="<%=MM_editAction%>">
            <TR><b>Sælger
                <TD>Name</TD>
    <TD><select name="tnavn" class="Formindhold" onchange="this.form.submit()">
            <option value=""></option><%
                do while not rs24.EOF
              if rs24.fields("id") = request.querystring("id") then 
            %>
    <option value="<%=rs24("id")%>" selected><% Response.write rs24("fornavn") & " " & rs24("Efternavn") %></option>

<% else %>
    <option value="<%=rs24("id")%>"><% Response.write rs24("fornavn") & " " & rs24("Efternavn") %></option>

      <%
              rs24.MoveNext
     
          loop
           
            %>

    </select>
</form></TD>
            </TR>

<% if request.form("tname") <> "" then %>
            <TR>
                <TD>Phone</TD>
                <TD><input type="text" name="ttlf" class="Formindhold" size="50" value="<%=rs.fields("mobil")%>"></TD>
            </TR>
            <TR>
                <TD>Cell</TD>
                <TD><input type="text" name="tmobil" class="Formindhold" size="50" value="<%=rs.fields("mobil")%>"></TD>
            </TR>
            <TR>
                <TD>Mail</TD>
                <TD><input type="text" name="temail" class="Formindhold" size="50" value="<%=rs.fields("email")%>"></TD>
            </TR>
            <TR>
                <TD>Fax</TD>
                <TD><input type="text" name="tfax" class="Formindhold" size="50" value="<%=rs.fields("fax")%>"></TD>
<input type="hidden" name="userid" value="<%response.write (rs.fields("fornavn") & " " & rs.fields("efternavn"))%>">
            </TR>
<% end if %>
            </TABLE>

<input type="submit" value="Submit" name="submit" class="Buttons" >

Prøv dette.

elle: det er denne linie : <%
              rs24.MoveNext
     
          loop
           
            %>


Microsoft VBScript compilation error '800a040e'

'loop' without 'do'

line 521

loop
^

ja... end if er en god ting ;-)
ret disse linier:

<%
rs24.MoveNext
     
loop
%>

til:
<%
end if
rs24.MoveNext
     
loop
           
%>

nu er det ok, men den viser ikke nogen af sælgerne.... dropdown er der ikke noget i

mystisk, der burde være noget i dropdownen og ikke de 4 andre felter...

den kommer ikke forbi :

<TD><select name="tnavn" class="Formindhold" onchange="this.form.submit()">
            <option value=""></option><%
                do while not rs24.EOF
              if rs24.fields("id") = request.querystring("id") then 
            %>
    <option value="<%=rs24("id")%>" selected><% Response.write rs24("fornavn") & " " & rs24("Efternavn") %></option>

<% else %>
    <option value="<%=rs24("id")%>"><% Response.write rs24("fornavn") & " " & rs24("Efternavn") %></option>

      <%
              rs24.MoveNext
     
          loop
           
            %>

    </select>
</form></TD>

nej, det skal den heller ikke, jeg har sat en if inden dem for at sikre at den ikke kommer med en fejl, for det ville den gøre da connectionen ikke er defineret på det tidspunkt.
Men skriver den nogle værdier i dropdownen ?

nej igentin dropdownen er helt lille

og du er sikker på at der er elementer i din db ?

jep for denne virker viser 3 sælger med fornavn og efternavn...

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

jer er på igen i morgen

<%
strSQL = "SELECT id, Fornavn, Efternavn FROM med where Stilling = 'sales' "
Set rs24 = Conn.Execute(strSQL)
%>


<TD>Firma<td><input type="text" name="firmanavn" class="Formindhold" size="30"></td></TD>

<TABLE>
<form method="post" action="<%=MM_editAction%>">
            <TR><b>Sælger
                <TD>Name</TD>
    <TD><select name="tnavn" class="Formindhold" onchange="this.form.submit()">
            <option value=""></option><%
                do while not rs24.EOF
              if rs24.fields("id") = request.querystring("id") then 
            %>
    <option value="<%=rs24("id")%>" selected><% Response.write rs24("fornavn") & " " & rs24("Efternavn") %></option>

<% else %>
    <option value="<%=rs24("id")%>"><% Response.write rs24("fornavn") & " " & rs24("Efternavn") %></option>

      <%
              rs24.MoveNext
     
          loop
           
            %>

Så burde denne også virke, da der ikke er nævneværdig forskel, men skriv hvis du finder nogen ting inden i morgen

den sidste du lavede er den samme som : 15:40:02

og så siger den det med loop.... så sætter jeg end if ind.. men den vælger ikke noget...

Prøv at erstatte det med denne...

<%
strSQL = "SELECT id, Fornavn, Efternavn FROM med where Stilling = 'sales' "
Set rs24 = Conn.Execute(strSQL)
%>


<TD>Firma<td><input type="text" name="firmanavn" class="Formindhold" size="30"></td></TD>

<TABLE>
<form method="post" action="<%=MM_editAction%>">
            <TR><b>Sælger
                <TD>Name</TD>
    <TD><select name="tnavn" class="Formindhold" onchange="this.form.submit()">
            <option value=""></option><%
                do while not rs24.EOF
              if rs24.fields("id") = request.querystring("id") then 
     
    response.write "<option value=""" & rs24("id") & """ selected>" & rs24("fornavn") & " " & rs24("Efternavn") & "</option>"

else
    response.write "<option value=""" & rs24("id") & """>" & rs24("fornavn") & " " & rs24("Efternavn") & "</option>"

      end if
              rs24.MoveNext
     
          loop
           
            %>

desværre der kommer ikke noget frem...:-(

<%
strSQL = "SELECT id, Fornavn, Efternavn FROM med where Stilling = 'sales' "
Set rs24 = Conn.Execute(strSQL)
%>


<TD>Firma<td><input type="text" name="firmanavn" class="Formindhold" size="30"></td></TD>

<TABLE>
<form method="post" action="<%=MM_editAction%>">
            <TR><b>Sælger
                <TD>Name</TD>
    <TD><select name="tnavn" class="Formindhold" onchange="this.form.submit()">
            <option value=""></option><%
                do while not rs24.EOF
              'if rs24.fields("id") = request.querystring("id") then 
     
    'response.write "<option value=""" & rs24("id") & """ selected>" & rs24("fornavn") & " " & rs24("Efternavn") & "</option>"

'else
    response.write "<option value=""" & rs24("id") & """>" & rs24("fornavn") & " " & rs24("Efternavn") & "</option>"

      'end if
              rs24.MoveNext
     
          loop
           
            %>

Prøv lige denne i stedet så..

det samme ingenting...

arh... Er der et felt i din database der hedder id ?

jep...

ok...

prøv lige at højreklikke og vise kilden for siden og kopier den herind...

2sek

det er mig der har fucket i det og jeg tør ikke fortælle at jeg har glemt at skrive "id" i sqlen...

*ss*

Hvad siger den så ?

jamen det er noget skidt fordi den jo vender siden når jeg vælger en sælger.. derfor er det ikke godt for så opretter den jo fakturaen inden jeg har tastet de sidste oplysninger..

Hvad hedder den side du arbejder i ?
og hvordan ser den del ud som indsætter i databasen (og hvad hedder den side)?

opret.asp

og det er med insert..

Ok... Hedder den også opret ?
og hvad står der i toppen af den fil..

request.serverVariables("REQUESTED_METHOD") = "POST" ?

If (CStr(UploadFormRequest("MM_insert")) <> "") Then

kom med et svar vi lukker for denne gang tak for kampen

svar...