Visa senaste nyhet först
Hej.
HIt brukar jag vända mig när jag stöter på problem så nu var det dags igen.
Efter att ha utvecklat ett perfekt nyhets-script i asp så har jag nu gjort en sida som visar alla nyheter och en enskild nyhet. Nu vill jag att den ska visa den senaste nyheten först och det gör den inte. den visar den senaste sist. Hur gör jag?
[kod]
<!-- #include file = "adovbs.inc" -->
<html>
<head>
<title>Läs gamla nyheter</title>
</head>
<body bgcolor="#FFFFFF" text="#000000">
<%
If Request.Querystring("visa") = "" Then
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("nyheter.mdb")&";"
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM nyheter "
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
Do Until RecSet.EOF
%>
<table width="370" border="0" cellspacing="2" cellpadding="0" height="100">
<tr>
<td>
<font size="1" face="Verdana">
<b>
<%=RecSet("rubrik")%>
-
<font color="#993300">
<%=FormatDateTime(RecSet("datum"),vbLongdate)%> av <%=RecSet("person")%>
</font>
</b>
</font>
</td>
</tr>
<tr>
<td>
<font size="1" face="Verdana">
<%=Replace(RecSet("text"),vbCrLf,"<br>")%>
</font>
</td>
</tr>
</table>
<br>
<hr size="1" noshade>
<br>
<%
RecSet.MoveNext
Loop
RecSet.Close
Connect.Close
Set RecSet = nothing
Set Connect = nothing
End If
If Request.Querystring("visa") = "sep" Then
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("nyheter.mdb")&";"
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM nyheter WHERE ID = " &Request.QueryString("id")
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
%>
<table width="370" border="0" cellspacing="2" cellpadding="0" height="100">
<tr>
<td>
<font size="1" face="Verdana">
<b>
<%=RecSet("rubrik")%>
-
<font color="#993300">
<%=FormatDateTime(RecSet("datum"),vbLongdate)%> av <%=RecSet("person")%>
</font>
</b>
</font>
</td>
</tr>
<tr>
<td>
<font size="1" face="Verdana">
<%=Replace(RecSet("text"),vbCrLf,"<br>")%>
</font>
</td>
</tr>
</table>
<font face="verdana" size="1">
<a href="nyheter.asp"><-- Tillbaka</a>
</font>
<%
RecSet.Close
Connect.Close
Set RecSet = nothing
Set Connect = nothing
End If
%>
</body>
</html>
[/kod]
------------------
//Hulth
HIt brukar jag vända mig när jag stöter på problem så nu var det dags igen.
Efter att ha utvecklat ett perfekt nyhets-script i asp så har jag nu gjort en sida som visar alla nyheter och en enskild nyhet. Nu vill jag att den ska visa den senaste nyheten först och det gör den inte. den visar den senaste sist. Hur gör jag?
[kod]
<!-- #include file = "adovbs.inc" -->
<html>
<head>
<title>Läs gamla nyheter</title>
</head>
<body bgcolor="#FFFFFF" text="#000000">
<%
If Request.Querystring("visa") = "" Then
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("nyheter.mdb")&";"
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM nyheter "
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
Do Until RecSet.EOF
%>
<table width="370" border="0" cellspacing="2" cellpadding="0" height="100">
<tr>
<td>
<font size="1" face="Verdana">
<b>
<%=RecSet("rubrik")%>
-
<font color="#993300">
<%=FormatDateTime(RecSet("datum"),vbLongdate)%> av <%=RecSet("person")%>
</font>
</b>
</font>
</td>
</tr>
<tr>
<td>
<font size="1" face="Verdana">
<%=Replace(RecSet("text"),vbCrLf,"<br>")%>
</font>
</td>
</tr>
</table>
<br>
<hr size="1" noshade>
<br>
<%
RecSet.MoveNext
Loop
RecSet.Close
Connect.Close
Set RecSet = nothing
Set Connect = nothing
End If
If Request.Querystring("visa") = "sep" Then
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("nyheter.mdb")&";"
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM nyheter WHERE ID = " &Request.QueryString("id")
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
%>
<table width="370" border="0" cellspacing="2" cellpadding="0" height="100">
<tr>
<td>
<font size="1" face="Verdana">
<b>
<%=RecSet("rubrik")%>
-
<font color="#993300">
<%=FormatDateTime(RecSet("datum"),vbLongdate)%> av <%=RecSet("person")%>
</font>
</b>
</font>
</td>
</tr>
<tr>
<td>
<font size="1" face="Verdana">
<%=Replace(RecSet("text"),vbCrLf,"<br>")%>
</font>
</td>
</tr>
</table>
<font face="verdana" size="1">
<a href="nyheter.asp"><-- Tillbaka</a>
</font>
<%
RecSet.Close
Connect.Close
Set RecSet = nothing
Set Connect = nothing
End If
%>
</body>
</html>
[/kod]
------------------
//Hulth
Comment