Sql kald med parametre og et array

function hentArtikler2(Tekst, conn)
  dim arrTekst, sql, rs, word, cmd

  arrTekst = Split(Tekst," ")

  sql = "SELECT DISTINCT url,overskrift,ID,Korttekst " & _
        "FROM dbo.Artikel " & _
        "WHERE Status = 'Aktiv' " 

  for each word in arrTekst
    sql = sql & " AND (Artikeltekst LIKE '%' + ? + '%') "
  next

  sql = sql & " order by Overskrift "

  set cmd = Server.CreateObject("ADODB.Command")
  set cmd.ActiveConnection = conn
  cmd.CommandText = sql

  Set rs = cmd.Execute(, arrTekst)
 
  set hentArtiklers = rs
end function

function hentArtikler2(tekst, conn)
  dim arrTekst, sql, word, cmd

  arrTekst = Split(tekst," ")

  sql = "SELECT DISTINCT url,overskrift,ID,Korttekst " & _
        "FROM dbo.Artikel " & _
        "WHERE Status = 'Aktiv' " 

  for each word in arrTekst
    sql = sql & " AND (Artikeltekst LIKE '%' + ? + '%') "
  next

  sql = sql & " ORDER BY Overskrift "

  set cmd = Server.CreateObject("ADODB.Command")
  set cmd.ActiveConnection = conn
  cmd.CommandText = sql

  set hentArtikler2 = cmd.Execute(, arrTekst)
end function