Typerne stemmer ikke overens

Hvor går det galt?

Jeg har et søgefelt til indtastning af 7 tal. Tallene bruges som søgestreng til visning af indhold, som er en mange tabel i en relation. Da jeg i sidste ende vil kunne rette eller kopiere indhold formoder jeg at indhold skal gemmes i et array.

Når jeg søger får jeg fejlmeddelelsen:

Der opstod en Microsoft VBScript-kørselsfejl (0x800A000D)
Typerne stemmer ikke overens
/emnekasse/redigerindhold.asp, line 27

Linie 27 -  Search request("searchstr"), 0 

Hele koden:
<% OPTION EXPLICIT %>
<!-- #include file="connect1.asp" -->
<!-- #include file="menu.html" -->

<html>

<head>
<LINK REL="StyleSheet" TYPE="text/css" href="Typografi.css">


</head>



<body><br><br><br><br><br><br><br><br>

<%

dim strAction, Search
strAction=request("action")

Main

select case strAction
  case "RetIndhold"
    'vis formular med indtastede oplysninger om indhold
    Search request("searchstr"), 0 

end select


sub Main

%>
  <div id="FormTabel" style="position:absolute; z-index:8; left: 75; top: 100">


  <table border=0 cellpadding=3>
    <tr><td Width=350</td><td colspan=3><H2>Rediger Indhold</H2></td></tr>
  </table>
  </div>

<table border=0 cellpadding=3>


  <tr><td><P>
      <form action="redigerindhold.asp?action=RetIndhold" method="post">  Katalognummer: <br>
        <input type="text" name="searchstr">
        <input type="submit" value="Find">
      </form></P>
    </td>
  </tr>

</table>

<%

end sub



'-----------------------------
' Funktioner/procedurer
'-----------------------------

sub RetIndhold (strS, intType)
  'viser indholdet af det katalognummer der er valgt i en formular

  dim strSQL, objRS, arrIndhold, i


  if intType = 0 then
    strSQL = "SELECT Indhold.IndholdID, Indhold.KatalogRef, Indhold.Antal, Indhold.Materiale, Indhold.Materialetype, Indhold.Pris FROM Indhold WHERE KatalogRef = " & strS
  end if

  set objRS = Server.CreateObject("ADODB.Connection")
  objRS.open strSQL, strConnect, adOpenForwardOnly, adLockReadOnly, adCmdText


  if NOT .EOF then
    arrIndhold = objRS.GetRows
  end if

  objRS.close
  set objRS = Nothing


    if isArray(arrIndhold) then
      for i = 0 to ubound(arrIndhold,6)
      response.write arrIndhold(0,i) & _
        "<br>" & arrIndhold(1,i) & _
        "<br>" & arrIndhold(2,i) & _
        "<br>" & arrIndhold(3,i) & _
        "<br>" & arrIndhold(4,i) & _
        "<br>" & arrIndhold(5,i) & _
        "<br>" & arrIndhold(6,i) & _
        "<hr>"
      next
    else
      response.write "<p> Der er ikke noget indhold i denne kasse.</p>"
    end if
     

end sub
%>

</body>
</html>