15. april 2003 - 21:38
Der er
2 kommentarer og
1 løsning
Lave en tabel der lägger records 2 og 2
Jeg har en masse poster der bliver kaldt på og dem vil ejg gerne have lagt 2 og 2 i en tabel.
Jeg har prövet med noget a lá dette her:
Dim cells
Dim cellcount
cells = 3
cellcount = 1
if cellcount = cells then
%>
</tr><tr> osv
men får det ikke til at fungerer.
Er der nogen der har et script er jeg taknemmelig.
//Michael
15. april 2003 - 21:58
#1
Ok her er hele tabellen hvis det hjälper:
<table width="640" border="0" cellspacing="5" cellpadding="0">
<tr align="left" valign="top">
<%
set conn = server.CreateObject("ADODB.CONNECTION")
DSN = "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" & Server.MapPath("..\..\db\eldAdmin.mdb")
conn.Open DSN
strSQL = "SELECT * FROM gaseldadeBrasor"
' SQL sætning eksekveres
set RS = conn.execute(strSQL)
do while not rs.EOF
if LEN(TRIM(rs("thumb")))<>0 or LEN(TRIM(rs("thumb")))<>NULL then
%>
<td width="100"><a href="#" onClick="imgPopup('admin/upload/<%=rs("bild")%>',350,350); return false;"><img src="admin/upload/<%=rs("thumb")%>" alt=<%=rs("bild")%> width="100" height="100" border="1"></a><br>
Klicka på bilden för större bild. </td>
<%
else
%>
<td width="100"><img src="admin/upload/ingen_bild.gif" alt="Ingen bild" width="100" height="100" border="1"></td>
<%
end if
%>
<td><table width="200" border="0" cellspacing="1" cellpadding="3">
<tr>
<td colspan="2" align="left" valign="top" bgcolor="#CC6600"><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#FFFFFF"><b>
<%=rs("model") %> </b></font></td>
</tr>
<tr>
<td align="left" valign="top" bgcolor="#F5F5F5"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Bredd:
</font></td>
<td bgcolor="#F5F5F5" align="right" valign="top"><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#990000"><%=rs("brannarBredd")%></font></td>
</tr>
<tr>
<td bgcolor="#E5E5E5" align="left" valign="top"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Djup:
</font></td>
<td bgcolor="#E5E5E5" align="right" valign="top"><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#990000"><%=rs("djup")%></font></td>
</tr>
<tr>
<td bgcolor="#F5F5F5" align="left" valign="top"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Höjd:</font></td>
<td bgcolor="#F5F5F5" align="right" valign="top"><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#990000"><%=rs("hojd")%> </font></td>
</tr>
<tr>
<td bgcolor="#E5E5E5" align="left" valign="top"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Maxeffekt:
</font></td>
<td bgcolor="#E5E5E5" align="right" valign="top"><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#990000"><%=rs("effekt")%></font></td>
</tr>
<tr align="right">
<td colspan="2" valign="top"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><a href="word/Produktoversikt_skiss_och_text.doc" target="_blank"><img src="bilder/knapp_produkt.gif" width="135" height="17" border="0"></a></font></td>
</tr>
<tr align="right">
<td colspan="2" valign="top"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><a href="tekniskdata.html"><img src="bilder/knapp_teknisk.gif" width="120" height="17" border="0"></a></font></td>
</tr>
</table>
<%
Dim cells
Dim cellcount
cells = 3
cellcount = 1
if cellcount = cells then
%>
</tr><tr>
<%
end if
cellcount = cellcount + 1
rs.moveNext
loop
conn.close
%>