Problem med select in

Her er en måde det kunne løses på. Du får godt nok et DB kald for hver gang.

<%
  strPC = Array(1,3,5) 'tallene byttes ud med data fra dit tekst felt
 
  PC_to  = int(uBound(strPC))
 
  While i <= PC_to
    SQL = "SELECT * FROM [tabel] WHERE Computer = " & strPC(i)
    set oRS = oConnection.Execute(SQL)

    Response.Write oRS("Computer") & "<BR>"
    i = i + 1
  Wend
%>

der skal lige et i=0 op under det første PC_to så det kommer til at se sådan ud:

<%
  strPC = Array(1,3,5) 'tallene byttes ud med data fra dit tekst felt
 
  PC_to  = int(uBound(strPC))
  i = 0
 
  While i <= PC_to
    SQL = "SELECT * FROM [tabel] WHERE Computer = " & strPC(i)
    set oRS = oConnection.Execute(SQL)

    Response.Write oRS("Computer") & "<BR>"
    i = i + 1
  Wend
%>