Hej,

För att dra det kort så håller jag på med en produktkatalog där man kan ha flera bilder för en produkt. På produktsidan vill jag visa en bild som är lite större (200x200px) och under den vill jag, om det finns fler bilder för produkten visa de övriga lite mindre (95x95px).

Som ni ser av koden nedan så loopar jag fram bilder med storleken 200x200 pixlar. Jag undrar hur man gör om man skulle vilja loopa fram första bilden med den storlek och resten med storleken 95x95 pixlar.

<code>
strSQL = "Select * From t_products_images Where prodID="& objRs("prodID") &" And midImg <> Null"
Set objRs = Connect.Execute(strSQL)
If objRs.EOF Then
Response.Write "<img src=""no-image-mid.gif"" width=""200"" height=""200"" alt=""Bild saknas"" />"
Else
Do While Not objRs.EOF
Response.Write "<span></span>"& vbCrLf
objRs.MoveNext
Loop
End If
objRs.Close : Set objRs = Nothing
</code>

Tack på förhand...

Du vill alltså påtvinga en manuell nedskalning ( i HTML)
om ja; se nedan;

strSQL = "Select * From t_products_images Where prodID="& objRs("prodID") &" And midImg <> Null"
Set objRs = Connect.Execute(strSQL)
If objRs.EOF Then
Response.Write "<img src=""no-image-mid.gif"" width=""200"" height=""200"" alt=""Bild saknas"" />"
Else	
firstimage = true
Do While Not objRs.EOF
if firstimage=true then
Response.Write "<span></span>"& vbCrLf
else
Response.Write "<span></span>"& vbCrLf
End if
objRs.MoveNext
firstimage = false
Loop
End If
objRs.Close : Set objRs = Nothing

Precis som jag menade, fungerar kanon, Tack!!!!