mismatch

Vad är fel?

<%

' Deklarera variablerna
Dim objConnection
Dim objList
Dim strSQL
Dim lngPage

' Skapa ett Pager-objekt
Set objList = New Pager

' Sätt sidstorlek (standard = 10)
objList.PageSize = 5

' Sätt aktuell sida
objList.Page = Request.QueryString("page")

' Skapa en databaskoppling
Set objConnection = Server.CreateObject("ADODB.Connection")
objConnection.Open =  "driver={MySQL ODBC 3.51 Driver}"

' Hämta datat till Pager-objektet
strSQL = ("Select a.Article_ID, a.Article_User_ID, a.Article_Category_ID, a.Article_Title, a.Article_Excerpt, a.Article_Content, a.Article_Posted, a.Article_Comments, a.Article_Comments_Count, a.Article_Images, a.Article_Level, a.Article_Picture, c.category_title, c.Category_Image, c.Category_Url FROM FB_Articles a INNER JOIN FB_Categories c ON c.category_id = a.Article_Category_ID WHERE Article_Category_Id IN(11,12,13,14,15,16,17,18,19,20,21) ORDER BY Article_Posted DESC")
objList.Open strSQL, objConnection

' Stäng databaskopplingen
objConnection.Close
Set objConnection = Nothing

%>
            <div id="movies">
             <div class="right"><p><img src='rssiconsmall.jpg' alt='' /></p></div>
              <h2>Filmarkivet \ Start</h2>
<%
' Visa sidbläddring
Call objList.DrawPages("filmer.asp?", "|<", "<<", ">>", ">|", "&nbsp;", 3, "...")

' Loopa ut posterna på sidan
Do until objList.EOF
		response.write("<ul class='features'>")
		response.write("<li class='imageWrapper'><img src='"& strSQL("Article_Picture") &"'  width='120' height='80' alt='' />")
		response.write("</li>")
        response.write("<li class='pic'><h3><img src='tvicon.gif' alt='' /> <a href=""http://www.woho.se/" &  strSQL("Category_Url") & "?Display="& strSQL("Article_ID") &""">" & strSQL("Article_Title") & "</a></h3>")	
		response.write("<h4>"& strSQL("Article_Excerpt") &"</h4>")
		Response.Write("<p>&nbsp;</p>")
		Response.Write("<div class='stars'>")
		Response.Write("<img src='star_full.jpg' alt='' /><img src='star_full.jpg' alt='' /><img src='star_full.jpg' alt='' /><img src='star_full.jpg' alt='' /><img src='star_full.jpg' alt='' />")
		Response.Write("</div>")
		Response.Write("</li>")
		Response.Write("</ul>")
	objList.MoveNext
Loop

' Stäng Pager-objektet
objList.Close
Set objList = Nothing
%>

Microsoft VBScript runtime error '800a000d'

Type mismatch

/filmer.asp, line 244

Rad 244:
response.write("<li class='imageWrapper'><img src='"& strSQL("Article_Picture") &"' width='120' height='80' alt='' />")

TACKSAM FÖR HJÄLP!

strSQL är en sträng och inte ett Recordset. ersätt alla strSQL till objList i din loop

tack