Sammensæt men hvordan

Hejsa

Jeg vil gerne kombinere to scripts:


<%
'//Connection,
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("database/sys.mdb") & ";UID=admin;PWD=;"
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * From bruger"
rs.Open strSQL, Conn, 1, 3
'//Finds all users

Do until rs.eof
%>
<TR>
          <TD width="100%"> <IMG SRC="Images/starl.gif" WIDTH="22" HEIGHT="19" BORDER="0" ALT="" ALIGN="absmiddle" VSPACE="0" HSPACE="0"><%=RS("brugerfornavn")%>&nbsp;<%=RS("brugerefternavn")%></TD>
        </TR>
        <TR>
          <TD width="100%">
            <form method="post" action="t_login_load.asp">
              <input type="password" name="password" size="20" maxlength="50"> <input type="submit" value="Login" class="BT">
              <INPUT TYPE="hidden" NAME="brugernavn" VALUE="<%=RS("brugernavn")%>"><br>
<select name="TerminalId">
<%
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("database/sys.mdb")
strSQL = "SELECT * FROM terminal"
Set rs = myConn.Execute(strSQL)

Do until rs.eof
%>
<option name="TerminalId" value="<%=RS("id")%>"><%=RS("terminal_navn")%></option>

<%
rs.movenext
Loop
rs.Close
Set rs = Nothing
myConn.Close
set myConn = Nothing
%>
</select>
          </form>
          </TD>
        </TR>

<%
rs.movenext
Loop
rs.Close
Set rs = Nothing
Conn.Close
set Conn = Nothing
%>

håber at der er en som kan fikse det ;)
vil nemlig gerne se hvordan man gør...