Microsoft VBScript runtime error 800a000d Type Mismatch

Hejsa

Jeg har prøvet at kæde to stykker kode sammen men det vil de ikke:


1. <label for="t1">Terminal_ID:</label>
2. <select id="t1" name="terminal">
3. <%
4. Set myConn = Server.CreateObject("ADODB.Connection")
5. myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("database/sys.mdb")
6. strSQL = "SELECT * FROM terminal"
7. Set rs = myConn.Execute(strSQL)
8.
9. Do until rs.eof
10. %>
11. <option Style="color: white;" value="<%=RS("ID")%>"><%=RS("terminal_navn")%>&nbsp;|&nbsp;<%=RS("terminal_status")%>&nbsp;|&nbsp;<em><%=RS("terminal_info")%></em> </option>
12.
13. <%
14. rs.movenext
15. Loop
16. rs.Close
17. Set rs = Nothing
18. myConn.Close
19. set myConn = Nothing
20. %>
21. </select>
22.
23.
24. <br><br>
25.
26.    <label for="t1">Brugernavn:</label>
27. <select id="t1" name="brugernavn">
28. <option Style="color: white;" value="<%=RS("brugernavn")%>"><%=RS("brugernavn")%></option>
29.
30. <%
31. '//Connection,
32. Set Conn = Server.CreateObject("ADODB.Connection")
33. Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("database/sys.mdb") & ";UID=admin;PWD=;"
34. Set rs = Server.CreateObject("ADODB.RecordSet")
35. strSQL = "Select * From bruger"
36. rs.Open strSQL, Conn, 1, 3
37. '//Finds all users
38.
39. Do until rs.eof
40. %>
41. <option Style="color: white;" value="<%=RS("brugernavn")%>"><%=RS("brugernavn")%></option>
42.
43. <%
44. rs.movenext
45. Loop
46. rs.Close
47. Set rs = Nothing
48. Conn.Close
49. set Conn = Nothing
50. %>
51. </select>



Håber at der er en som kan hjælpe nu her...