Sv: Loopa htmltabeller beroende på antal "hits"

Loopa htmltabeller beroende på antal "hits"

Postades av 2004-06-29 19:01:27 - Jens Ridderström, i forum asp - allmänt, Tråden har 10 Kommentarer och lästs av 433 personer

Hejsan..

Jag har lite problem med en funktion som påminner om lunarstorms nunor.
Vill alltså hämta in bilder och efter 4 bilder ska den skapa en ny tablerow med fyra nya kolumner osv....

Så här ser det ut nu men har kört fast:

<%

SQL = ”select * from avatar_validate”
rs.Open SQL, Connect

%>

<table width=”100%” border=”0” cellspacing=”0” cellpadding=”8”>
<tr align=”center”>
<%

Do Until rs.Eof

a = a + 1

id = rs(”id”)
avatar = rs(”avatar”)
storlek = rs(”storlek”)

%>
<td width=”25%”><img src=”../personlig/kort2/<%=avatar%>” height=”120” width=”90”></td>

<%

rs.MoveNext

Loop

If a = 1 then
%>
<td width=”25%”></td>
<td width=”25%”></td>
<td width=”25%”></td>
<%

End If
%>

Men den här fortsätter att skapa nya kolumner men jag vill alltså lägga in nån form av break och därefter skapa en ny row... ja ni förstår nog vad jag menar.

Tacksam för hjälp

Svara

Sv: Loopa htmltabeller beroende på antal "hits"

Postades av 2004-06-29 19:15:07 - Thomas Vanhaniemi

Kika på följande, gör ungefär det som du vill...
[Presentera data i sidled - Tips?]

Mvh,
Thomas

Svara

Sv: Loopa htmltabeller beroende på antal "hits"

Postades av 2004-06-29 20:19:27 - Per Persson

Pröva
<code>
<%

SQL = ”select * from avatar_validate”
rs.Open SQL, Connect

%>

<table width=”100%” border=”0” cellspacing=”0” cellpadding=”8”>
<tr align=”center”>
<%

Do Until rs.Eof

a = a + 1

id = rs(”id”)
avatar = rs(”avatar”)
storlek = rs(”storlek”)

%>
<td width=”25%”><img src=”../personlig/kort2/<%=avatar%>” height=”120” width=”90”></td>

<%

' Är en rad fylld?
If a = 4 Then
Response.Write "</tr><tr>"
a = 0
End If

rs.MoveNext

Loop

' Se till att sista raden blir fylld
Do While a < 4
Response.Write "<td width='25%'></td>"
a = a + 1
Loop
%>
</code>

Svara

Sv: Loopa htmltabeller beroende på antal "hits"

Postades av 2004-06-29 21:12:25 - Jens Ridderström

Det är nåt som inte stämmer riktigt då tabellen blir så här:

<table width="400" border="0" cellspacing="0" cellpadding="8">
<tr align="center">

<td width="100"><img src="../personlig/kort2/2.jpg " height="120" width="90"></td>

<td width="100"><img src="../personlig/kort2/2.jpg " height="120" width="90"></td>

<td width="100"><img src="../personlig/kort2/38.jpg " height="120" width="90"></td>

<td width="100"><img src="../personlig/kort2/38.gif " height="120" width="90"></td>

</tr><tr>
<td width="100"><img src="../personlig/kort2/38.jpg " height="120" width="90"></td>

<td width=100></td><td width=100></td><td width=100></td>

</td>
</tr>
</table>

Svara

Sv: Loopa htmltabeller beroende på antal "hits"

Postades av 2004-06-29 22:00:12 - Thomas Vanhaniemi

Testa använda en Trim på texten som skrivs ut...

<code>
<%

SQL = ”select * from avatar_validate”
rs.Open SQL, Connect

%>

<table width=”100%” border=”0” cellspacing=”0” cellpadding=”8”>
<tr align=”center”>
<%

Do Until rs.Eof

a = a + 1

id = rs(”id”)
avatar = rs(”avatar”)
storlek = rs(”storlek”)

