datatyperne ikke stemmer overens ?

Jeg har et langt script her, men der er en simpel fejl, der siger at datatyperne ikke stemmer overens, - jeg kan spmpelt hen ikke finde den, det har virket, men jeg har måske rettet i noget et sted??

Kan I se det???



<% thispage = "produkter" %>
<!--#include file="adovbs.inc" -->
<%
intCatalogID = Request.QueryString("intCatalogID")
strCatalog_name = Request.QueryString("strCatalog_NAME")
%>
<html>
<head>
.:Her er alm html kode:.<td valign="top"><table width="440" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td>     
      <p><font face="Arial" size="3"><%=strCatalog_name%></font></p>
                              <table border="0" cellspacing="0" cellpadding="2" width="437">
                                <%
     
Dim iPageSize      'Number of rows in page
Dim iPageCount      'The number of pages we'll get back
Dim iPageCurrent    'The page we want to show
Dim strParam        'Passing a parameter
Dim strSQL          'SQL command
Dim iRecordsShown  'Loop controller for displaying just iPageSize records
Dim I              'Standard looping var

iPageSize = 5 'Change this integer to the number of records to display on page

' Retrieve page to show or default to 1
If Request.QueryString("page") = "" Then
    iPageCurrent = 1
Else
    iPageCurrent = CInt(Request.QueryString("page"))
End If

'Read in parameters for your query.
'Read in order or default to intCatalogID
If Request.QueryString("intCatalogID") = "" Then
    strParam = Response.Write (rsCatalog("catalogID")) &strCatalog_name=Response.Write (Server.URLEncode(rsCatalog("catalogName"))) &rsCatalog("catalogName")
Else
    strParam = Request.QueryString("intCatalogID")
End If

' Build SQL String using the parameters
strSQL = "SELECT productID,productName,productPrice FROM products WHERE catalogID = '"&strParam&"'"

' Create and open our connection         
      Set Conn = Server.CreateObject("ADODB.Connection")
      Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("../e-handel/db/database.mdb")
     
      Set rsCatalog = Server.CreateObject("ADODB.Recordset")
      rsCatalog.Open "catalogs",Conn,adOpenStatic,adLockReadOnly,adCmdTable
     
      Set rsProdInfo = Server.CreateObject("ADODB.Recordset")
      rsProdInfo.PageSize = iPageSize
      rsProdInfo.CacheSize = iPageSize
      rsProdInfo.Open strSQL, Conn, adOpenStatic, adLockReadOnly, adCmdText
     
      iPageCount = rsProdInfo.PageCount
     
          If iPageCurrent > iPageCount Then
            iPageCurrent = iPageCount
        end if
        If iPageCurrent < 1 Then
            iPageCurrent = 1
        end if
       
       
        If iPageCount = 0 Then
            Response.Write "No records found!"
        Else
        'Move to the selected page
        rsProdInfo.AbsolutePage = iPageCurrent
%>
                                <tr>
                                  <td align="left" valign="center" bgcolor="#000099" nowrap width="342"><font color="#ffffff" face="Verdana" size="2" style="BACKGROUND-COLOR: #000099">Produkt</font></td>
     
                                  <td align="left" valign="center" bgcolor="#000099" nowrap width="78"><font color="#ffffff" face="Verdana" size="2" style="BACKGROUND-COLOR: #000099">Stk.
                                    pris </font></td>
      </tr>
        <%     
        i = 1
        iRecordsShown = 0
        Do While iRecordsShown < iPageSize And Not rsProdInfo.EOF
        If i mod 2 = 0 Then
         
      %>     
     
     
      <tr>
                                  <td align="left" valign="middle" nowrap width="342" bgcolor="EEEEEE"><font face="Verdana" size="1"><b><a href="product.asp?intProdID=<%= rsProdInfo("productID")%>">
                                    <%= rsProdInfo("productName") %></a></b></font></td>
                                  <td align="right" valign="middle" nowrap width="78" bgcolor="EEEEEE"><font face="Verdana" size="1">Kr<%= formatNumber(rsProdInfo("productPrice"),2) %></font></td>
        </tr>
        <% else %>
        <tr>
                                  <td align="left" valign="middle" nowrap width="342"><font face="Verdana" size="1"><b><a href="product.asp?intProdID=<%= rsProdInfo("productID")%>">
                                    <%= rsProdInfo("productName") %></a></b></font></td>
                                  <td align="right" valign="middle" nowrap width="78"><font face="Verdana" size="1">Kr<%= formatNumber(rsProdInfo("productPrice"),2) %></font></td>
        </tr>
<%
      end if
      i = i + 1
      iRecordsShown = iRecordsShown + 1
      rsProdInfo.MoveNext
      Loop
     
End if
  rsProdInfo.Close
        set rsProdInfo = Nothing
         
        Conn.Close
        set Conn = Nothing   
         
     
    %>
      </table>
                              <%

If iPageCurrent <> 1 Then
    %>
                              <a href="produkter.asp?intCatalogID=<%= Server.URLEncode(strParam) %>&page=<%= iPageCurrent - 1 %>"><b>N&aelig;ste</b></a>&nbsp;&nbsp;
                              <%
End If

If iPageCurrent < iPageCount Then
    %>
                              <%
End If
%>
                            </td>
 
  </tr>
</table>

      <br><br></td>
                    </tr>
                  </table>
                </td>
                <td width="2" valign="top" background="billeder/prik_lodret.gif"></td>
                  <!--#include file="menu.asp" -->
              </tr>
            </table>
          </td>
        </tr>
      </table>
     
      <!--#include file="bund.asp" -->
    </td>
  </tr>
</table>
</body>
</html>