Vad är fel ?

Kod? :)

"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

Kod:

RecSet.AbsolutePage = page

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

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 %>

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

RecSet.AbsolutePage = CInt(page)

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

Hur ser resten av koden ut?

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"> 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%>

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

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

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.