%>
<td width=”25%”><img src=”../personlig/kort2/<%=Trim(avatar)%>” height=”120” width=”90”></td>

<%

' Är en rad fylld?
If a = 4 Then
Response.Write "</tr><tr>"
a = 0
End If

rs.MoveNext

Loop

' Se till att sista raden blir fylld
Do While a < 4
Response.Write "<td width='25%'></td>"
a = a + 1
Loop
%>
</code>

Mvh,
Thomas

Svara

Sv: Loopa htmltabeller beroende på antal "hits"

Postades av 2004-06-29 22:10:31 - Jens Ridderström

jag har fixat det och som vanligt var det ett töntigt fel... glömt att avsluta tabellen =/ det funkar utmärkt så du ska ha ett stort tack =)

Svara

Sv: Loopa htmltabeller beroende på antal "hits"

Postades av 2004-06-29 22:37:30 - Jens Ridderström

En snabb fråga till bara...

Hur ska man skriva om man vill ha en rad under bilderna där infot ska stå?

Ex:

Rad 1 [Bild] [Bild] [Bild] [Bild]
Rad 2 [Info] [Info] [Info] [Info]

Loop

Rad 1 [Bild] [Bild] [Bild] [Bild]
Rad 2 [Info] [Info] [Info] [Info]

Ja jag tror du/ni fattar =)

Svara

Sv: Loopa htmltabeller beroende på antal "hits"

Postades av 2004-06-29 22:57:15 - Per Persson

<code>
<%

SQL = ”select * from avatar_validate”
rs.Open SQL, Connect

%>

<table width=”100%” border=”0” cellspacing=”0” cellpadding=”8”>
<%

bilder = ""
info = ""

Do Until rs.Eof

a = a + 1

id = rs(”id”)
avatar = rs(”avatar”)
storlek = rs(”storlek”)

bilder = bilder + "<td width='25%'><img src='../personlig/kort2/" + avatar + " height='120' width='90'></td>"

' Följande rad analogt med föregående
info = info + "<td>...</td>"

' Är en rad fylld?
If a = 4 Then
Response.Write ("<tr>" + bilder + "</tr>")
Response.Write ("<tr>" + info + "</tr>")
a = 0
End If

rs.MoveNext

Loop

' Se till att sista raden blir fylld
If a <> 0 Then
Do While a < 4
bilder = bilder + "<td width='25%'></td>"
info = info + "<td width='25%'></td>"
a = a + 1
Loop

Response.Write ("<tr>" + bilder + "</tr>")
Response.Write ("<tr>" + info + "</tr>")

End If
%>
</code>

Svara

Sv: Loopa htmltabeller beroende på antal "hits"

Postades av 2004-06-30 08:53:00 - Jens Ridderström

Det blev inte riktigt rätt:

<table width="100%" border="0" cellspacing="0" cellpadding="8">

<tr>
<td width=100><img src='../personlig/kort2/2.jpg height='120' width='90'></td>
<td width=100><img src='../personlig/kort2/2.jpg height='120' width='90'></td>
<td width=100><img src='../personlig/kort2/2.jpg height='120' width='90'></td>
<td width=100><img src='../personlig/kort2/2.jpg height='120' width='90'></td>
</tr>

<tr>
<td>hej</td>
<td>hej</td>
<td>hej</td>
<td>hej</td>
</tr>

<tr>
<td width=100><img src='../personlig/kort2/2.jpg height='120' width='90'></td>
<td width=100><img src='../personlig/kort2/2.jpg height='120' width='90'></td>
<td width=100><img src='../personlig/kort2/2.jpg height='120' width='90'></td>
<td width=100><img src='../personlig/kort2/2.jpg height='120' width='90'></td>
<td width=100><img src='../personlig/kort2/38.jpg height='120' width='90'></td>
<td width=100><img src='../personlig/kort2/38.gif height='120' width='90'></td>
<td width=100><img src='../personlig/kort2/38.jpg height='120' width='90'></td>
<td width=100><img src='../personlig/kort2/2.jpg height='120' width='90'></td>
</tr>

