Visning af varer
Hej Experter.Jeg har postet dette spørgsmål en gang før inden serveren crashede forrrige weekend. Jeg nåede desværre ikke at få et tilfredsstillende svar. Håber der stadig er nogle der kan hjælpe.
Jeg har et problem med at få vist nogle varer hentet fra en asp database på den rigtige måde.
Funktionen skal vælge varer fra databasen alt efter hvilken kategori brugeren ahr valgt og herefter vise fire varer pr side og regne ud hvor mange sider det hele vil fylde. Dette skal bruges til at udskrive en form for sidetæller på siden som illustrerer overfor brugeren hvor mange sider der er at navigere i. Navigationen mellem de forskellige sider foregår således v. hj. af dette sideindex.
Jeg har følgende kode, som ser ud til at gøre noget rigtigt og så alligevel ikke. Der bliver altid udskrevet 4 varer på siden uanset hvilken side man er på. Og hvis man så til gengæld har 5 varer i en vises kun de 4 første og der indikeres ikke en side 2.
Hvad går der galt?
<%@language="vbscript"%>
<!--#include file="conn.asp"-->
<%
set rs=server.createobject("ADODB.recordset")
aktuelSide=0
aktuelSide=request.Querystring("aktuelSide")
varerprSide = 4
startPunkt = ((aktuelSide-1)*varerprSide)+1
If startPunkt < 4 Then
startPunkt = 4
End If
strSQL = "SELECT TOP "&varerprSide&" * from (SELECT TOP "&startpunkt&" * FROM vare where kategoriid="&dkategoriid&" ORDER by vareid DESC) ORDER by vareid ASC"
x=0
rs.open strSQL,conn
do while not rs.eof AND not rs.eof
!!! Her er en større definition af udskriften af varerne i som er fjernet !!!
rs.movenext
loop
rs.close
' sidetal:
strSQL = "SELECT count(*) AS antal FROM vare WHERE kategoriid = "&dkategoriid
rs.open strSQL,conn
antalVarer = rs("antal")
antalSider = CLng(antalVarer/varerprSide)
If antalSider > 1 Then
udskrivSider = ""
For i = 1 to antalSider
if i = aktuelSide Then
udskrivSider = udskrivSider & "<img src='grafik/tal/"&i&"_aktiv.gif' border='0'>"
Else
udskrivSider = udskrivSider & "<a href='vis.asp?aktuelSide="&i&"&kategoriid="&dkategoriid&"'><img src='grafik/tal/"&i&".gif' border='0'></a>"
End If
Next
End If
rs.close
set rs=nothing
conn.close
set conn=nothing
%>