paging problem

Jeg >tror< du skal vise mere kode.. fx det med db'en også der skal stå noget over den.

kører med en DBconnection include er det den du vil have ?

urgh.. okay vent på eagleeye:o) ved desværre ikke om det fungere på samme måde med include:(

denne ligger som en include i toppen af siden:

<%Function Code(strText)
  strText = Server.HTMLEncode(strText)
  strText = Replace(Trim(strText),vbCrLf, "<br>")
  strText = Replace(Trim(strText),"http://http://", "http://")

  Code = strText
End Function

Function Fixa(str)
  Fixa  = Replace(Trim(str),"'","''")
End function

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("xxxxxxxx/archive.mdb")

'### Antal kategorier i rad ###
PK    = 2

'### Bredd på varje kolumn ###
Width  = "50%"

'### Bredd på varje underkategoris tabell i index.asp ###
Width2  = "173"  '(4: 83, 3: 113, 2: 173)

'### Bredd på varje underkategoris tabell i admin.asp ###
Width3  = "172"  '(4: 82, 3: 112, 2: 172)

'### Sessionen som gör att man inte kan ändra om man ej är inloggad. ###
'### Välj nytt för säkerhetens skull ###
Secure = "xxxxxxxx"

'### Adminnamn och adminlösenord. Ändra admin på båda till det du vill ha ###
Losen1 = "xxxxxxxx"
Losen2 = "xxxxxxxx"

If Request.QueryString("mess") = "exist" Then
    mess = "alert('Linken/kategorien " & Request.QueryString("name") & " eksisterer allerede!');return true;"
End If
%>

er den for svær den her ?

/cdc

for god ordens skuld har jeg testet at få denne integreret på siden uden held, dette er fra et andet script:

<%Set Conn = Server.CreateObject("ADODB.Connection")
Set RecSet = Server.CreateObject("ADODB.Recordset")
Conn.Open "driver={Microsoft Access Driver (*.mdb)}; DBQ=" & db

Const perSida1 = 15
Sidan = Request.QueryString("sida")
If Sidan = "" then
    sida = 1
Else
    sida = Sidan
End If

With RecSet
    .CursorLocation = 3
    .CacheSize = perSida1
End With

SQL = "SELECT * FROM nyheder ORDER BY dato DESC"
RecSet.Open SQL, Conn

If RecSet.EOF Then%>

  <tr>
    <td height="14">Inga Nyheter</td>
  </tr>
</table>

<%Else

With RecSet
    .MoveFirst
    .PageSize = perSida1
    .AbsolutePage = sida
End With

Sidor =  RecSet.PageCount
Count = 0
Do While Not RecSet.EOF And Count < RecSet.PageSize

X = X + 1
If X Mod 2 = 0 then
  color = ""
Else
  color = "#f0f0f0"
End If
%>

  <tr bgcolor="<%=Color%>" width="14">
    <td height="14" width="150">&nbsp;<b><%If Len(RecSet("overskrift")) > 29 Then%><%=Left(RecSet("overskrift"),20)%>...<%Else%><%=RecSet("overskrift")%><%End If%></b></td>
    <td align="center" width="100"><%=FormatDateTime(RecSet("Dato"),2)%></td>
    <td align="center" width="90"><%=RecSet("skribent")%></td>
    <td align="right" width="50"><a href="<%=sidnamn%>?do=inne&action=change&id=<%=RecSet("id")%>"><img src="nyheder/bilder/update.gif" border="0" alt="Ändra"></a> &nbsp; <a href="<%=sidnamn%>?do=inne&action=delete&id=<%=RecSet("id")%>"><img src="nyheder/bilder/trash.gif" border="0" alt="Ta bort"></a></td>
  </tr>
       
<%
Count = Count + 1
RecSet.MoveNext
Loop

If Sidor > 1 Then%>
    <tr>
      <td colspan="4" height="14"><img src="nyheder/bilder/dot400.gif"></td>
    </tr>
    <tr>
        <td colspan="4"><b>
    <%If Sidor <> 1 Then
    For Sid = 1 To Sidor
    If (Int(Sid)) = (Int(sida)) Then%><font color="#ff0000"><%=Sid%></font><%Else%> <a href="<%=sidnamn%>?do=inne&sida=<%=Sid%>"><%=Sid%></a> <%End If%>
    <%Next%></b>
        </td>
    </tr>

<%End If
End If%>

Du kan prøve sådan her, koden bruger paging af recordset:


<%
  'Paging
  intPage = Request("page")
  If isNumeric(intPage) = False Or intPage < 1 Then
    intPage = 1
  End If
  Set Url=Conn.Execute("Select * From Url Where kat=" & Request.QueryString("catId"))
  'Paging
  if not Url.EOF then
    Url.PageSize = 5    '<------------ Her sættes antal pr. side
    Url.AbsolutePage = intPage
    intRecCount = Url.PageSize
    intPageCount = Url.PageCount
  End if
  If Url.EOF Then %>
    <table width="350" cellpadding="4" cellspacing="0" class="border" align="center">
      <tr>
        <td align="center" bgcolor="#EAF8F8" class="overskrift">Ingen fotos under <%=Kat("kat")%></td>
    </tr>
    </table>
    <table width="350" border="0" cellspacing="0" cellpadding="0" height="5" align="center">
      <tr>
        <td></td>
      </tr>
    </table>
  <%Else
    Do Until Url.EOF  And intRecCount > 0 %>
      <table width="350" cellpadding="6" cellspacing="0" class="border" align="center">
        <tr>
          <td colspan="2" class="overskrift" bgcolor="#FFFFFF" style="padding-top: 12px;"><center><a href="#" onclick="popWin('<%=Url("url")%>');return false;"><img border="1" src="<%=Url("url")%>" width="110" style="border-color:#84C5E1;" alt="Klik for fuld størrelse"></a></center></td>
        </tr>
        <tr>
          <td bgcolor="#FFFFFF" colspan="2"><hr size="1" color="#84C5E1"></td>
        </tr>
        <tr>
          <td align="left"><b>Demo Foto</b></td>
          <td width="300" align="left" ><b> : <a href="#" target="_blank" class="overskrift" onclick="popWin('<%=Url("url")%>');return false;" onMouseOver="self.status='<%=Url("url")%>';return true" onMouseOut="self.status=' ';return true" title="Klik for fuld størrelse"><%=Code(Url("namn"))%></a></b> -    Se demo foto</td>
        </tr>
        <tr>
          <td align="left"><b>Orginal Foto</b></td>
          <td width="70%" align="left" ><b> : <a href="utorg.asp?id=<%=Url("id")%>" target="_blank" class="overskrift"  onclick="java script:location.reload();" onMouseOver="self.status='<%=Url("urlorg")%>';return true" onMouseOut="self.status=' ';return true"><%=Code(Url("namn"))%></a></b>
            - <%=Url("klickorg")%>
            klik</td>
        </tr>
        <tr>
          <td align="left"><b>Information:</b></td>
          <td width="300" align="left">&nbsp;</td>
        </tr>
        <tr>
          <td colspan="2" align="left"><%=Code(Url("info"))%></td>
        </tr>
      </table>
    <table width="350" border="0" cellspacing="0" cellpadding="0" height="5" align="center">
      <tr>
        <td></td>
      </tr>
    </table>
    <%Url.MoveNext
      intRecCount = intRecCount - 1
    Loop
  End If
End If







og hvis du vil havde nogle links frem og tilbage ovs. kan du tilføje noget i stil med:

Response.Write "<p>Gå til side "
For intNum = 1 To intPageCount
  Response.Write "<a href=?catid=" & Request.QueryString("catId") & "&page=" & intNum & ">" & intNum & "</a> "
Next

Response.Write "<p>"
If Clng(intPage) > 1 Then
  Response.Write "<a href=?catid=" & Request.QueryString("catId") & "&page=" & intPage - 1 & ">&lt;&lt;</a>"
Else
  Response.Write "&lt;&lt;"
End If

Response.Write "&nbsp;"

If Clng(intPage) < Clng(intPageCount) Then
  Response.Write "<a href=?catid=" & Request.QueryString("catId") & "&page=" & intPage + 1 & ">&gt;&gt;</a> "
Else
  Response.Write "&gt;&gt;"
End If

Hele min kode ser således ud, og jeg synes ikke lige  min recordset virker, og ja den er lang:

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3c.org/TR/1999/REC-html401-19991224/loose.dtd">
<!--#Include file="inc/settings.asp"-->
<html>
<head>
<title>Pressefoto Arkivet</title>
<link rel="stylesheet" href="inc/style.css" type="text/css">
  <script language="javascript" type="text/javascript">
    function popWin(file){
      newWin=window.open("","ResizeBillede","width=300,height=200,status=no");
      txt='<ht'+'ml><he'+'ad><ti'+'tle>Resize til billede<\57ti'+'tle><scri';
      txt+='pt language="javascript" type="text/javascript">';
      txt+='function resPic(){h=document.images[0].scrollHeight;';
      txt+='w=document.images[0].scrollWidth;window.resizeTo(w+6,h+32);}<\57scri';
      txt+='pt><\57he'+'ad><bo'+'dy style="overflow:hidden;';
      txt+='border:0px;margin:0px"><i'+'mg src="'+file+'" style="top:0px;left:0px;border:0px;';
      txt+='" onload="resPic();"><\57bo'+'dy><\57ht'+'ml>';
      newWin.document.write(txt);
      newWin.document.close();
    }
  </script>
</head>
<body bgcolor="#FFFFFF" topmargin="0" leftmargin="0">
<div align="center">
  <center>
  <table border="1" width="100%" cellspacing="0" cellpadding="0" height="100%" bordercolor="#FFFFFF">
    <tr>
      <td width="33%" valign="bottom" bgcolor="#FFFFFF" bordercolor="#FFFFFF" background="../bg/ilustra.gif" align="left"><a href="admin.asp"><img border="0" src="gfx/admin_button.gif"></a></td>
      <td width="33%" valign="top" bgcolor="#FFFFFF" bordercolor="#8FCDD1">
<%If Request.QueryString("catId") <> "" Then
  Set Kat=Conn.Execute("Select * From kat Where id=" & Request.QueryString("catId"))
End If%>
<table width="350" cellpadding="6" cellspacing="0" align="center">
  <tr>
    <td align="center" width="10%"></td>
    <td align="center" width="80%"><a name="toppage"><img border="0" src="images/logo_script.gif" vspace="6"></a></td>
    <td align="center" valign="top" width="10%"><img border="0" src="gfx/kuvert.gif"></td>
  </tr>
</table>
<table width="350" cellpadding="6" cellspacing="0" class="border" align="center" bgcolor="#EAF8F8">
  <tr>
    <td valign="top" class="rubrik" bgcolor="#8FCDD1" align="left"><b><span class="overskrift01">Pressefoto Arkivet<%If Request.QueryString("catId") <> "" Then%><%If Not Kat.EOF Then%> - <%=Kat("kat")%><%End If%><%End If%></span></b></td>
  </tr>
</table>
<%If Request.QueryString("catId") = "" Then
Set RS=Conn.Execute("Select * From kat Where sub_kat=0")
  If RS.EOF Then%>
  <table width="350" border="0" cellspacing="0" cellpadding="0" height="5" align="center">
    <tr>
      <td></td>
    </tr>
    <tr>
      <td></td>
    </tr>
    <tr>
      <td></td>
    </tr>
  </table>
  <table width="350" cellpadding="4" cellspacing="0" class="border" align="center">
    <tr>
      <td bgcolor="#EAF8F8" class="overskrift">Ingen kategorier oprettet</td>
    </tr>
  </table>
  <%Else%>
  <table width="350" border="0" align="center">
    <tr>
      <td valign="top">
        <table width="100%" cellpadding="2" cellspacing="2" border="0">
        <%x=0
        Do Until RS.EOF
          Response.Write "<tr>"
        For i=1 to PK%>
          <td width="<%=Width%>">
        <%If RS.EOF then%>
            <table width="<%=Width2%>" cellpadding="4" cellspacing="0">
              <tr>
                <td valign="top">&nbsp;</td>
              </tr>
            </table>
        <%Else%>
            <table width="<%=Width2%>" cellpadding="4" cellspacing="0" class="border">
              <tr>
                <td valign="top" bgcolor="#EAF8F8"><b><a href="index.asp?catId=<%=RS("id")%>" class="rubrik_kat"><%=RS("kat")%></a></b></td>
              </tr>
            </table>
        <%X=X+1
        RS.MoveNext
        End If
          Response.Write "</td>"
        Next
          Response.Write "</tr>"
        Loop%>
        </table>
      </td>
    </tr>
    </table>
  <%End If
Else

Set RS=Conn.Execute("Select * From kat Where sub_kat=" & Request.QueryString("catId"))

Set Antal=Conn.Execute("Select Count(*) As antal From kat Where sub_kat=" & Request.QueryString("catId"))
If Antal("antal") <> "0" Then

  If RS.EOF Then%>
  <table width="350" border="0" cellspacing="0" cellpadding="0" height="5" align="center">
    <tr>
      <td></td>
    </tr>
  </table>
  <table width="350" cellpadding="4" cellspacing="0" class="border" align="center">
    <tr>
      <td align="center" bgcolor="#EAF8F8" class="overskrift">Ingen fotos under <%=Kat("kat")%></td>
    </tr>
  </table>
  <table width="350" border="0" cellspacing="0" cellpadding="0" height="5" align="center">
    <tr>
      <td></td>
    </tr>
  </table>
  <%Else%>
  <table width="350" border="0" align="center">
    <tr>
      <td valign="top" align="center" valign="top">
        <table width="100%" cellpadding="2" cellspacing="2" border="0">
        <%x=0
        Do Until RS.EOF
          Response.Write "<tr>"
        For i=1 to PK%>
          <td width="<%=Width%>">
        <%If RS.EOF then%>
            <table width="<%=Width3%>" cellpadding="4" cellspacing="0">
              <tr>
                <td valign="top">&nbsp;</td>
              </tr>
            </table>
        <%Else%>
            <table width="<%=Width3%>" cellpadding="4" cellspacing="0" class="border" border="0">
              <tr>
                <td valign="top" bgcolor="#EAF8F8"><b><a href="index.asp?catId=<%=RS("id")%>" class="rubrik_kat"><%=RS("kat")%></a></b></td>
              </tr>
            </table>
        <%X=X+1
        RS.MoveNext
        End If
          Response.Write "</td>"
        Next
          Response.Write "</tr>"
        Loop%>
        </table>
      </td>
    </tr>
  </table>
  <%End If
Else%>
<table width="350" border="0" cellspacing="0" cellpadding="0" height="5" align="center">
  <tr>
    <td></td>
  </tr>
</table>
<%Set Url=Conn.Execute("Select * From Url Where kat=" & Request.QueryString("catId"))
  If Url.EOF Then%>
    <table width="350" cellpadding="4" cellspacing="0" class="border" align="center">
      <tr>
        <td align="center" bgcolor="#EAF8F8" class="overskrift">Ingen fotos under <%=Kat("kat")%></td>
    </tr>
    </table>
    <table width="350" border="0" cellspacing="0" cellpadding="0" height="5" align="center">
      <tr>
        <td></td>
      </tr>
    </table>
  <%Else
    Do Until Url.EOF%>
      <table width="350" cellpadding="6" cellspacing="0" class="border" align="center">
        <tr>
          <td colspan="2" class="overskrift" bgcolor="#FFFFFF" style="padding-top: 12px;"><center><a href="#" onclick="popWin('<%=Url("url")%>');return false;"><img border="1" src="<%=Url("url")%>" width="110" style="border-color:#84C5E1;" alt="Klik for fuld størrelse"></a></center></td>
        </tr>
        <tr>
          <td bgcolor="#FFFFFF" colspan="2"><hr size="1" color="#84C5E1"></td>
        </tr>
        <tr>
          <td align="left"><b>Demo Foto</b></td>
          <td width="300" align="left" ><b> : <a href="#" target="_blank" class="overskrift" onclick="popWin('<%=Url("url")%>');return false;" onMouseOver="self.status='<%=Url("url")%>';return true" onMouseOut="self.status=' ';return true" title="Klik for fuld størrelse"><%=Code(Url("namn"))%></a></b> -    Se demo foto</td>
        </tr>
        <tr>
          <td align="left"><b>Orginal Foto</b></td>
          <td width="70%" align="left" ><b> : <a href="utorg.asp?id=<%=Url("id")%>" target="_blank" class="overskrift"  onclick="java script:location.reload();" onMouseOver="self.status='<%=Url("urlorg")%>';return true" onMouseOut="self.status=' ';return true"><%=Code(Url("namn"))%></a></b>
            - <%=Url("klickorg")%>
            klik</td>
        </tr>
        <tr>
          <td align="left"><b>Information:</b></td>
          <td width="300" align="left">&nbsp;</td>
        </tr>
        <tr>
          <td colspan="2" align="left"><%=Code(Url("info"))%></td>
        </tr>
      </table>
    <table width="350" border="0" cellspacing="0" cellpadding="0" height="5" align="center">
      <tr>
        <td></td>
      </tr>
    </table>
    <%Url.MoveNext
    Loop
  End If
End If
If Request.QueryString("catId") <> "" Then
  Set Kat=Conn.Execute("Select * From kat Where id=" & Request.QueryString("catId"))%>
  <table width="350" cellpadding="5" cellspacing="0" class="border" align="center">
    <tr>
      <td bgcolor="#8FCDD1" width="45%" align="left"><%If Kat("sub_kat") = 0 Then%><img border="0" src="gfx/pil_back.gif"><a href="index.asp"><font color="#FFFFFF">Tilbage</font></a>
        <%Else%>
        <img border="0" src="gfx/pil_back.gif"><a href="index.asp?catId=<%=Kat("sub_kat")%>"><font color="#FFFFFF">Tilbage</font></a>
        <%End If%>
      </td>
      <td bgcolor="#8FCDD1" width="10%" align="center" valign="middle"><a href="#toppage"><img border="0" src="gfx/pil_top.gif" alt="Tilbage til top af side"></a>
      </td>
      <td bgcolor="#8FCDD1" width="45%" align="right" class="copyright"> © Freoli &amp; Lysgaard</td>
    </tr>
  </table>
<%End If
End If

Conn.Close
Set Conn=Nothing%>
</td>
      <td width="34%" valign="top" bgcolor="#FFFFFF" bordercolor="#FFFFFF" background="../bg/ilustra.gif">&nbsp;</td>
    </tr>
  </table>
  </center>
</div>

</body>
</html>

Jef får denne fejl:

ADODB.Recordset error '800a0cb3'

Object or provider is not capable of performing requested operation.

/presse/index_page.asp, line 170


i denne del af scriptet:

<%
  'Paging
  intPage = Request("page")
  If isNumeric(intPage) = False Or intPage < 1 Then
    intPage = 1
  End If
  Set Url=Conn.Execute("Select * From Url Where kat=" & Request.QueryString("catId"))
  'Paging
  if not Url.EOF then
    Url.PageSize = 5    '<------------ Her sættes antal pr. side
    Url.AbsolutePage = intPage ( dette skulle være 170 ? )
    intRecCount = Url.PageSize
    intPageCount = Url.PageCount
  End if
  If Url.EOF Then %>

arha denne linje:

  Set Url=Conn.Execute("Select * From Url Where kat=" & Request.QueryString("catId"))

Skal rette til disse så man bruger recordset open metode:

  Set Url = Server.CreateObject("ADODB.Recordset")
  Url.Open "Select * From Url Where kat=" & Request.QueryString("catId"), Conn, 1

Tester jeg lige. Hvor skal denne stå:

Response.Write "<p>Gå til side "
For intNum = 1 To intPageCount
  Response.Write "<a href=?catid=" & Request.QueryString("catId") & "&page=" & intNum & ">" & intNum & "</a> "
Next
.....................

Der hvor du vil havde links til alle siderne, der kommer til at stå:

Gå til side 1 2 3 4 5 6 7 ... n

alt virker som det skal hvis jeg page'er flere en 3 pr. side. hvis jeg setter den til 2, kommer denne fejl....

ADODB.Field error '80020009'

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

/presse/index_page.asp, line 0


Ikke fordi det gør så meget da der skal være 5, men var lidt spøjs

smider du ikke lige et svar også eagleeye :o) Og tak for hjælpen

/cdc

Ok ;)

Jeg får denne fejl når den skal lave en pageing:

ADODB.Field error '80020009'

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

/presse/index_page.asp, line 0

Så den virker ikke helt som den skal endnu :o(

Har det et eller andet at gøre med min DBconection at gøre:

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("xxxxxxxx/archive.mdb")

Er koden som vist : 23/03-2005 00:57:38 ?

nej det er den vist ikke det er vist koden uden paging. Kan du prøve at vise hvordan koden ser ud nu?

ja + rettelse :

Kommentar: eagleeye
23/03-2005 11:07:30

nu har jeg 5 billeder i mappen, og hvis jeg setter den til at vise 5 pr. side er det OK, men hvis jeg setter den til 4 kommer fejlen

hele koden ser således ud:

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3c.org/TR/1999/REC-html401-19991224/loose.dtd">
<!--#Include file="inc/settings.asp"-->
<html>
<head>
<title>Pressefoto Arkivet</title>
<link rel="stylesheet" href="inc/style.css" type="text/css">
  <script language="javascript" type="text/javascript">
    function popWin(file){
      newWin=window.open("","ResizeBillede","width=300,height=200,status=no");
      txt='<ht'+'ml><he'+'ad><ti'+'tle>Resize til billede<\57ti'+'tle><scri';
      txt+='pt language="javascript" type="text/javascript">';
      txt+='function resPic(){h=document.images[0].scrollHeight;';
      txt+='w=document.images[0].scrollWidth;window.resizeTo(w+6,h+32);}<\57scri';
      txt+='pt><\57he'+'ad><bo'+'dy style="overflow:hidden;';
      txt+='border:0px;margin:0px"><i'+'mg src="'+file+'" style="top:0px;left:0px;border:0px;';
      txt+='" onload="resPic();"><\57bo'+'dy><\57ht'+'ml>';
      newWin.document.write(txt);
      newWin.document.close();
    }
  </script>
</head>
<body bgcolor="#FFFFFF" topmargin="0" leftmargin="0">
<div align="center">
  <center>
  <table border="1" width="100%" cellspacing="0" cellpadding="0" height="100%" bordercolor="#FFFFFF">
    <tr>
      <td width="33%" valign="bottom" bgcolor="#FFFFFF" bordercolor="#FFFFFF" background="../bg/ilustra.gif" align="left"><a href="admin.asp"><img border="0" src="gfx/admin_button.gif"></a></td>
      <td width="33%" valign="top" bgcolor="#FFFFFF" bordercolor="#8FCDD1">
<%If Request.QueryString("catId") <> "" Then
  Set Kat=Conn.Execute("Select * From kat Where id=" & Request.QueryString("catId"))
End If%>
<table width="350" cellpadding="6" cellspacing="0" align="center">
  <tr>
    <td align="center" width="10%"></td>
    <td align="center" width="80%"><a name="toppage"><img border="0" src="images/logo_script.gif" vspace="6"></a></td>
    <td align="center" valign="top" width="10%"><img border="0" src="gfx/kuvert.gif"></td>
  </tr>
</table>
<table width="350" cellpadding="6" cellspacing="0" class="border" align="center" bgcolor="#EAF8F8">
  <tr>
    <td valign="top" class="rubrik" bgcolor="#8FCDD1" align="left"><b><span class="overskrift01">Pressefoto Arkivet<%If Request.QueryString("catId") <> "" Then%><%If Not Kat.EOF Then%> - <%=Kat("kat")%><%End If%><%End If%></span></b></td>
  </tr>
</table>
<%If Request.QueryString("catId") = "" Then
Set RS=Conn.Execute("Select * From kat Where sub_kat=0")
  If RS.EOF Then%>
  <table width="350" border="0" cellspacing="0" cellpadding="0" height="5" align="center">
    <tr>
      <td></td>
    </tr>
    <tr>
      <td></td>
    </tr>
    <tr>
      <td></td>
    </tr>
  </table>
  <table width="350" cellpadding="4" cellspacing="0" class="border" align="center">
    <tr>
      <td bgcolor="#EAF8F8" class="overskrift">Ingen kategorier oprettet</td>
    </tr>
  </table>
  <%Else%>
  <table width="350" border="0" align="center">
    <tr>
      <td valign="top">
        <table width="100%" cellpadding="2" cellspacing="2" border="0">
        <%x=0
        Do Until RS.EOF
          Response.Write "<tr>"
        For i=1 to PK%>
          <td width="<%=Width%>">
        <%If RS.EOF then%>
            <table width="<%=Width2%>" cellpadding="4" cellspacing="0">
              <tr>
                <td valign="top">&nbsp;</td>
              </tr>
            </table>
        <%Else%>
            <table width="<%=Width2%>" cellpadding="4" cellspacing="0" class="border">
              <tr>
                <td valign="top" bgcolor="#EAF8F8"><b><a href="index.asp?catId=<%=RS("id")%>" class="rubrik_kat"><%=RS("kat")%></a></b></td>
              </tr>
            </table>
        <%X=X+1
        RS.MoveNext
        End If
          Response.Write "</td>"
        Next
          Response.Write "</tr>"
        Loop%>
        </table>
      </td>
    </tr>
    </table>
  <%End If
Else

Set RS=Conn.Execute("Select * From kat Where sub_kat=" & Request.QueryString("catId"))

Set Antal=Conn.Execute("Select Count(*) As antal From kat Where sub_kat=" & Request.QueryString("catId"))
If Antal("antal") <> "0" Then

  If RS.EOF Then%>
  <table width="350" border="0" cellspacing="0" cellpadding="0" height="5" align="center">
    <tr>
      <td></td>
    </tr>
  </table>
  <table width="350" cellpadding="4" cellspacing="0" class="border" align="center">
    <tr>
      <td align="center" bgcolor="#EAF8F8" class="overskrift">Ingen fotos under <%=Kat("kat")%></td>
    </tr>
  </table>
  <table width="350" border="0" cellspacing="0" cellpadding="0" height="5" align="center">
    <tr>
      <td></td>
    </tr>
  </table>
  <%Else%>
  <table width="350" border="0" align="center">
    <tr>
      <td valign="top" align="center" valign="top">
        <table width="100%" cellpadding="2" cellspacing="2" border="0">
        <%x=0
        Do Until RS.EOF
          Response.Write "<tr>"
        For i=1 to PK%>
          <td width="<%=Width%>">
        <%If RS.EOF then%>
            <table width="<%=Width3%>" cellpadding="4" cellspacing="0">
              <tr>
                <td valign="top">&nbsp;</td>
              </tr>
            </table>
        <%Else%>
            <table width="<%=Width3%>" cellpadding="4" cellspacing="0" class="border" border="0">
              <tr>
                <td valign="top" bgcolor="#EAF8F8"><b><a href="index.asp?catId=<%=RS("id")%>" class="rubrik_kat"><%=RS("kat")%></a></b></td>
              </tr>
            </table>
        <%X=X+1
        RS.MoveNext
        End If
          Response.Write "</td>"
        Next
          Response.Write "</tr>"
        Loop%>
        </table>
      </td>
    </tr>
  </table>
  <%End If
Else%>
<table width="350" border="0" cellspacing="0" cellpadding="0" height="5" align="center">
  <tr>
    <td></td>
  </tr>
</table>
<%
  'Paging
  intPage = Request("page")
  If isNumeric(intPage) = False Or intPage < 1 Then
    intPage = 1
  End If
  Set Url = Server.CreateObject("ADODB.Recordset")
  Url.Open "Select * From Url Where kat=" & Request.QueryString("catId"), Conn, 1
  'Paging
  if not Url.EOF then
    Url.PageSize = 3    '<------------ Her sættes antal pr. side
    Url.AbsolutePage = intPage
    intRecCount = Url.PageSize
    intPageCount = Url.PageCount
  End if
  If Url.EOF Then %>
    <table width="350" cellpadding="4" cellspacing="0" class="border" align="center">
      <tr>
        <td align="center" bgcolor="#EAF8F8" class="overskrift">Ingen fotos under <%=Kat("kat")%></td>
    </tr>
    </table>
    <table width="350" border="0" cellspacing="0" cellpadding="0" height="5" align="center">
      <tr>
        <td></td>
      </tr>
    </table>
  <%Else
    Do Until Url.EOF  And intRecCount > 0 %>
      <table width="350" cellpadding="6" cellspacing="0" class="border" align="center">
        <tr>
          <td colspan="2" class="overskrift" bgcolor="#FFFFFF" style="padding-top: 12px;"><center><a href="#" onclick="popWin('<%=Url("url")%>');return false;"><img border="1" src="<%=Url("url")%>" width="110" style="border-color:#84C5E1;" alt="Klik for fuld størrelse"></a></center></td>
        </tr>
        <tr>
          <td bgcolor="#FFFFFF" colspan="2"><hr size="1" color="#84C5E1"></td>
        </tr>
        <tr>
          <td align="left"><b>Demo Foto</b></td>
          <td width="300" align="left" ><b> : <a href="#" target="_blank" class="overskrift" onclick="popWin('<%=Url("url")%>');return false;" onMouseOver="self.status='<%=Url("url")%>';return true" onMouseOut="self.status=' ';return true" title="Klik for fuld størrelse"><%=Code(Url("namn"))%></a></b> -    Se demo foto</td>
        </tr>
        <tr>
          <td align="left"><b>Orginal Foto</b></td>
          <td width="70%" align="left" ><b> : <a href="utorg.asp?id=<%=Url("id")%>" target="_blank" class="overskrift"  onclick="java script:location.reload();" onMouseOver="self.status='<%=Url("urlorg")%>';return true" onMouseOut="self.status=' ';return true"><%=Code(Url("namn"))%></a></b>
            - <%=Url("klickorg")%>
            klik</td>
        </tr>
        <tr>
          <td align="left"><b>Information:</b></td>
          <td width="300" align="left">&nbsp;</td>
        </tr>
        <tr>
          <td colspan="2" align="left"><%=Code(Url("info"))%></td>
        </tr>
      </table>
    <table width="350" border="0" cellspacing="0" cellpadding="0" height="5" align="center">
      <tr>
        <td></td>
      </tr>
    </table>
    <%Url.MoveNext
      intRecCount = intRecCount - 1
    Loop
  End If
End If

Response.Write "<p>Gå til side "
For intNum = 1 To intPageCount
  Response.Write "<a href=?catid=" & Request.QueryString("catId") & "&page=" & intNum & ">" & intNum & "</a> "
Next

Response.Write "<p>"
If Clng(intPage) > 1 Then
  Response.Write "<a href=?catid=" & Request.QueryString("catId") & "&page=" & intPage - 1 & ">&lt;&lt;</a>"
Else
  Response.Write "&lt;&lt;"
End If

Response.Write "&nbsp;"

If Clng(intPage) < Clng(intPageCount) Then
  Response.Write "<a href=?catid=" & Request.QueryString("catId") & "&page=" & intPage + 1 & ">&gt;&gt;</a> "
Else
  Response.Write "&gt;&gt;"
End If

If Request.QueryString("catId") <> "" Then
  Set Kat=Conn.Execute("Select * From kat Where id=" & Request.QueryString("catId"))%>
  <br><br>
  <table width="350" cellpadding="5" cellspacing="0" class="border" align="center">
    <tr>
      <td bgcolor="#8FCDD1" width="45%" align="left"><%If Kat("sub_kat") = 0 Then%><img border="0" src="gfx/pil_back.gif"><a href="index.asp"><font color="#FFFFFF">Tilbage</font></a>
        <%Else%>
        <img border="0" src="gfx/pil_back.gif"><a href="index.asp?catId=<%=Kat("sub_kat")%>"><font color="#FFFFFF">Tilbage</font></a>
        <%End If%>
      </td>
      <td bgcolor="#8FCDD1" width="10%" align="center" valign="middle"><a href="#toppage"><img border="0" src="gfx/pil_top.gif" alt="Tilbage til top af side"></a>
      </td>
      <td bgcolor="#8FCDD1" width="45%" align="right" class="copyright"> © Freoli &amp; Lysgaard</td>
    </tr>
  </table>
<%End If
End If

Conn.Close
Set Conn=Nothing%>
</td>
      <td width="34%" valign="top" bgcolor="#FFFFFF" bordercolor="#FFFFFF" background="../bg/ilustra.gif">&nbsp;</td>
    </tr>
  </table>
  </center>
</div>

</body>
</html>

Prøv at rette denne linje:

    Do Until Url.EOF  And intRecCount > 0 %>

Til denne:

    Do while not Url.EOF  And intRecCount > 0 %>


eller til denne hvis du bedst kan lide "Do Until" her:

    Do Until Url.EOF or intRecCount = 0 %>

så er den hjemme :o)

Et lille enkelt spm. Kender du til et script som kan lave om på et billed når man henter det fra db om til en tumb. Det skal ikke gennerere en hel side med paging osv... kun lave en tumb on the fly

/cdc

Til at lave thumb skal man bruge en billed koponenet da billedes data skal ændres. Så kan man enten gemme det som en tmp fil eller udskrive thump billede data direkte til browseren.

jeg skal udskrive tumben direkte til browseren, og webhotellet har aspimage bl.a, men har ikke fået det til at virke endnu, måske der kunne være andre muligheder
Ellers er det nok bare mig der griber tingene forkert an....

I mits cript har jeg denne, som du kan se, og det er bare en miniudgave af den store:

          <td colspan="2" class="overskrift" bgcolor="#FFFFFF" style="padding-top: 12px;"><center><a href="#" onclick="popWin('<%=Url("url")%>');return false;"><img border="1" src="<%=Url("url")%>" width="110" style="border-color:#84C5E1;" alt="Klik for fuld størrelse"></a></center></td>

Hvis du kunne sige mig hvad der er bedst kan jeg rode lidt med det i påsken, og får jeg problemer laver jeg et nyt spørgsmål...

/cdc