jag hämtar alternativen till en dropdown meny ur databasen med denna koden
<SELECT NAME = "kpers6" SIZE = 1>
<%
Set MinCon = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
MinCon.Open "DSN=roger1;UID=;PWD="
SQL = "SELECT Namn FROM kontaktpersoner ORDER BY Namn ASC"
rs.Open SQL, MinCon
response.write "<option value="""">6</option>"
Do While Not rs.EOF
%>
<OPTION><%=rs("Namn")%>
<%
rs.MoveNext
Loop
%>
<SELECT NAME = "kpers6" SIZE = 1>
<%
Set MinCon = Server.CreateObject("ADODB.Connection") response.write sql
MinCon.Open "DSN=roger1;UID=;PWD="
k = request.form("kontor")
SQL = "SELECT Namn " & _
" FROM kontaktpersoner " & _
" where kontor = '" & k & "'" & _
" ORDER BY Namn ASC"
rs.Open SQL, MinCon
response.write "<option value="""">6</option>"
Do While Not rs.EOF
%>
<OPTION><%=rs("Namn")%>
<%
rs.MoveNext
Loop
%>
Nej inte riktigt, lägg utskriften efter det att du har gett variabeln SQL ett värde.
<SELECT NAME = "kpers6" SIZE = 1>
<%
Set MinCon = Server.CreateObject'("ADODB.Connection")
MinCon.Open "DSN=roger1;UID=;PWD="
Set rs = Server.CreateObject("ADODB.recordset")
k = request.form("kontor")
SQL = "SELECT Namn " & _
" FROM kontaktpersoner " & _
" where kontor = '" & k & "'" & _
" ORDER BY Namn ASC"
response.write sql
rs.Open SQL, MinCon
response.write "<option value="""">6</option>"
Do While Not rs.EOF
%>
<OPTION><%=rs("Namn")%>
<%
rs.MoveNext
Loop
%>
(Nu när du bara kontrollerar att du får in värden ordentligt så behöver du ju inte skapa några objekt utan du kan kommentera bort dom tills vidare. Du kan ju också lägga till ett response.end direkt efter din response.write)
I mitt förra inlägg så råkade jag klippa bort en del av din kod där du skapade ditt recordset. Har lagt dit den nu.
När du säger att det inte fungerar, vad menar du då? Får du något felmeddelande eller vad?
Är det nån som vet hur man skall göra för att få detta att fungera och även att sidan uppdateras när man väljer ett nytt alternativ ur dropdown menyn med städerna i?
mvh
437 ms totalt · 4 externa anrop · v20260731065814-full.51f67c91