En massa nedladdningsbara filer skall listas och det skall delas upp på 8 filer per sida. Kom igen... Ingen som har en lösning eller ett alternativ?!paging/visningsfel & FSO
Pagingen fungerar perfekt MEN:
Har även ett FSOscript som kontrollerar att filen verkligen finns ( för att undvika ev. 404-fel) och finns den inte är det ingen idé att skriva ut beskrivning m m och då stämmer inte numreringen(i) utan det blir i så fäl färre än 8 postningar på sidan
Hur göra?
<%
set RS=conn.execute("SELECT COUNT(Id) FROM rkr_publikationer WHERE sidId="&Id&" ")
rowscount=RS(0)
RS.Close
posterpersida=8
intPage = rowscount/posterpersida
sida=request.querystring("sida")
if sida = "" OR sida= 0 then
offset=0
sida=0
Else
offset=sida * posterpersida
sida = cInt(sida)
End if
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
filesSQL="SELECT Id, datum, rubrik, filurl FROM files WHERE sidId="&Id&" ORDER BY datum DESC, Id LIMIT "&offset&","&posterpersida&""
Set RSfiles = Conn.execute(filesSQL)
If RSfiles.EOF then
RSfiles.Close
Response.write "Hittade inga filer i denna kategorin"
Else
files=RSfiles.getrows()
RSfiles.Close
For i=0 To UBOUND(files,2)
If objFSO.FileExists( downloadbasepath & files(3,i) ) Then
Response.Write "" & Articletext(""&files(2,i)) &"<BR>"
Response.Write "(" & getfilefunction(files(3,i)) & ") " & formatdate(files(1,i)) & "<BR><BR>"
Else
'i=i-1
End If
Next
End If%>
<%
'Om det är fler poster än det antal poster per sida man valt
if rowscount > (posterpersida) then
Response.Write "<P align=""center"">"
for i = 0 to EgenAbs(intPage)-1
if i > 0 then Response.write " | "
if (i) = (sida) then
response.write (i * posterpersida) + 1 & "-"
if rowscount < (i * posterpersida) + posterpersida then
Response.write rowscount
else
response.write (i * posterpersida) + posterpersida
End if
else
response.write ""
response.write (i * posterpersida) + 1 & "-"
if rowscount < (i * posterpersida) + posterpersida then
Response.write rowscount
else
response.write (i * posterpersida) + posterpersida
End if
Response.write ""
end if
next
Response.Write "</P>"
end if%>
Sv: paging/visningsfel & FSO
En massa wiz-kidz här ju!