<select name="D2" size="1"> <% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source="& Server.MapPath("db.mdb") Set rs = Conn.Execute("select * from Brugerliste Where loggetind = 1 or loggetind = 2" Do until rs.eof if rs("Brugernavn") <> Session("login") then IF RS("Brugernavn") = Session("dropnavn") THEN %> <option value="<%=rs("Brugernavn")%>" Selected><%=rs("Brugernavn")%></option> <% ELSE %> <option value="<%=rs("Brugernavn")%>"><%=rs("Brugernavn")%></option> <% END IF end if rs.movenext loop rs.close set rs = nothing conn.close set conn = nothing end if %></select>
nu ser den sådan ud og dropper ikke alle dem fra databasen med 1 eller 2 i loggetind <select name="D2" size="1"> <% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source="& Server.MapPath("db.mdb") if Request("D2") <> "" then Conn.Execute("UPDATE Brugerliste SET loggetind = 0 WHERE Brugernavn = '" & Request("D2") & "'") Set rs = Conn.Execute("select * from Brugerliste Where loggetind = 1 or loggetind = 2") Do until rs.eof if rs("Brugernavn") <> Session("login") then %> <option value="<%=rs("Brugernavn")%>"><%=rs("Brugernavn")%></option> <% END IF rs.movenext loop rs.close set rs = nothing conn.close set conn = nothing end if %></select>
Æhm, du kunne vel lave en submit selv går jeg ud fra? Det burde da være det mindste af det...
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.