Hjälp med bildgalleri?

Hej!

Har laddat hem ett bildgaller från gruvsjö.com (Bildgalleri v4.1) och det verkar vara skitbra. Precis som jag vill ha det. Dock visas en bild vertikalt i hennes script. jag skulle vilja ha två eller tre i rad (horisontellt). Här är ett exempel: http://www.skodaklubben.com/publik.asp på hur det ser ut nu.
Jag vill alltså ha två eller tre på samma rad.

Nån som vill hjälpa mig att ändra? Jag är inte så het på asp...

Tack på förhand!
/ Richi

Bifogar koden som jag tror är den som måste ändras:

<table width="400" align="center" border="0">
<tr>
<td colspan="2"><font size="2">Bildgalleriet:</font></td>
</tr>
<tr>
<td height="10" colspan="2"><img src="bilder/dot400.gif"></td>
</tr>
<form name="menyn">
<tr>
<td width="267"><font size="2">»   Välj kategori i menyn till höger</font></td>
<td align="right" width="133">
<!--#Include file="meny.asp"-->
</td>
</tr>
</form>
<tr>
<td height="10" colspan="2"><img src="bilder/dot400.gif"></td>
</tr>
</table>
<table width="400" border="0" align="center" cellpadding="3">

<%
Const perSida = 3 'Bilder per sida
Sidan = Request.QueryString("sida")
If Sidan = "" then
sida = 1
Else
sida = Sidan
End If

With RecSet
.CursorLocation = 3
.CacheSize = perSida
End With

SQL = "Select * From bilder Where namn='" & Request.QueryString("id") & "' And visa=True Order By snitt desc,totalt desc"
RecSet.Open SQL, Conn

If RecSet.EOF Then%>

<tr>
<td colspan="3" class="normal">Inga bilder i denna kategori.</td>
</tr>

<%Else%>

<tr>
<td colspan="3"><%=Replace(RS("info"), vbCrLf, "<br>" )%></td>
</tr>
<tr>
<td height="10" colspan="3"><img src="bilder/dot400.gif"></td>
</tr>

<%With RecSet
.MoveFirst
.PageSize = perSida
.AbsolutePage = sida
End With

Sidor = RecSet.PageCount
X = 0
If Request.QueryString("Z") <> "" then
Z=Request.QueryString("Z")
Else
Z=1
End If
Do While Not RecSet.EOF And X < RecSet.PageSize%>

<tr>
<td width="100" valign="top" nowrap class="normal">
<a href="javascript:Bilden('pics/<%=RecSet("bild")%>','<%=RecSet("namn")%>');"><img src="pics/<%=RecSet("Bild")%>" width="90" border="1"></a>
</td>
<td valign="top" width="5" background="bilder/dotV56.gif"> </td>
<td valign="top" class="normal" width="295" valign="top">
<table width="100%">
<tr><td class="normal">
Antal röster: <%=RecSet("totalt")%><br>
Snittbetyg: <%=Round(RecSet("snitt"),2)%><br>
Plats: <%=Z%></td>
<td><select name="betyg" onChange="self.location.href=this.options[this.selectedIndex].value;">
<option selected>Betyg
<%For i = 1 To 10%>
<option value="rosta.asp?vote=<%=i%>&id=<%=RecSet("id")%>&namn=<%=RecSet("namn")%>"><%=i%>
<%Next%>
</select>
</td></tr>
<tr><td colspan="2" class="normal">
<%=Replace(RecSet("bildinfo"), vbCrLf, "<br>" )%>
</td></td>
</table>
</td>
</tr>
<tr>
<td colspan="3" height="10"><img src="bilder/dot400.gif"></td>
</tr>
<%Z = Z + 1
X = X + 1
Recset.MoveNext
Loop

Recset.Close
Conn.Close

Set Recset = Nothing
Set Conn = Nothing

If Request.QueryString("Z") <> "" then
Z=Request.QueryString("Z")
Else
Z=1
End If

If Request.QueryString("sida") <> "" then
sida = Request.QueryString("sida")
Else
sida = 1
End If%>

<tr>
<td colspan="3" height="10"><font size="2">
<%If Sidor <> 1 Then
If (Int(sida)) <> 1 Then%>
<a href="visa.asp?id=<%=Request.QueryString("id")%>&sida=<%=(Int(sida)-1)%>&z=<%=Z-perSida%>">«</a>
<%Else
Response.Write ""
End If

For Sid = 1 To Sidor
If (Int(Sid)) = (Int(sida)) Then%><%=Sid%> <%Else%> <a href="visa.asp?id=<%=Request.QueryString("id")%>&sida=<%=Sid%>&z=<%=persida*Sid-perSida+1%>"><%=Sid%></a> <%End If
Next

If (Int(sida)) <> (Int(Sidor)) AND X > 0 Then%>
<a href="visa.asp?id=<%=Request.QueryString("id")%>&sida=<%=(Int(sida)+1)%>&z=<%=Z+perSida%>">»</a>
<%Else
End If
End If%>
</font>
</td>
</tr>
<%End If%>
</table>

</body>
</html>