Efter en tids krånglande måste jag fråga åter igen. :stud
Det jag vill åstakomma är att visa fem poster ur databasen, varav den senaste inlagda fullt utskriven (top 1?), de andra får bara visa 20 tecken sedan ha en "Läs mer...".
Visar en grundkod jag har för att inte krångla till det.. det är väl en enkel top5-kod egentligen..
<% Else
Set MinCon = Server.CreateObject("ADODB.Connection")
Set UDS = Server.CreateObject("ADODB.Recordset")
MinCon.Open "Provider = Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db.mdb")
SQL = "Select Top 5 * From uds Order By Id Desc"
UDS.Open SQL, MinCon
Do While Not UDS.EOF%>
<p>
<%=UDS("datum")%>: <%=UDS("rubrik")%><br>
<a href="index.asp?do=news&id=<%=UDS("id")%>">Läs mer...</a>
</p>
<%
UDS.MoveNext
Loop
%>
Sen undrar jag också hur jag kan få varannan post att ha ett speciellt värde i <p>? Typ en speciell bakgrundsfärg på varannan.. :q
Nu visas första inlägget helt och fullt, dock kommer även det med på top 4 efterråt, vilket inte var tanken - utan endast de som kommer efter det som visat hela.
<% Else
Set MinCon = Server.CreateObject("ADODB.Connection")
Set UDS = Server.CreateObject("ADODB.RecordSet")
MinCon.Open "Provider = Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db.mdb")
SQL = "Select Top 4 * From uds Order By Id Desc"
UDS.Open SQL, MinCon
%>
<p>
<%=UDS("datum")%>: <%=UDS("rubrik")%><br>
<%=UDS("text")%><br>
<a href="index.asp?do=news&id=<%=UDS("id")%>">Läs mer...</a>
</p>
<%
UDS.MoveNext
With UDS
.MoveFirst
End With
Do While Not UDS.EOF
%>
<p>
<%=UDS("datum")%>: <%=UDS("rubrik")%><br>
<a href="index.asp?do=news&id=<%=UDS("id")%>">Läs mer...</a>
</p>
<%
UDS.MoveNext
Loop
UDS.Close
%>
Och även problemet med att få varannan <p> att ha olika värden kvarstår.
