Vise en liste, men lave forskellige tags

prøv:
n = 0

Response.Write "<tr><td>"

If not RS.EOF then
  For i = 1 to CInt(RS("billeder"))


    Response.Write "<img src='uge"& rs("Uge") &"\"& i &".jpg' width='200' hight='Int(intHigh/(intWidth/200))'>"

    If n = 1 Then
    Response.Write "</td></tr><tr><td>"
    n = 0
    Else
    n = n + 1
    End If
   
    Next
End If

Response.Write "</td></tr>"

Prøv noget med dette du kan ændre maxColPrRow  til det antal du ønsker:


maxColPrRow = 2
colPrRow = 0

response.write "<table>"

If not RS.EOF then
  For i = 1 to CInt(RS("billeder"))
    if colPrRow = 0 then Response.Write "<tr>"
    Response.Write "<td>"

    Response.Write "<img src='uge"& rs("Uge") &"\"& i &".jpg' width='200' hight='Int(intHigh/(intWidth/200))'>"
    Response.Write "</td>"
 
    colPrRow = colPrRow  1
    if colPrRow = maxColPrRow then
      Response.Write "</tr>"
      colPrRow = 0
    end if
  next
  if colPrRow > 0 then Response.Write "<tr>"
end if
Response.Write "</table>"

danm det var ikke hurtigt nok :) og så der enda en fejl i..
Den 3 nederste linie skal være:
  if colPrRow > 0 then Response.Write "</tr>"

eagleeye >>

Den giver denne fejl

Der opstod en Microsoft VBScript-kompileringsfejl (0x800A0401)
Slut på sætning var ventet
3.asp, line 150, column 21
colPrRow = colPrRow 1
--------------------^

så der to fejl der mangler et +

colPrRow = colPrRow + 1

Så virker det.
Vælger at bruge Eagleeye's script, da det stiller det op i tabeller