hjälp med antal

2 svar · 131 visningar · startad av jonfor 25 maj 2001

jonforMedlem sedan mars 200170 inlägg

Frågan25 maj 2001 17:40#1

har ett dagbokssript som koden ser ut så här på:

<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=C:\Inetpub\wwwroot\clean\dagbok\db\db.mdb"
%>

<%
antal = 0
numer = 1
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM nyheter ORDER BY Id DESC"
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
Do Until RecSet.EOF
%>

<table border="0" width="98%" cellspacing="0">
<tr>
<td class="rubrik3" width="35%" bgcolor="#E10057"><b><%=RecSet("datum")%></b></td>
<td class="rubrik3" width="45%" bgcolor="#E10057"><b><%=left(RecSet("Rubrik"),30)%></b></td>
<td align="right" class="text" width="20%" bgcolor="#E10057">inlägg nr <%= numer %>
</tr>
<tr>
<td class="text" width="492" colspan="3"><%=doIt(RecSet("Meddelande"))%><br>
<B>Skrivet av en </b><%=left(RecSet("Namn"),30)%><b> fluffy.</B><BR><BR></td>
</tr>
</table>

<%	
antal = antal + 1
numer = antal + 1
RecSet.MoveNext
Loop
RecSet.Close
Connect.Close
%>

Det finns <%= antal %> ointressanta dagboks anteckningar inlagda.

som det är nu så får det nyaste inlägget nr 1 men jag vill ha så att det nyaste inlägget får det högsta nr istället för det lägsta.
Hur gör man?

------------------

Tallin 98-gänget
Fluffys

TobbsterMedlem sedan mars 2001309 inlägg

25 maj 2001 18:03#2

Jag har ändrat lite i din kod det borde funka så här.....

<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=C:\Inetpub\wwwroot\clean\dagbok\db\db.mdb"
%>
<%
antal = 0
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM nyheter ORDER BY Id DESC"
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
numer=RecSet.RecordCount
Do Until RecSet.EOF
%>

<table border="0" width="98%" cellspacing="0">
<tr>
<td class="rubrik3" width="35%" bgcolor="#E10057"><b><%=RecSet("datum")%></b></td>
<td class="rubrik3" width="45%" bgcolor="#E10057"><b><%=left(RecSet("Rubrik"),30)%></b></td>
<td align="right" class="text" width="20%" bgcolor="#E10057">inlägg nr <%=numer %>
</tr>
<tr>
<td class="text" width="492" colspan="3"><%=doIt(RecSet("Meddelande"))%><br>
<B>Skrivet av en </b><%=left(RecSet("Namn"),30)%><b> fluffy.</B><BR><BR></td>
</tr>
</table>

<%
antal = antal + 1
numer = numer - 1
RecSet.MoveNext
Loop
RecSet.Close
Connect.Close
%>

Det finns <%=antal %> ointressanta dagboks anteckningar inlagda.

------------------
Plikten framför Allt......

[Redigerat av Tobbster den 25 maj 2001]

jonforMedlem sedan mars 200170 inlägg

25 maj 2001 18:09#3

man tackar man tackar!!
Funkar utmärkt! :)

------------------

Tallin 98-gänget
Fluffys