<tr>
<td>hej</td>
<td>hej</td>
<td>hej</td>
<td>hej</td>
<td>hej</td>
<td>hej</td>
<td>hej</td>
<td>hej</td>
</tr>

<tr>
<td width=100><img src='../personlig/kort2/2.jpg height='120' width='90'></td>
<td width=100><img src='../personlig/kort2/2.jpg height='120' width='90'></td>
<td width=100><img src='../personlig/kort2/2.jpg height='120' width='90'></td>
<td width=100><img src='../personlig/kort2/2.jpg height='120' width='90'></td>
<td width=100><img src='../personlig/kort2/38.jpg height='120' width='90'></td>
<td width=100><img src='../personlig/kort2/38.gif height='120' width='90'></td>
<td width=100><img src='../personlig/kort2/38.jpg height='120' width='90'></td>
<td width=100><img src='../personlig/kort2/2.jpg height='120' width='90'></td>
<td width=100><img src='../personlig/kort2/2.jpg height='120' width='90'></td>
<td width=100><img src='../personlig/kort2/2.jpg height='120' width='90'></td>
<td width=100></td><td width=100></td>
</tr>

<tr>
<td>hej</td>
<td>hej</td>
<td>hej</td>
<td>hej</td>
<td>hej</td>
<td>hej</td>
<td>hej</td>
<td>hej</td>
<td>hej</td>
<td>hej</td>
<td width=100></td>
<td width=100></td>
</tr>

</table>

Som du ser så blir det fel nåstans för det ska ju endast vara 4 kolumner på varje rad =/

Svara

Sv: Loopa htmltabeller beroende på antal "hits"

Postades av 2004-06-30 10:01:40 - Andreas Hillqvist

<code>
<%
Const Columns = 4
Dim Column
Dim bilder(1 To Columns)
Dim info(1 To Columns)

Dim rs

strSQL = "SELECT * FROM avatar_validate"
rs.Open strSQL, Connect

Response.Write "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""8"">"""

Do Until rs.EOF
For Column = 1 To Columns
If rs.EOF Then
bilder(Column) = "<td width=""25%""></td>"
info(Column) = "<td width=""25%""></td>"
Else
id = rs("id")
avatar = rs("avatar")
storlek = rs("storlek")

bilder(Column) = "<td width=""25%""><img src=""../personlig/kort2/" + avatar + """ height=""120"" width=""90""></td>"
info(Column) = "<td width=""25%"">...</td>"

rs.MoveNext
End If
Next

Response.Write "<tr>" + Join(bilder, "") + "</tr>"
Response.Write "<tr>" + Join(info, "") + "</tr>"
Loop

Response.Write "</table>"
%>
</code>

Svara

Sv: Loopa htmltabeller beroende på antal "hits"

Postades av 2004-06-30 10:35:29 - Per Persson

Ah, jag glömde nollställa utskriftsvariablerna. Ändra till
<code>
If a = 4 Then
Response.Write ("<tr>" + bilder + "</tr>")
Response.Write ("<tr>" + info + "</tr>")
bilder = ""
info = ""
a = 0
End If
</code>

Svara

Loopa htmltabeller beroende på antal "hits"

Sv: Loopa htmltabeller beroende på antal "hits"

Sv: Loopa htmltabeller beroende på antal "hits"

Sv: Loopa htmltabeller beroende på antal "hits"

Sv: Loopa htmltabeller beroende på antal "hits"

Sv: Loopa htmltabeller beroende på antal "hits"

Sv: Loopa htmltabeller beroende på antal "hits"

Sv: Loopa htmltabeller beroende på antal "hits"

Sv: Loopa htmltabeller beroende på antal "hits"

Sv: Loopa htmltabeller beroende på antal "hits"

Sv: Loopa htmltabeller beroende på antal "hits"

Nyligen

Sidor

Statistik

Kontakta oss