[ASP]rij/kolom mbt recordset

Pagina: 1
Acties:

  • Scare360
  • Registratie: Juli 2001
  • Laatst online: 11-09 09:22
Stel ik heb foto's en ik krijg 100 photo in mijn recordset. Stel ik wil alle photo's in rijen van 3 weergeven en dan naar de volgende rij geven dus 3 x n rijen

xxxxx xxxxx xxxxx
xxxxx xxxxx xxxxx
xxxxx xxxxx xxxxx
xxxxx xxxxx xxxxx

xxxxx xxxxx xxxxx
xxxxx xxxxx xxxxx
xxxxx xxxxx xxxxx
xxxxx xxxxx xxxxx

xxxxx xxxxx xxxxx
xxxxx xxxxx xxxxx
xxxxx xxxxx xxxxx
xxxxx xxxxx xxxxx

Zo ongeveer. Nu probeer ik dat met een dubbele lus en dat zuigt behoorlijk. Iemand een fatsoenlijk oplossing voor een ASP programmeurtje?

alvast bedankt

Verwijderd

LOL :)

"dubbel lus, maar dat zuigt enorm".

Wat wil je nou? je foto's in de juiste opmaak of niet?

Verwijderd

Wat is je huidige code..? Dan weet ik hoe je het dus NIET wil..

  • KoeKk
  • Registratie: September 2000
  • Laatst online: 14-09 19:20
Vrij simpel, ik neem aan dat je nu een loopje maakt...
code:
1
2
3
4
Do While Not rs.EOF
  strImg = strImg & [img]""blaat.jpg""[/img]
  rs.MoveNext
Loop

Wat je nu wil doen is om de 3 plaatjes een enter er tussen, toch?
code:
1
2
3
4
5
6
7
8
9
10
11
intCount = 1

Do While Not rs.EOF
  strImg = strImg & [img]""blaat.jpg""[/img]
  If intCount = 3 Then
    strImg = strImg & "<br>"
    intCount = 1
  End If
  intCount = intCount + 1
  rs.MoveNext
Loop

Als je dit in een tabel wilt doen kan het natuurlijk ook ;) moet je alleen ff de "<br>" vervangen

  • Scare360
  • Registratie: Juli 2001
  • Laatst online: 11-09 09:22
uhm in de RSPeople zitten foto's en namen van mensen. deze wil ik per rij 3 weergeven... dus foto met naam x 3 en dan naar de volgende rij en hetzelfde kunstje. Probleem zit hem dan in de dubbele lus aangezien de wend maar 1 record meeneemt en ik dat stapje dus 3x moet doen voor 3 plaatjes.

tis iets minder makkelijk... iemand?

  • KoeKk
  • Registratie: September 2000
  • Laatst online: 14-09 19:20
Zo dus als ik het goed begrijp... dit is toch niet zo moeilijk?
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
intCount = 1
strOutput = "<table><tr>"

Do While Not rs.EOF
  strImg = strImg & "<td>[img]"""[/img]" &_
              "<br>" & rs("naam") & "</td>"
  If intCount = 3 Then
    strImg = strImg & "</tr><tr>"
    intCount = 1
  End If
  intCount = intCount + 1
  rs.MoveNext
Loop

strOutput = strOutput & "</tr></table>"

btw post je huidige code eens, mischien dat het iets duidelijker wordt...

  • whoami
  • Registratie: December 2000
  • Laatst online: 15:52
Even in pseudo code:
code:
1
2
3
4
5
6
7
8
9
10
11
counter = 0
while not rs.Eof do begin
  counter = counter + 1;
  plaats_foto();
  
  if counter mod 3 = 0 then
  begin
     nieuwe_lijn();
  end;
  rs.Next();
end;

mensentaal:
Je kijkt gewoon hoeveel foto's je op 1 lijn gezet hebt, en zit je aan 3, dan neem je een nieuwe lijn.

https://fgheysels.github.io/


  • Scare360
  • Registratie: Juli 2001
  • Laatst online: 11-09 09:22
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
<table>
  <%
startrw = 0
endrw = looper__index
numberColumns = 3
numrows = 3
while((numrows <> 0) AND (Not RS.EOF))
startrw = endrw + 1
endrw = endrw + numberColumns
 %>
  <tr align="center" valign="top"> 
    <%
While ((startrw <= endrw) AND (Not RS.EOF))
%>
    <td> <br>
    <br>
    <table width="163" border="0" cellspacing="0" cellpadding="0">
      <tr> 
        <td bgcolor="#CCCCCC"><%=(RS.Fields.Item("menu_type").Value)%></td>
      </tr>
      <tr>
        <td>&nbsp;</td>
      </tr>
      <tr> 
        <td bgcolor="#999999"><%=(RS.Fields.Item("menu_index").Value)%></td>
      </tr>
      <tr> 
        <td>&nbsp;</td>
      </tr>
    </table>
    </td>
    <%
startrw = startrw + 1
RS.MoveNext()
Wend
%>
  </tr>
  <%
 numrows=numrows-1
 Wend
 %>
</table>

Mocht iemand anders dit ook tegen komen astu
Pagina: 1