---
title: "Vad är fel ?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/88805-vad-är-fel"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Denniss"
published: "2003-10-17T19:53:01.000Z"
updated: "2003-10-18T22:44:57.000Z"
replies: 12
views: 388
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/88805-vad-är-fel"
---

# Vad är fel ?

## #1 — Denniss, 2003-10-17T19:53Z

Provider error '80020005' 
Type mismatch. 

/visa.asp, line 382

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

## #2 — Sebbe, 2003-10-17T19:59Z

Kod? :)

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

## #3 — Jesper T, 2003-10-17T22:23Z

"Type mismatch" brukar man få när man försöker jämföra eller sätta in ett värde där det ena är en sträng och den andra är en integer t.ex. "9" \> 8

```
 cInt("9") > 8
```

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

## #4 — Denniss, 2003-10-18T07:32Z

Kod:

RecSet.AbsolutePage = page

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

## #5 — @nders, 2003-10-18T09:06Z

Vad innehåller *page* då? Skriv ut värdet.

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

## #6 — Denniss, 2003-10-18T22:11Z

vet ej riktig
\<%RecSet.MoveFirst 
RecSet.PageSize = perSida

TotalPages = RecSet.PageCount 
RecSet.AbsolutePage = page 

Count = 0 
Do While Not RecSet.EOF And Count \< RecSet.PageSize %\>

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

## #7 — Sebbe, 2003-10-18T22:12Z

Funkar det kanske bättre såhär?

```
RecSet.AbsolutePage = CInt(page)
```

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

## #8 — Denniss, 2003-10-18T22:19Z

ja det är bättre. jag får ingen felmeddelande men raderna syns inte

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

## #9 — Sebbe, 2003-10-18T22:20Z

Hur ser resten av koden ut?

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

## #10 — Denniss, 2003-10-18T22:23Z

hela koden

\<%
'############ 
Dim FargRaknare
'############ 

RecSet.MoveFirst 
RecSet.PageSize = perSida
TotalPages = RecSet.PageCount 

RecSet.AbsolutePage = CInt(page)
Count = 0 
Do While Not RecSet.EOF And Count 

RecSet.PageSize

	FargRaknare = FargRaknare + 1
If FargRaknare Mod 2 = 0 Then
	Farg = "#FFFEEE" ' 2:DRA RADFÄRGEN
Else
	Farg = "#EEEEEE" '1:STA RADFÄRGEN
End If

%\>
\<tr BGCOLOR="\<%=Farg%\>"\>

                                                  \<td width="88" height="18"\>\<font size="1" face="Verdana"\>&nbsp;\<%=left(recset("Datum"),10)%\>\</font\>\</td\>
            \<td width="44" height="18"\>\<font size="1" face="Verdana"\>&nbsp;\<%=mid(recset("Datum"),12,5)%\>\</font\>\</td\>
            \<td width="21" height="18"\>\<%if not recset("bild") = "" then%\>\<font size="1" face="Verdana"\>&nbsp;\<img src="Bilder/bild.gif"\>\<%end if%\>\</font\>\</td\>
            \<td width="196" height="18"\>\<font face="Verdana"\>\<font size="1"\>&nbsp;\</font\>\<b\>\<a href="visa_annons.asp?annonsid=\<%=recset("annonsid")%\>"\>\<font size="1"\>\<%=recset("Rubrik")%\>\</b\>\</font\>\</a\>\</font\>\</td\>
            \<td width="92" height="18"\>\<font size="1" face="Verdana" \>&nbsp;\<%if not recset("Pris") = "" then%\>\<%=recset("Pris")%\>&nbsp;kr\<%end if%\>\</font\>\</td\>
            \<td width="130" height="18"\>\<font size="1" face="Verdana"\>&nbsp;\<%=recset("kategori")%\>\</font\>\</td\>
            \<td width="80" height="18"\>\<font size="1" face="Verdana"\>&nbsp;\<%=recset("region")%\>\</font\>\</td\>
            \<td width="20" height="18"\>\<font size="1" face="Verdana"\>&nbsp;&nbsp;&nbsp;&nbsp;\<%=recset("visat")%\>\</font\>\</td\>
                                                       \</tr\>\<%
          Count = Count + 1 
          recset.movenext
            loop
            %\>
        \</table\>\<%else%\>\<img border="0" src="Bilder/genom.gif" width="1" height="6"\>\<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber10"\>
          \<tr\>
            \<td width="100%"\>&nbsp;\<b\>\<font size="4"\>\<center\>Här var det tomt\</font\>\</b\>\</td\>
          \</tr\>
        \</table\>\<%end if%\>
  \<img border="0" src="Bilder/genom.gif" width="1" height="6"\>\<%If not recset.eof Then%\>

