Avatar billede w13 Novice
17. december 2004 - 13:45 Der er 3 kommentarer og
1 løsning

Vis poster i tabel med 3 celler pr. række

Hej Eksperter...

Jeg har et lille problem med en ASP-kode, som henter og viser poster fra en database. Men nu vil jeg gerne have dem vist i en tabel, hvor hver post har sin egen celle. (3 celler pr. række:
__________
|__|__|__|
|__|__|__|
|__|__|__|
|__|__|__|

osv...)

Hvordan gør jeg det? Altså får den til at vise dem, på denne måde? Jeg prøvede først at skrive:
______________________________________________________

If Not (rs.BOF Or rs.EOF) Then
Do While Not rs.EOF
Response.Write "<tr><td width='125' height='86' valign='top'>"
Response.Write "<font face=Verdana size=2>" & rs("navn") &"<br>"
Response.Write "<a href='spilprofil.asp?id=" & rs("id") &"'><img src='" & rs("picture") &"'></a><br>"
Response.Write "</font>"
Response.Write "</td>"
rs.MoveNext
Response.Write "<td width='125' height='86' valign='top'>"
Response.Write "<font face=Verdana size=2>" & rs("navn") &"<br>"
Response.Write "<a href='spilprofil.asp?id=" & rs("id") &"'><img src='" & rs("picture") &"'></a><br>"
Response.Write "</font>"
Response.Write "</td>"
rs.MoveNext
Response.Write "<td width='125' height='86' valign='top'>"
Response.Write "<font face=Verdana size=2>" & rs("navn") &"<br>"
Response.Write "<a href='spilprofil.asp?id=" & rs("id") &"'><img src='" & rs("picture") &"'></a><br>"
Response.Write "</font>"
Response.Write "</td></tr>"
rs.MoveNext
Loop
End If
________________________________________________

Men hvis ikke der lige antallet af poster var lig 0 eller indgik i 3-tabellen, fik jeg en fejl til sidst...

Nogen der mener, de kan hjælpe?
  Vh.
W13
Avatar billede reb Nybegynder
17. december 2004 - 13:59 #1
Hej.

Jeg bruger denne her til det samme. Den er taget fra noget jeg har i brug, så du skal lige tilrette den til dit brug. Du ændre antallet af kolonner ved maxCols.

noCols=0
    maxAntalCols=4
    response.write "<table>"
    Do While Not RS.EOF
      if noCols=0 then Response.Write "<tr>"
      response.write "<td align='center' valign='top'>" %>
<table width="100%" border="0" cellspacing="0" cellpadding="3">
<tr><td align="center" valign="top" height="134" width="100">
<a href="indhold.asp?id=<%=request("id") %>&singlepic=true&Pid=<%=RS("BilledeID")%>&query=<%=Query%>">
<img src="./../../gfx/billedarkiv/<%=RS("IndexID")%>/Thumb/thumb_<%=RS("BilledenavnSrc")%>" border="0"/></a>
</td></tr>
</table>
<P>
    <%
    noCols=noCols+1
    response.write "</td>"
    if noCols=maxAntalCols then
      response.write "</tr>"
      noCols=0
    end if
    RS.MoveNext
    Loop
    if noCols>0 then Response.write "</tr>"
    response.write "</table>


mvh
Rene´
Avatar billede bjawnie Nybegynder
17. december 2004 - 14:10 #2
Hi,

Prøv følgende:

If Not (rs.BOF Or rs.EOF) Then
  Dim itemPrints
  Dim itemsPerRow
  itemsPerRow = 3

  Response.Write ("<table>") & vbNewline

  Do While Not rs.EOF
    itemPrints = itemPrints + 1

    If Int(itemPrints) = 1 Then
      Response.Write ("<tr>") & vbNewline
    End If
   
      Response.Write ("<td width=""125"" height=""86"" valign=""top"">") &_
        ("<font face=""Verdana"" size=""2"">" & rs("navn") & "<br>")  &_
        ("<a href=""spilprofil.asp?id=" & rs("id") &"""><img src=""" & rs("picture") &"""></a> <br>")  &_
        ("</font>") &_
      ("</td>") & vbNewline &_

    If Int(itemPrints) = Int(itemsPerRow) Then
      itemPrints = 0
      Response.Write ("</tr>") & vbNewline
    End If

  rs.MoveNext
  Loop

  If 0 < Int(itemPrints) Then
    Response.Write ("</tr>") & vbNewline
  End If

  Response.Write ("</table>") & vbNewline
End If


Jeg har ikke lige kunne teste det, men det burde vike.


Cheers
bjawnie
Avatar billede w13 Novice
17. december 2004 - 14:17 #3
Tak, REB, det virker fint =) Hvis du lige smider et svar...
Avatar billede reb Nybegynder
17. december 2004 - 14:23 #4
Svar--- :-)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester