Paging-panik

5 svar · 281 visningar · startad av Korak 10 aug. 2002

KorakMedlem sedan maj 2001133 inlägg

Trådstart10 aug. 2002 20:52#1

Jag vet att det finns massor av inlägg ang. paging.
Jag har kollat och försökt som en galning, men får helt enkelt inte till det.
Vore otroligt tacksam om jag kunde få hjälp med någon form av paging till detta script:

<%Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & db%>

<table width="400" border="0" cellpadding="3">

<%Set RecSet=Conn.Execute("Select * From galleri Where sort='" & Request.Querystring("kat") & "' Order By namn")

If RecSet.EOF Then%>
  <tr>
    <td>Inga bilder inlagda i kategorin <%=Request.Querystring("kat")%>!</td>
  </tr>
<%Else
Do Until RecSet.EOF
Set RS=Conn.Execute("Select * From galleri Where namn='" & RecSet("namn") & "'")
Set ReS=Conn.Execute("Select Top 1 * From bilder Where namn='" & RecSet("namn") & "' and visa=True Order By datum desc")
Set Bilder=Conn.Execute("Select Count(*) As antal From bilder Where namn='" & RecSet("namn") & "'")

If ReS.EOF Then%>
  <tr>
    <td width="100" valign="top" nowrap>
 	<img src="pics/tom.gif" width="90" border="1">
    </td>
    <td valign="top" width="5" background="bilder/dotV56.gif">&nbsp;</td>
    <td valign="top" width="295">
         <%=RecSet("namn")%> (Inga bilder)<br>
         Skapad: <%=RecSet("datum")%><br>
        <%If Len(RS("info")) > 60 Then%><%= Left(Replace(RS("info"), vbCrLf, "<br>" ),60)%>..<%Else%><%=Replace(RS("info"), vbCrLf, "<br>" )%><%End If%>
    </td>
  </tr>
  <tr>
    <td colspan="3" height="10"><img src="bilder/dot400.gif"></td>
  </tr>
<%Else%>
  <tr>
    <td width="100" valign="top" nowrap>
 	<a href="visa.asp?id=<%=RecSet("namn")%>"><img src="pics/<%=ReS("Bild")%>" alt="Öppna <%=RecSet("namn")%>" width="90" border="1"></a>
    </td>
    <td valign="top" width="5" background="bilder/dotV56.gif">&nbsp;</td>
    <td valign="top" width="295"> <b><a href="visa.asp?id=<%=RecSet("namn")%>"><%=RecSet("namn")%></a></b> (<%=Bilder("Antal")%> 
      <%If Bilder("Antal") = 1 Then%>
      bild 
      <%Else%>
      bilder <%End If%>)<br>
	  
         Uppdaterat: <%=RecSet("datum")%><br>
        <br>
      <%If Len(RS("info")) > 60 Then%><%= Left(Replace(RS("info"), vbCrLf, "<br>" ),60)%>..<%Else%><%=Replace(RS("info"), vbCrLf, "<br>" )%><%End If%>
    </td>
  </tr>
  <tr>
  <tr>
    <td colspan="3" height="10"><img src="bilder/dot400.gif"></td>
  </tr>
<%End If
RecSet.MoveNext
Loop
End If%>

EkströmMedlem sedan feb. 20022 594 inlägg

10 aug. 2002 21:45#2

Since jag inte har orken att göra iordning detta åt dig kan jag bara tipsa om Vides utmärkta artikel på webeye.nu. Den kan säkert hjälpa dig, Korak.

KorakMedlem sedan maj 2001133 inlägg

11 aug. 2002 12:50#3

Har kollat men får ändå inte till det.
Förstår inte hur jag ska baka in det i alla IF och ELSE, det blir bara fel.
Ingen som har en enkel variant på hur jag kan göra?

solbulleMedlem sedan mars 20015 287 inlägg

11 aug. 2002 13:57#4

Har du det där scriptet igång på webben så man kan se hur det blir idag?
Funderar lite på vad denna sqlsats gör:

Set ReS=Conn.Execute("Select Top 1 * From bilder Where namn='" & RecSet("namn") & "' and visa=True Order By datum desc")

PeeerMedlem sedan mars 20025 907 inlägg

11 aug. 2002 14:02#5

PatrikBs genomgång kanske kan hjälpa dig lite
http://www.webforum.nu/showthread.php?s=&threadid=13551

KorakMedlem sedan maj 2001133 inlägg

11 aug. 2002 14:08#6

Jag lämnade ute lite av koden som jag inte trodde hade någon betydelse för att göra inlägget mindre.
Du kan se scriptet i aktion här:
http://www.eskobar.nu/galleri/

Det är alltså sidan man kommer till när man :: Väljer kategori :: som jag skulle behöva ha in en paging.