Hallå.
Jag skulle vilja ha hjälp med att få det senaste newslettret att hamna bakom knappen "newsletter.GIF" med tillhörande datum. Jag vet att kopplingen sitter efter bilden, men jag har ingen aning om vad jag ska göra. Dom tio övriga newslettren kommer att loopas, och det har jag fixat, men hur får jag det senaste att hamna under en Knapp (newsletter.GIF) och dom andra under knappen ladda hem (ladda_hem.GIF).


<code>

<table width="430" border="0" cellspacing="0" cellpadding="5">
<tr>
<td colspan="2"><img src="../../bilder/afbilder/newsrub.GIF" width="430" height="25"><br>
</td>
</tr>
<tr>
<td align="center" colspan="2">
<BR>
<BR><img src="../../bilder/afbilder/newsletter.gif" width="244" height="21" border="0"><br>
Inkom den: "datum"<br>
<BR>
<BR>Om du missat något utskick så finns dom 10 senaste här nedan.
<BR>
</td>
</tr>
<%
Set MinCon = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
MinCon.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("/roos/text/wiktors_db/db2002.mdb")
SQL = "SELECT * FROM news ORDER BY ID desc"
rs.Open SQL, MinCon, 1, 2
Do While not rs.EOF
%>

<tr>
<td width="350">
<span class="datum"><%=rs("datum")%></span><BR>
<%=rs("text")%>
</td>
<td align="right">" target="_blank">
</td>
</tr>
<%
rs.MoveNext
Loop

%>
<%
rs.Close
Set rs = Nothing
MinCon.Close
Set MinCon = Nothing
%>


</table>

</code>

Tack på förhand

//JW

Jag skulle göra så här. Lite förenklat men du fattar nog hur du skall redigera din kod för att få det att fungera.

<code>
'sätt upp en räknare
i = 1
do until rs.eof or rs.bof

if i = 1 then
'det är den första posten i recordsetet så skriv ut rätt bild och rätt text
%>
<img src="newsletter.GIF"> osv.

<%
else
'första posten har passerats så skriv ut den andra bilden och rätt text
%>
<img src="ladda_hem.GIF">osv.

<%
end if
i = i + 1
rs.movenext
loop
%>
</code>

//Putte

Tack det funkar

//JW

Du komplicerar det hela Putte. Finns ett enklare och smartare sätt:
<code>
<table width="430" border="0" cellspacing="0" cellpadding="5">
<tr>
<td colspan="2"><img src="../../bilder/afbilder/newsrub.GIF" width="430" height="25"><br>
</td>
</tr>
<tr>
<td align="center" colspan="2">
<BR>
<BR><img src="../../bilder/afbilder/newsletter.gif" width="244" height="21" border="0"><br>
Inkom den: "datum"<br>
<BR>
<BR>Om du missat något utskick så finns dom 10 senaste här nedan.
<BR>
</td>
</tr>
<%
Set MinCon = Server.CreateObject("ADODB.Connection")
MinCon.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("/roos/text/wiktors_db/db2002.mdb")

Set rs = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM news ORDER BY ID desc"
rs.Open SQL, MinCon, 1, 2

If rs.EOF Then
%>
<tr>
<td colspan=2>Det finns inga poster</td>
</tr>
<%
Else
'Första posten
%>
<tr>
<td width="350">
<span class="datum"><%=rs("datum")%></span><BR>
<%=rs("text")%>
</td>
<td align="right">" target="_blank">
</td>
</tr>
<%
rs.MoveNext

'resten av posterna
Do Until rs.EOF
%>
<tr>
<td width="350">
<span class="datum"><%=rs("datum")%></span><BR>
<%=rs("text")%>
</td>
<td align="right">" target="_blank">
</td>
</tr>
<%
rs.MoveNext
Loop
End If

rs.Close
Set rs = Nothing

MinCon.Close
Set MinCon = Nothing
%>
</table>
</code>