sidor

behöver dela upp en produktsida.
DV s 10 produkter ska visas sedan får man ta nästa sida så listas nästa 10 produkter.
Just nu listas alla produkter på samma sida.
Någon som har något förslag på hur man får detta att funka riktigt.

MVH Micke

<%

Dim GruppNum, GruppNamn
GruppNum = Request.Form("varugrupp") & Request.Querystring("varugrupp")
If GruppNum = "" Then Response.Redirect("main.asp")

GruppNum = Int(GruppNum)

Set Connect=server.CreateObject("adodb.connection")
Set RS = Server.CreateObject("ADODB.Recordset")
Connect.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("prodx5.mdb")
Kolla = "SELECT Produkter.Varugrupp AS GruppNum, Produkter.Titel AS Titel, Produkter.Titel2 AS Titel2, Produkter.Pris AS Pris, Produkter.ID AS Prod_ID, Varugrupper.Namn AS GruppNamn FROM Produkter, Varugrupper WHERE Produkter.Varugrupp = Varugrupper.ID AND Produkter.Varugrupp = " & GruppNum & " ORDER BY Produkter.Titel"
RS.Open Kolla, Connect, 3, 3

%>
<html><head><style>
A:Link {color:000000;text-decoration:none;}
A:Visited {color:000000;text-decoration:none;}
A:Hover {color:#6666CC;text-decoration:underline;}
</style></head>
<BODY TEXT="#000000" BGCOLOR="#6B767C" LINK="#000000" VLINK="#000000" ALINK="#000000">
<br>
<center><font face="Verdana, Arial, Helvetica, sans-serif"><b><font size="-1">Produkter under: <%=RS("GruppNamn")%></font></b></font><br>
</div><CENTER><HR WIDTH="75%" size="1" COLOR="#000000">
<table cellpadding="4" cellspacing="2" border="0"><TR bgcolor="#6666CC">
<TD ><B><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><% = RS("GruppNamn")%></font></B></TD>
<TD><B><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Titel</font></B></TD>
<TD><B><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Pris</font></B></TD></TR>
<%
Numcols = 40 '0=== Antal kolumner i din tabell ===0
With Response
Do Until RS.EOF
.Write "<tr><td width='150'><font face='Verdana, Arial' size='-2'><a href='visa_produkt.asp?id=" & RS("Prod_ID") & "' target='main'>"
.Write RS("Titel")

	.Write "\<td width='170'\>\<font face='Verdana, Arial' size='-2'\>\<a href='visa_produkt.asp?id=" & RS("Prod_ID") & "' target='main'\>"
	.Write RS("Titel2")
	
	.Write "\</a\>\</font\>\</td\>\<td align='right' width='80'\>\<div align='right'\>\<font face='Verdana, Arial' size='-2'\>"
	.Write FormatCurrency(RS("Pris"))
	.Write "\</font\>\</div\>\</td\>\</tr\>"
	RS.MoveNext
Loop

End With

RS.Close
Connect.Close
Set RS = Nothing
Set Connect = Nothing

%></table><center><HR WIDTH=75% size=1 COLOR="#000000"><font size="-2" face="Verdana, Arial, Helvetica, sans-serif">
<b>| <a href="varukorg_visa.asp">Varukorg</a> | <a href="kassan.asp">Till kassan</a> |</b></font></center></CENTER></body></html>