Jeg har fundet en løsning der virker. MEN jeg har været nødt til at angive antallet af værdier i mit array "manuelt" (se første kodelinje). Antallet af værdier er dynamisk, så jeg skal have fundet en måde hvorpå jeg kan finde antallet af records og overfør denne værdi til ArrayID(). Hm....
<%
Dim objRSmedl, adCmdStoredProcMedl, i, ArrayID(6)
Set objCmd = Server.CreateObject("ADODB.Command")
Set objCmd.ActiveConnection = objConn
adCmdStoredProcMedl = 4
objCmd.CommandText = "procUdvalg" & Session("Udvalg")
objCmd.CommandType = adCmdStoredProcMedl
Set objRSmedl = Server.CreateObject("ADODB.Recordset")
Set objRSmedl = objCmd.Execute
If objRSmedl.EOF Then
Response.Redirect "Show.asp"
Else
i = 0
objRSmedl.MoveFirst
Do Until objRSmedl.EOF
ArrayID(i) = objRSmedl("AnsatID").Value
i = i + 1
objRSmedl.MoveNext
Loop
End If
objRSmedl.Close
Set objRSmedl = Nothing
For i = LBound(ArrayID) To UBound(ArrayID)
Response.Write "ArrayID("& i &") = "& ArrayID(i) & "<br>"
Next
%>
<br>
<%
Dim objRSansat
Set objRSansat = Server.CreateObject("ADODB.Recordset")
strSQLList = "SELECT AnsatID, Fornavn, Efternavn FROM Ansatte " & _
"ORDER BY Fornavn;"
objRSansat.Open strSQLList, objConn
If objRSansat.EOF = True Then
Response.Write "<p class=""heading"">Der er ikke angivet nogen personer i databasen!</p>"
Else
Response.Write "<select class=inp multiple name=udvalg size=5>"
objRSansat.MoveFirst
Do Until objRSansat.EOF
Response.Write "<option "
For i = LBound(ArrayID) To UBound(ArrayID)
If ArrayID(i) = objRSansat("AnsatID").Value Then Response.Write "selected"
Next
Response.Write " value=""" & objRSansat("AnsatID").Value & """>" & objRSansat("Fornavn").Value & " " & objRSansat("Efternavn").Value & ", " & objRSansat("AnsatID").Value & "</option>" & vbCrLf
objRSansat.MoveNext
Loop
Response.Write "</select>"
End If
objRSansat.close
Set strSQL = Nothing
Set objRSansat = Nothing
%>