\<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="710" id="AutoNumber9"\>
          \<tr\>
            \<td width="100%" bgcolor="#FFFFFF"\>\<b\>\<font size="2" face="Tahoma" COLOR="#000000"\>&nbsp;Sida:\</font\>\<font size="1" face="Tahoma"\>
             \<% 
          If TotalPages \<\> 1 Then
          If (Int(page)) \<\> 1 Then
          %\>
                    \</font\> 
            \<font face="Tahoma" COLOR="#006699"\>
         \<a href="sok_annons_visa.asp?querykat=\<%=querykat%\>&page=\<%=(Int(page)-1)%\>&queryreg=\<%=queryreg%\>&page=\<%=(Int(page)-1)%\>" onFocus="this.blur()"\>\<font size="1"\>« Föregående sida\</font\>\</a\>\<font size="1"\> \| 
                    \<%Else%\>

\<%End If%\>
                    \<% 
          For Pages = 1 To TotalPages 
          %\>
                    \<%If (Int(Pages)) = (Int(page)) Then%\> \<%=Pages%\> 
                    \<%Else%\>
                    \<a href="sok_annons_visa.asp?querykat=\<%=querykat%\>&page=\<%=Pages%\>&queryreg=\<%=queryreg%\>&page=\<%=Pages%\>" onFocus="this.blur()"\>\<%=Pages%\>\</a\> 
                    \<%End If%\>
                    

\<%Next%\>
                    \<%End If%\>
                    \<%
          If (Int(page)) \<\> (Int(TotalPages)) Then
          %\>
                    \| \<a href="sok_annons_visa.asp?querykat=\<%=querykat%\>&page=\<%=(Int(page)+1)%\>&queryreg=\<%=queryreg%\>&page=\<%=(Int(page)+1)%\>" onFocus="this.blur()"\>\<font size="1"\>Nästa sida »\</font\>\</a\>
                    \<%Else%\>
                    \<% end if %\> \</font\>\</td\>
          \</tr\>
        \</table\>
        \<%end if%\>

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

## #11 — Denniss, 2003-10-18T22:24Z

de raderna där annonserna skall visas syns inte fast paging syns

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

## #12 — Denniss, 2003-10-18T22:26Z

titta på <http://www.dinannons.se>

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

## #13 — Denniss, 2003-10-18T22:44Z

När jag ändrar från:

\<% 
'############ 
Dim FargRaknare 
'############ 

RecSet.MoveFirst 
RecSet.PageSize = perSida 
TotalPages = RecSet.PageCount 

RecSet.AbsolutePage = CInt(page) 
Count = 0 
Do While Not RecSet.EOF And Count 

RecSet.PageSize 

FargRaknare = FargRaknare + 1 
If FargRaknare Mod 2 = 0 Then 
Farg = "#FFFEEE" ' 2:DRA RADFÄRGEN 
Else 
Farg = "#EEEEEE" '1:STA RADFÄRGEN 
End If 

%\> 
\<tr BGCOLOR="\<%=Farg%\>"\> 

till:

\<%RecSet.MoveFirst 
RecSet.PageSize = perSida

TotalPages = RecSet.PageCount 
RecSet.AbsolutePage = CInt(page) 

Count = 0 
Do While Not RecSet.EOF And Count \< RecSet.PageSize %\>

då funkar det.

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/88805-vad-är-fel