---
title: "\"fyra små bilder\""
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/78285-fyra-små-bilder"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "magnusfeldth"
published: "2003-05-27T21:01:39.000Z"
updated: "2003-05-28T08:02:31.000Z"
replies: 4
views: 221
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/78285-fyra-små-bilder"
---

# "fyra små bilder"

## #1 — magnusfeldth, 2003-05-27T21:01Z

ohoj seglarvänner!
Ack, ytterligare en fråga från frågvise frågeställaren: Jag skall hämta fyra poster ur en tabell i databas. De skall hamna på fyra olika platser i en htmltabell, den färskaste posten överst till vänster, nästa överst till höger, trean där nere till vänster och fyran nere till höger...

Hur skriver jag en kod för att den skall göra så?

ni kan kolla in på
<https://www.vitatubsockor.nu/index2.asp>
om ni har förundringar hur det skall se ut. Det aktuella området är det i mitten med fyra bilder. Dessa skall alltså hämtas ur en databas...

(är funktionen "move" aktuell?)

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

## #2 — SteveP, 2003-05-27T21:08Z

Nåt sånthär kanske?

```
<% 
intCounter = 0
do until rs.eof 
     intCounter = intCounter + 1
     %> 
     <td><%= varibel %></td> 
     <% 
     if intCounter MOD 2 = 0 Then Response.Write "</tr><tr>"
     rs.movenext 
loop 
%>
```

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

## #3 — voigtann1, 2003-05-27T21:11Z

och SQL typ:

```
SQL = "Select top4(*) from table"
```

 :e

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

## #4 — magnusfeldth, 2003-05-28T07:20Z

koden funkar bra när jag skriver av den direkt. Dock vill jag lägga till lite grejer och då strular det sig.

felmess:

```
Microsoft VBScript compilation error '800a040e' 

'loop' without 'do' 

/testar.asp, line 30 

loop
^
```

kod:

```
  <table border="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="237" id="AutoNumber17" cellpadding="0">

 <% Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("addemalmbergadmin/tubsockan.mdb")

	Set RecSet = Server.CreateObject("ADODB.Recordset")
	SQLsatsfyra = "SELECT Top 4 * FROM sockrates WHERE StartpageYes = 1 ORDER by ID DESC "
	RecSet.Open SQLsatsfyra, Connect, adOpenStatic, adLockOptimistic
%>

<% 
intCounter = 0
do until recset.eof 
     intCounter = intCounter + 1
     %> 
     <td><% = RecSet("rubrik") %></td> 
     <% 
     if intCounter MOD 2 = 0 Then %> </tr><tr>
    <% recset.movenext 
loop 
end if
Recset.Close
Connect.Close

Set Recset = Nothing
Set Connect = Nothing
%> 
</table>
```

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

## #5 — magnusfeldth, 2003-05-28T08:02Z

lyckades lösa det själv:

```
<table border="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="237" id="AutoNumber17" cellpadding="0">

 <% Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("addemalmbergadmin/tubsockan.mdb")

	Set RecSet = Server.CreateObject("ADODB.Recordset")
	SQLsatsfyra = "SELECT Top 4 * FROM sockrates WHERE StartpageYes = 1 ORDER by ID DESC "
	RecSet.Open SQLsatsfyra, Connect, adOpenStatic, adLockOptimistic
%>

<% 
intCounter = 0
do until recset.eof 
     intCounter = intCounter + 1
     %> 
     <td width="1" height="98" valign="top">
     <img border="0" src="images/1x1transparant.gif"></td>
     <td><img border="0" src="images/extra.gif" alt="<% = RecSet("rubrik") %>"></td>
 
     <% 
     if intCounter MOD 2 = 0 Then Response.Write "</tr><tr><td width='118' height='1' valign='top'><img border='0' src='images/1x1transparant.gif'></td> <td width='1' height='1' valign='top'><img border='0' src='images/1x1transparant.gif'></td><tr>"
     recset.movenext 
loop 
Recset.Close
Connect.Close

Set Recset = Nothing
Set Connect = Nothing
%> 
</table>
```

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/78285-fyra-små-bilder