Automatisk generering af ny side (programmering fejl)
Hej eksperten brugere...Jeg har denne her kode hvor at den lister nogle produkter også skulle den efter 10 produkter gerne forsætte videre på en ny side, det gør den også men der står "side 1" nede i bunden også kommer "2,3,4,5" osv. toppen, hvorfor ???
Nogen som kan ændre det til mig så det virker ???
Koden:
<!-- #include file="config.asp" -->
<!-- #include file="umbruch.asp" -->
<%
r = request.querystring("r")
if len(r)<1 then r=-1
s = request.querystring("s")
if len(s)<1 then s = 0
s=s*10
dim rubriken(100,4)
set db = Server.CreateObject("ADODB.Connection")
connect="Driver={Microsoft Access Driver (*.mdb)}; DBQ="& server.mappath("shop.mdb")
db.Open connect
sql = "select rubrik, id, parent, rank from rubriken order by rank"
set rs = db.Execute(sql)
while not rs.eof
if i<100 then
rubriken(i,0) = rs("rubrik")
rubriken(i,1) = rs("parent")
rubriken(i,2) = rs("id")
rubriken(i,3) = rs("rank")
end if
i=i+1
rs.movenext
wend
arrayLaenge=i-1
Function show_search(parent1, ebene)
if parent1 <> vbNullString then
for t = 0 to arrayLaenge
if rubriken(t,1) = parent1 then
platzhalter=""
for x= 0 to ebene
platzhalter = platzhalter & " "
next
if ebene = 0 then
zusatz = "<b>"
zusatz1 = "</b>"
end if
response.write( platzhalter & "<a class='text' href='index1.asp?r="&rubriken(t,2)&"'>" & zusatz & rubriken(t,0) & zusatz1 & "</a><br>" & chr(13))
parent2 = rubriken(t,2)
ebene1 = ebene +1
show_search parent2, ebene1
end if
next
end if
end function
sqlZusatz=""
Function show_c(parent3)
for t = 0 to arrayLaenge
if cint(rubriken(t,1)) = cint(parent3) then
parent4 = rubriken(t,2)
sqlZusatz = sqlZusatz & " or rubrik = " & parent4
show_c parent4
end if
next
end function
show_c r
%>
<html>
<head>
<title>
dB-snedkeren.dk - hi-end autostereo
</title>
<link rel="stylesheet" type="text/css" href="style.css">
</head>
<body bgcolor="<%=color4%>">
<table border="0" cellpadding="0" cellspacing="0" width="100" bgcolor="#000000" align="center">
<tr>
<td width="100%">
<table border="0" cellpadding="2" cellspacing="1" width="700" class="text">
<tr>
<td width="100%" bgcolor="<%=color2%>" align="center" colspan="2">
<img src="pics/<%=banner%>">
</td>
</tr>
<tr>
<td width="200" bgcolor="<%=color3%>" align="center" valign="top">
<table border="0" cellpadding="0" cellspacing="0" width="100" bgcolor="#000000" align="center">
<tr>
<td width="100%">
<table border="0" cellpadding="2" cellspacing="1" width="180" class="text">
<tr>
<td width="100%" bgcolor="<%=color1%>" align="center">
<b><%=n_produkte%></b>
</td>
</tr>
<tr>
<td width="100%" bgcolor="<%=color2%>" align="left" valign="top">
<%show_search 0,0%>
</td>
</tr>
<tr>
<td width="100%" bgcolor="<%=color1%>" align="center">
<b><%=n_basket%></b>
</td>
</tr>
<tr>
<td width="100%" bgcolor="<%=color2%>" align="left">
<%if (session("items"))>-1 then %><a class="text" href="warenkorb.asp"><%=n_basket1%>
(<%=session("items")+1%>)</a> <%else%> <%=n_basket2%> <%end if%>
</td>
</tr>
<tr>
<td width="100%" bgcolor="<%=color1%>" align="center">
<b><%=n_info%></b>
</td>
</tr>
<tr>
<td width="100%" bgcolor="<%=color2%>" align="left">
<a class="text" href="info.asp"><%=n_info1%></a>
</td>
</tr>
<tr>
<td width="100%" bgcolor="<%=color2%>" align="left">
<a class="text" href="index1.asp?r=-1">Home</a>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
<td width="500" bgcolor="<%=color2%>" align="center" valign="top">
<table width="90%" border="0" cellpadding="2">
<%
if (cint(r)>-1) then
sql = "select bezeichnung, beschreibung, bild, artikelnr, preis, id from produkte where rubrik = " & r & sqlZusatz
set rs = db.Execute(sql)
while not rs.eof
count = count +1
if count>s and count<=(s+10) then
id = rs("id")
%>
<tr>
<td align="center" width="20%">
<%if len(rs("bild"))>2 then%><img src="pics/<%=rs("bild")%>" border="0"> <%else%> <img src=
"pics/fotograf.jpg" border="0" width="150" height="150"> <%end if%>
</td>
<td class="text" align="left" width="80%" valign="top">
<b><%=rs("bezeichnung")%></b> (<%=rs("artikelnr")%>)<br>
<br>
<%=FormatMessage(rs("beschreibung"))%><br>
<br>
<b><%=FormatNumber(rs("preis"),2,,-2)%> <%=l_list7%></b><br>
<br>
<form name="form<%=rs("id")%>" action="add.asp?a_id=<%=id%>" target="addFrame" method="post">
<a class="text" href="java script:document.form<%=id%>.submit();"><img border="0" src="pics/warenkorb.gif" align="absmiddle"> <%=s_add_product%> </a>
<input type="text" name="items<%=id%>" size="3" value="1">
<input type="hidden" name="preis<%=id%>" value="<%=rs("preis")%>">
<input type="hidden" name="nr<%=id%>" value="<%=rs("artikelnr")%>">
<input type="hidden" name="bez<%=id%>" value="<%=rs("bezeichnung")%>">
</form>
</td>
</tr>
<tr>
<td colspan="2" width="100%">
<hr heigth="1" size="0" color="#000000">
</td>
</tr>
<%
end if
rs.movenext
wend
if count > 0 then
sql = "select count(id) as alleEintraege from produkte where rubrik = " & r & sqlZusatz
set rs = db.Execute(sql)
alleEintraege = int(rs("alleEintraege"))
%>
<tr>
<td width="100%" bgcolor="<%=color2%>" colspan="2" class="text">
<p align="right">
side <%for t = 0 to fix((alleEintraege-1)/10)%> <a class="text" href=
"index1.asp?s=<%=t%>&r=<%=r%>"><%if t=(s/10) then%><b><%end if%><%=t+1%><%if t=(s/10) then%></b><%end if%></a>
</p>
</td>
</tr>
<%
next
else
%>
<tr>
<td class="text" align="center">
<br>
<br>
<%=s_no_product%>
</td>
</tr>
<%end if%><%else%>
<tr>
<td class="text" width="100%">
<center>
<b><%=start_title%></b>
</center>
</td>
</tr>
<tr>
<td class="text" align="left" width="100%">
<%=start_body%>
</td>
</tr>
<%end if%>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<br>
<%
rs.close
db.close
set rs = nothing
set db = nothing
Erase rubriken
%>
</body>
</html>
