asp_databases thread: Same record shown multiple times...
I am tailoring a multiple Page Table Display. However, I am getting the
same record displayed several times on each page (1st item 5 times on the
first page, 2nd item 5 times on the second paged aso). Why is this, and how
can avoid this. I include my code with the hope that someone can and will
help me with this...
Regards
Andre Colbiornsen, Sweden
----------CODE HERE-----------------
<html><head>
<TITLE>Tumnagelstabell ::: N M O</TITLE>
</head><body bgcolor="White">
<!--#include file="../../includes/adovbs.inc"-->
<!--#include file="../../includes/DataStore.inc"-->
<!--#include file="../../includes/nmoStyles.asp"-->
<%
sqltemp="SELECT
picsndataTbl.Tumnagel,picsndataTbl.Varumärke,picsndataTbl.Internt_produktnamn,LeverantorTbl.Företag,picsndataTbl.Internt_Artikelnr
FROM picsndataTbl,LeverantorTbl ORDER BY picsndataTbl.Internt_Artikelnr
ASC"
mypage=request("whichpage")
If mypage="" then
mypage=1
end if
mypagesize=request("pagesize")
If mypagesize="" then
mypagesize=5
end if
mySQL=request("SQLquery")
IF mySQL="" THEN
mySQL=SQLtemp
END IF
set rstemp=Server.CreateObject("ADODB.Recordset")
rstemp.cursorlocation=aduseclient
rstemp.cachesize=1
rstemp.open mySQL,strConnect
rstemp.movefirst
rstemp.pagesize=mypagesize
maxpages=cint(rstemp.pagecount)
maxrecs=cint(rstemp.pagesize)
rstemp.absolutepage=mypage
howmanyrecs=0
howmanyfields=rstemp.fields.count -1
tumnagel = rstemp("Tumnagel").value
varum = rstemp("Varumärke").value
prodnamn = rstemp("Internt_produktnamn").value
foretag = rstemp("Företag").value
artnr = rstemp("Internt_Artikelnr").value
Response.Write "<table width='100%' height='100%'
align='center'><tr><td><div align='center'>"
response.write "<table width='400'><tr><td><font face='Verdana,
Arial,Helvetica, sans-serif,Verdana,Geneva,Arial,Helvetica,sans-serif'
size='1' color='Black'><font size='2' color='Gray'><b><u>" & ucase(foretag)
& "</font> / " & ucase(varum) & "</u></b><br>s. " & mypage & "
av " & maxpages & "</font></td></tr></table>"
response.write "<table width='400' cellspacing='1' bgcolor='White'><tr>"
'Put Headings On The Table of Field Names
Response.Write "<td><font face='Verdana, Arial,Helvetica,
sans-serif,Verdana,Geneva,Arial,Helvetica,sans-serif' size='1'
color='Black'><b> </b></font></td>"
Response.Write "<td width='1' rowspan='100%' bgcolor='Gray'></td>"
Response.Write "<td><font face='Verdana, Arial,Helvetica,
sans-serif,Verdana,Geneva,Arial,Helvetica,sans-serif' size='1'
color='Black'><b>Varumärke</b></font></td>"
Response.Write "<td width='1' rowspan='100%' bgcolor='Gray'></td>"
Response.Write "<td><font face='Verdana, Arial,Helvetica,
sans-serif,Verdana,Geneva,Arial,Helvetica,sans-serif' size='1'
color='Black'><b>Produktnamn</b></font></td>"
Response.Write "<td width='1' rowspan='100%' bgcolor='Gray'></td>"
Response.Write "<td><font face='Verdana, Arial,Helvetica,
sans-serif,Verdana,Geneva,Arial,Helvetica,sans-serif' size='1'
color='Black'><b>Företag</b></font></td>"
Response.Write "<td width='1' rowspan='100%' bgcolor='Gray'></td>"
' Now loop through the data
DO UNTIL rstemp.eof OR howmanyrecs>=maxrecs
IF tt = 0 THEN
color = "#66ccff"
tt = tt + 1
ELSE
color = "#ffff99"
tt = tt - 1
END IF
response.write "<tr bgcolor='" & color & "'>"
response.write "<td width='25%' valign='top' bgcolor='White'><font
face='Verdana, Arial,Helvetica,
sans-serif,Verdana,Geneva,Arial,Helvetica,sans-serif' size='1'
color='Navy'>"
response.write "<a href='produktTabellStor.asp?artnr=" & artnr & "'
target='bulk'>" & tumnagel & "</a>"
response.write "</font></td>"
response.write "<td width='25%' valign='top'><font face='Verdana,
Arial,Helvetica, sans-serif,Verdana,Geneva,Arial,Helvetica,sans-serif'
size='1' color='Navy'>"
response.write uCase(varum)
response.write "</font></td>"
response.write "<td width='25%' valign='top'><font face='Verdana,
Arial,Helvetica, sans-serif,Verdana,Geneva,Arial,Helvetica,sans-serif'
size='1' color='Navy'>"
response.write uCase(prodnamn)
response.write "</font></td>"
response.write "<td width='25%' valign='top'><font face='Verdana,
Arial,Helvetica, sans-serif,Verdana,Geneva,Arial,Helvetica,sans-serif'
size='1' color='Navy'>"
response.write uCase(foretag)
response.write "</font></td>"
response.write "</tr><tr><td height='1' colspan='15'
bgcolor='Gold'> </td></tr>"
rstemp.movenext
howmanyrecs=howmanyrecs+1
LOOP
response.write "</table>"
' Stäng och terminera
rstemp.close
set rstemp=nothing
' Now make the page _ of _ hyperlinks
Call PageNavBar
sub PageNavBar()
' Thanks to Jeff Emrich <jeff.emrich@d...>
pad=""
scriptname=request.servervariables("script_name")
response.write "<table width='400' valign='1' rows='1'><tr>"
response.write "<td>"
response.write "<font face='Verdana, Arial,Helvetica,
sans-serif,Verdana,Geneva,Arial,Helvetica,sans-serif' size='1'
color='Black'>"
if (mypage mod 10) = 0 then
counterstart = mypage - 9
else
counterstart = mypage - (mypage mod 10) + 1
end if
counterend = counterstart + 9
if counterend > maxpages then counterend = maxpages
if counterstart <> 1 then
ref="<a href='" & scriptname
ref=ref & "?whichpage=" & 1
ref=ref & "&pagesize=" & mypagesize
ref=ref & "&sqlQuery=" & server.URLencode(mySQL)
ref=ref & "'>Första</a> : "
Response.Write ref
ref="<a href='" & scriptname
ref=ref & "?whichpage=" & (counterstart - 1)
ref=ref & "&pagesize=" & mypagesize
ref=ref & "&sqlQuery=" & server.URLencode(mySQL)
ref=ref & "'>Förra</a> "
Response.Write ref
end if
Response.Write "["
for counter=counterstart to counterend
If counter>=10 then
pad=""
end if
if cstr(counter) <> mypage then
ref="<a href='" & scriptname
ref=ref & "?whichpage=" & counter
ref=ref & "&pagesize=" & mypagesize
ref=ref & "&sqlQuery=" & server.URLencode(mySQL)
ref=ref & "'>" & pad & counter & "</a>"
else
ref="<b>" & pad & counter & "</b>"
end if
response.write ref
if counter <> counterend then response.write " "
next
Response.Write "] <font
face='Verdana,Geneva,Arial,Helvetica,sans-serif' size='1' color='Black'><a
href='javascript:history.back();'>Tillbaka :</a></font>"
if counterend <> maxpages then
ref=" <a href='" & scriptname
ref=ref & "?whichpage=" & (counterend + 1)
ref=ref & "&pagesize=" & mypagesize
ref=ref & "&sqlQuery=" & server.URLencode(mySQL)
ref=ref & "'>Nästa</a>"
Response.Write ref
ref=" : <a href='" & scriptname
ref=ref & "?whichpage=" & maxpages
ref=ref & "&pagesize=" & mypagesize
ref=ref & "&sqlQuery=" & server.URLencode(mySQL)
ref=ref & "'>Sista</a>"
Response.Write ref
end if
response.write "<br></font>"
response.write "</td>"
response.write "</table></div></td></tr></table>"
end sub
%>
</body></html>
View Cart
