I webshopen vill jag inte att det ska ligga en produkt på varje rad utan jag vill att två eller 3st ska presenteras på rad innan det hoppar till nästa rad där nästa presenteras. Här nedan är koden, hur ska jag göra för att göra så?? tacksam för hjälp

<%

If Request.Querystring("category")<>"" THEN
Response.Write "<hr noshade size=1 color=""#EEEEEE"">"

Rs.Open "SELECT * FROM shItems WHERE category=" & Request.QueryString("category")
numRecords = Rs.RecordCount -1


For v=0 To numRecords%>
<TABLE CELLSPACING=0 CELLPADDING=0 BORDER=0
<% If Rs.Fields("smallImage")<>"" THEN %>
<TR><TD COLSPAN=2 ><IMG SRC="shImg/small/<%=Rs.Fields("smallImage")%>"></TD></TR>
<% End If %>

<TR>
<TD COLSPAN=2 CLASS="shItem"><%=Rs.Fields("title").value%></TD>
</TR>

<TR>
<TD CLASS="shItem">Pris:</TD>
<TD CLASS="shItem" ALIGN=RIGHT><%= Rs.Fields("price").Value %> kr</TD>
</TR>

<TR>
<TD CLASS="shItem">">Info</TD>
<TD CLASS="shItem" ALIGN=RIGHT>" target="basket">Köp!</TD>
</TR>

</TABLE><br>
<%
Rs.MoveNext
Next
Rs.Close


End If %>

Rubrikerna "pris" och "info", hur vill du göra med dem? Repetera?
Kan du göra ett exempel på hur det skall se ut?

vill du att jag ska lägga upp en bild lr nåt hur jag har tänkt mig att de ska se ut?

här kommer en bild på hur jag vill att de ska se ut

http://playground.friserverplads.dk/maingrund.JPG

Det där är inte så svårt. Börja med att rita upp en tabell med 3 kolumner.

<info>
&lt;html>

&lt;head>
&lt;meta http-equiv="Content-Language" content="sv">
&lt;meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
&lt;title>Ny sida 1&lt;/title>
&lt;/head>

&lt;body>

&lt;table border="1" width="100%" id="table1">
&lt;tr>
&lt;td>a&lt;/td>
&lt;td>b&lt;/td>
&lt;td>c&lt;/td>
&lt;/tr>
&lt;tr>
&lt;td>d&lt;/td>
&lt;td>e&lt;/td>
&lt;td>f&lt;/td>
&lt;/tr>
&lt;/table>
&lt;/body>
&lt;/html>
</info>

Som du ser nu så ligger a,b,c brevid varandra och det enda du behöver göra nu är att loopa i ditt recordset, en post i taget. För var 3:e post gör du en ny tr och fyller denna med det data du vill. Jag brukar alltid göra tabellen först, och sen göra om det till textsträngar som byggs på. Exempel.

<code>
set rst = con.execute("haemtanyaprodukter")

buffer = "<tr>"

do while not rst.eof
a = a + 1
if a mod 3 = 0 then
' vi skall bryta till nästa tre poster
buffer = buffer & "</tr></tr><tr>"
end if

buffer = buffer & "<td>"
buffer = buffer & "alternativ " & a
buffer = buffer & "</td>"
rst.movenext

loop

response.write buffer & "</tr>"
</code>

Hoppas du förstår principen. Lycka till

Jag förstår inte riktigt hur du menar...har provat men får det inte å funger....snälla hjälp!!

ingen som kan hjälpa mig

Detta kanske kan var till någon hjälp. Har skrivit om lite:
<code>
<TABLE>
<TR>
<%
Dim Rs
Dim fldId
Dim fldTitle
Dim fldPrice
Dim fldSmallImage

Dim lngCategory
Dim lngColumn
Const lngColumns = 3
lngColumn = 1
lngCategory = "" & Request.Querystring("category")

If IsNumeric(lngCategory) THEN

Response.Write "<hr noshade size=1 color=""#EEEEEE"">"

Rs.Open "SELECT * FROM shItems WHERE category=" & lngCategory
If Rs.EOF Then
Response.Write "Kattegorin är tom!"
Else
Set fldId = Rs("Id")
Set fldTitle = Rs("Title")
Set fldPrice = Rs("Price")
Set fldSmallImage = Rs("SmallImage")

Do Until Rs.EOF
If lngColumn >= lngColumns Then
Response.Write "</TR><TR>"
lngColumn = 1
Else
lngColumn = lngColumn + 1
End If
%>
<TD>
<TABLE CELLSPACING=0 CELLPADDING=0 BORDER=0
<%
If Len(fldSmallImage.Value) >0 Then
Response.Write "<TR><TD COLSPAN=2 ><IMG SRC=""shImg/small/" & fldSmallImage.Value & """></TD></TR>"
End If
%>
<TR>
<TD COLSPAN=2 CLASS="shItem"><%=fldTitle.Value%></TD>
</TR>
<TR>
<TD CLASS="shItem">Pris:</TD>
<TD CLASS="shItem" ALIGN=RIGHT><%fldPrice.Value%> kr</TD>
</TR>

<TR>
<TD CLASS="shItem">Info</TD>
<TD CLASS="shItem" ALIGN=RIGHT>Köp!</TD>
</TR>
</TABLE></TD>
<%
Rs.MoveNext
Loop

Set fldTitle = Nothing
Set fldPrice = Nothing
Set fldSmallImage = Nothing

Rs.Close
Set Rs = Nothing
End If
End If
%>
</TR>
</TABLE>
</code>