---
title: "mismatch"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/171755-mismatch"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Jeppeweb"
published: "2008-05-23T19:06:48.000Z"
updated: "2008-05-23T19:23:22.000Z"
replies: 2
views: 468
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/171755-mismatch"
---

# mismatch

## #1 — Jeppeweb, 2008-05-23T19:06Z

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!

Permalänk: https://www.webforum.nu/p/171755

## #2 — voigtann1, 2008-05-23T19:17Z

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

Permalänk: https://www.webforum.nu/p/2112254

## #3 — Jeppeweb, 2008-05-23T19:23Z

tack

Permalänk: https://www.webforum.nu/p/2112256

---

Tråden på webben: https://www.webforum.nu/amne/asp/171755-mismatch