Hej!
Har ett litet bildgalleri som visar bilder i tre kolumner, har försökt
att ändra så det blir 4 kolumner istället men får inte ordning på
det. Koden för tre kolumner finns längre ner. Koden innehåller även en del av paging funktionen.


Tänkte passa på å fråga om det är någon som har en kodsnutt
som visar hur man använder Aspimage för att göra thumbs under
uppladdning, en som är ca. 120x80 och en 400x300

<% 

'## -- hur många poster ska visas per sida -- 
intPageSize = 12 '## -- byt ut till hur många poster du vill ska visas per sida -- 

'## -- vilken sida ska visas -- 
intPage = Request.QueryString("page") 

'## -- kontrollera så att inte intPage variabeln är tom -- 
If intPage = "" Then intPage = 1 '## -- visa första sidan som default -- 

'## -- sql-fråga för att hämta data från databasen -- 
SQL = "SELECT * FROM TBL_Images ORDER BY ID DESC" 

'## -- öppna recordsetet -- 

  With RS 
      .ActiveConnection = Connect 
      .Source = SQL 

      '## -- bestämmer hur många poster som varje sida ska bestå av i recordsetet -- 
      .PageSize = intPageSize 
      .CursorType = 3 
      .LockType = 1 
      .Open 
  End With 

  '## -- kontrollera om några poster har returnerats eller inte -- 
  If Not RS.EOF Then 
      '## -- poster har returnerats -- 

      '## -- visa rätt sida i recordsetet -- 
      RS.AbsolutePage = intPage 

      '## -- hur många sidor består recordsetet av -- 
      intTotalPages = RS.PageCount 

      '## -- visa sidnavigeringen -- 
      'Call PageNavigation(intPage, intTotalPages) 

      '## -- loopa igenom recordsetet och visa posterna för besökaren/användaren -- 
     ' Do Until RS.EOF OR intCounter >= intPageSize 
         ' intCounter = intCounter + 1 

           %> 
<div align="center"> 
  <center> 
  <table border="0" cellpadding="0" cellspacing="5" width="410"> 
    <tr>
	<% Do Until RS.EOF OR intCounter >= intPageSize 
          intCounter = intCounter + 1 

          '## -- printa ut informationen till besökare/användaren ---------------------------------------------------

     checkcounter = FormatNumber(Round(intCounter/3,2),1)
      If right(checkcounter,1) <> "0" Then %>
<td valign="top" align="center" width="33%">" onMouseOver="window.status=''; return true">" width="120" height="80"><br><br>
      " onMouseOver="window.status=''; return true"><%=RS("Beskrivning")%></font></td>
     <% Else %> 
<td valign="top" align="center" width="33%">" onMouseOver="window.status=''; return true">" width="120" height="80"><br><br> 
      " onMouseOver="window.status=''; return true"><%=RS("Beskrivning")%></font></td>
<%
    RS.MoveNext 
     
%>

<td valign="top" align="center" width="33%">" onMouseOver="window.status=''; return true">" width="120" height="80"><br><br>
      " onMouseOver="window.status=''; return true"><%=RS("Beskrivning")%></font></td>

    </tr> 
  </table> 
  </center> 
</div><br>
<div align="center"> 
  <center> 
  <table border="0" cellpadding="0" cellspacing="5" width="410"> 
    <tr>
          <%  End If
           
          '##------------------------------------------------------------------------------------------------ 
    

          RS.MoveNext 
      Loop 


  Else 
      '## -- inga poster returnerades -- 
      '## -- visa meddelande att inga poster hittades för användaren -- 
 End If 


  '## -- rensa up -- 
  RS.Close 
Set RS = Nothing 

  Connect.Close 
Set Connect = Nothing 
%> 



            
           </td> 
         </tr> 
         <tr> 
           <td> 
            </td>
          </tr>
        </table>
      </div>
 </center>