Ny tabellrad efter 3 inmatningar?

2 svar · 245 visningar · startad av ChiefJoseph 29 apr. 2004

ChiefJosephMedlem sedan okt. 200173 inlägg

Frågan29 apr. 2004 09:28#1

Hej!
Jag skulle behöva lite hjälp med detta.

Bakgrund
Användare skriver in sina uppgifter. Jag vill efter 3 användare att raden bryts och 3 nya kommer under.

<%
SET db=Server.CreateObject("ADODB.Connection")
db.Open "driver={Microsoft Access Driver (*.mdb)};dbq=D:databas.mdb"
SET rs=db.Execute("SELECT * FROM af ORDER BY fnamn")
%>

<!--#include file="usertest.inc"-->
<!-- #include file="inc/top.inc" -->

<table border="0" cellspacing="0" style="margin-top:12px; margin-left: 10px;">
<tr>
</tr>
<%do while not rs.eof%>
<tr>
<td><strong><% =rs("fnamn")%>&nbsp;<% =rs("enamn")%> </strong><br><% =rs("adress")%><br>
<% =rs("pnr")%>&nbsp;<% =rs("ort")%> <br><% =rs("tel")%><br><a href="mailto:<% =rs("epost")%>"><% =rs("epost")%><br><br></td>
</tr>
<%rs.MoveNext
loop
%>
</table>
<%
db.close
SET db=nothing
%>

OveRRidEMedlem sedan feb. 200112 078 inlägg

29 apr. 2004 09:41#2

Det framgår inte om du vill ha det på höjden eller bredden, så jag gör båda istället.

<%
SET db=Server.CreateObject("ADODB.Connection")
db.Open "driver={Microsoft Access Driver (*.mdb)};dbq=D:databas.mdb"
SET rs=db.Execute("SELECT * FROM af ORDER BY fnamn")
%>

<!--#include file="usertest.inc"-->
<!-- #include file="inc/top.inc" -->

<table border="0" cellspacing="0" style="margin-top:12px; margin-left: 10px;">
<tr>
</tr>
<% 
i = 0
while not rs.eof
i = i + 1
%>
<tr>
<td><strong><% =rs("fnamn")%> <% =rs("enamn")%> </strong><br><% =rs("adress")%><br>
<% =rs("pnr")%> <% =rs("ort")%> <br><% =rs("tel")%><br><a href="mailto:<% =rs("epost")%>"><% =rs("epost")%><br><br></td>
</tr><%
if i = 3 then
i = 0 %>
<tr>
   <td>& n b s p ;</td>
</tr><%
end if
rs.MoveNext
wend %>
</table>
<%
db.close
SET db=nothing
%>

<%
SET db=Server.CreateObject("ADODB.Connection")
db.Open "driver={Microsoft Access Driver (*.mdb)};dbq=D:databas.mdb"
SET rs=db.Execute("SELECT * FROM af ORDER BY fnamn")
%>

<!--#include file="usertest.inc"-->
<!-- #include file="inc/top.inc" -->

<table border="0" cellspacing="0" style="margin-top:12px; margin-left: 10px;">
<tr><% 
i = 0
while not rs.eof
i = i + 1 %>
<td><strong><% =rs("fnamn")%> <% =rs("enamn")%> </strong><br><% =rs("adress")%><br>
<% =rs("pnr")%> <% =rs("ort")%> <br><% =rs("tel")%><br><a href="mailto:<% =rs("epost")%>"><% =rs("epost")%><br><br></td><%
if i = 3 then
i = 0 %>
</tr>
<tr><%
end if
rs.MoveNext
wend %>
</tr>
</table>
<%
db.close
SET db=nothing
%>

ChiefJosephMedlem sedan okt. 200173 inlägg

29 apr. 2004 11:01#3

Ett stort tack!
Det fungerar utmärkt!!