---
title: "Hjälp med bildgalleri?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/103078-hjälp-med-bildgalleri"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "richi_f"
published: "2004-05-05T23:07:51.000Z"
updated: "2004-05-06T12:09:11.000Z"
replies: 2
views: 276
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/103078-hjälp-med-bildgalleri"
---

# Hjälp med bildgalleri?

## #1 — richi_f, 2004-05-05T23:07Z

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"\>» &nbsp;  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"\>&nbsp;\</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\>

Permalänk: https://www.webforum.nu/p/103078

## #2 — Engine^, 2004-05-06T00:08Z

Det beror på hur tabellen byggs i *Do While*\-loopen. Eftersom det kan vara ett ojämnt antal bilder så behöver du en variabel som håller reda på hur många bilder (hur många iterationer som skett) det har visats.

Jag har förklarat det här problemet ett flertal gånger men jag hittar faktiskt inte själv nu då jag sökte  :r så du får väl så lov att säga om du förstår något av det jag skrev.

I ditt fall skulle jag ge rekommendationen max två bilder i bredd.

Permalänk: https://www.webforum.nu/p/1341946

## #3 — richi_f, 2004-05-06T12:09Z

Hej igen!

Som sagt så är jag inte alls het på ASP så jag vore jättetacksam om du kunde visa hur jag ska göra för att få till det med två bilder på samma rad.

Tack så mycket!

/ Richard

Permalänk: https://www.webforum.nu/p/1342132

---

Tråden på webben: https://www.webforum.nu/amne/asp/103078-hjälp-med-bildgalleri