7 svar · 185 visningar · startad av cgi
När man skriver en annons på annonstorget som jag håller på med så läggs annonserna inte under den frame vill att dom ska utan skriver ut en frame + annonsen under, kan vara lite svårt att förklara, besök denna sida istället: http://reptiler.webhostme.com/cgi-bin/Nyannons/resultat.asp
Och hur får man den nyaste annonsen att laggas högst upp på sidan?? alla annonser lägger sig längst ner på sidan nu.
Du får lägga in "ORDER BY datum DESC" i din SQL string. Om datum är namnet på din datum kolumn som lagrar publicerings datumen.
DESC visar de nyaste först.
ASC visar de äldsta först.
Hoppas det hjälper.
------------------
/Magnus aka Zaphod
www.designmodule.com.bi
Det har jag redan gjort men den vill inte fortfarande inte skriva ut de nyaste inläggen först.
Pasta in koden så får jag ta mig en titt på det
Testa också att lägga in "Order by id desc" istället, är ju i princip samma som föregående svar.
När jag tittade såg det ut som det borde vara en lösningen.
Ok här komer den:
<%@ LANGUAGE="VBScript" %>
<!--#include file="ADOVBS.inc"-->
<!--#include file="IASUtil.asp"-->
<%
Kat_Id = Request("Kat_Id")
typ = Replace(Request("typ"), "'", "''")
Set Databas = Server.CreateObject("ADODB.Connection") 'Skapar kopplings objektet
MdbFilePath = Server.MapPath("radannons.mdb") 'Specifierar sökvägen till databasen
Databas.Open "Driver={Microsoft Access Driver (\*.mdb)}; DBQ=" & MdbFilePath & ";" 'Öppnar databasen
SQL = "Select \* from Annonser"
Set RS = databas.Execute(SQL)
SQLStmt = "SELECT \*, Format$(\[datum\],'yyyy/mm/dd') AS formdatum FROM Kategorier,Annonser "
SQLStmt = SQLStmt & "WHERE Kategorier.Kat_Id = " & Kat_Id & " "
SQLStmt = SQLStmt & "AND Annonser.Kategori_Id = " & Kat_Id & " "
SQLStmt = SQLStmt & "AND Annonser.Typ = '" & typ & "' "
SQLStmt = SQLStmt & "ORDER BY Annonser.Id DESC "
SQLStmt = SQLStmt & "ORDER BY datum DESC"
%>
<HTML>
<HEAD>
<TITLE>Kolla inlagda annonser</TITLE>
<style type="text/css">
<!--
select { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 8pt}
input { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 8pt}
-->
</style>
<script language="JavaScript">
<!--
function check()
{
if(event.button == 2)
{
alert("Tyvärr! Du kan inte sno dessa bilder!");
}
}
// -->
</script>
</HEAD>
<BODY onmousedown="check()" BACKGROUND="images/bakbla.gif" BGCOLOR="#FFFFFF" VLINK="#9C9C9C">
<form action="index.asp" method="post">
<TABLE BORDER=0 cellpadding="2" cellspacing="0" WIDTH="520">
<tr><TD WIDTH="10"> </TD><th align="right">Kategori:</th>
<td colspan="2">
<SELECT NAME="category">
<FONT SIZE="2">
<OPTION>Alla</OPTION>
\<OPTION\>Ormar säljes\</OPTION\>
\<OPTION\>Ormar köpes\</OPTION\>
\<OPTION\>Ödlor säljes\</OPTION\>
\<OPTION\>Ödlor köpes\</OPTION\>
\<OPTION\>Sköldpaddor säljes\</OPTION\>
\<OPTION\>Sköldpaddor köpes\</OPTION\>
\<OPTION\>Krokodiler säljes\</OPTION\>
\<OPTION\>Krokodiler köpes\</OPTION\>
\<OPTION\>Tillbehör säljes\</OPTION\>
\<OPTION\>Tillbehör köpes\</OPTION\>
\<OPTION\>Groddjur köpes\</OPTION\>
\<OPTION\>Groddjur säljes\</OPTION\>
</FONT>
</SELECT>
</td>
<th align="right">Region:</th>
<td>
<SELECT NAME="region">
<FONT SIZE="2">
<OPTION>Alla</OPTION>
\<OPTION\>Blekinge\</OPTION\>
\<OPTION\>Bohuslän\</OPTION\>
\<OPTION\>Dalarna\</OPTION\>
\<OPTION\>Gotland\</OPTION\>
\<OPTION\>Gävleborg\</OPTION\>
\<OPTION\>Halland\</OPTION\>
\<OPTION\>Jämtland\</OPTION\>
\<OPTION\>Jönköping\</OPTION\>
\<OPTION\>Kalmar\</OPTION\>
\<OPTION\>Kronoberg\</OPTION\>
\<OPTION\>Norrbotten\</OPTION\>
\<OPTION\>Skaraborg\</OPTION\>
\<OPTION\>Skåne\</OPTION\>
\<OPTION\>Stockholm\</OPTION\>
\<OPTION\>Södermanland\</OPTION\>
\<OPTION\>Uppsala\</OPTION\>
\<OPTION\>Värmland\</OPTION\>
\<OPTION\>Västerbotten\</OPTION\>
\<OPTION\>Västernorrland\</OPTION\>
\<OPTION\>Västmanland\</OPTION\>
\<OPTION\>Älvsborg\</OPTION\>
\<OPTION\>Örebro\</OPTION\>
\<OPTION\>Östergötland\</OPTION\>
\<OPTION\>Danmark\</OPTION\>
\<OPTION\>Norge\</OPTION\>
\<OPTION\>Finland\</OPTION\>
</FONT>
</SELECT>
</td>
<td align="center"><FONT SIZE="2"><INPUT TYPE="submit" VALUE="Sök"></FONT></td></tr>
</table>
</form>
<table border="0" width="600">
<tr>
\<p\>\<%
CurrentRecord = 0
Do While CheckRS(RS)%\> \</p\>
\<TABLE\>
<tr>
<TD> </TD>
<td WIDTH="160"><font size="2"><a href="annons.asp?id=<%= RS("id") %>"><%= RS("rubrik") %></a></font></td>
<td WIDTH="130"><font size="2"><%=rs("Namn")%></font></td>
<td WIDTH="100"><font size="2"><%=rs("Ort")%></font></td>
<td WIDTH="140"><font size="1" COLOR="#9C9C9C"><%=rs("Datum")%></font></td></tr>
\</table\>
\<p\>\<% RS.MoveNext
CurrentRecord = CurrentRecord + 1
Loop
%> </p>
<p align="center"> <br>
<% If CurrentRecord = 0 Then %> <strong><font face="Verdana">Tyvärr finns det inga annonser<br>
i den här kategorin.</font></strong><% End If %></p>
<p align="center"> </p>
<p> </p>
<p> </td>
</tr>
</table>
</body>
</html>
Testa detta, det borde fungera, byt bara ut koden mot den jag inkluderar här:
<%@ LANGUAGE="VBScript" %>
<!--#include file="ADOVBS.inc"-->
<!--#include file="IASUtil.asp"-->
<%
Kat_Id = Request("Kat_Id")
typ = Replace(Request("typ"), "'", "''")
Set Databas = Server.CreateObject("ADODB.Connection") 'Skapar kopplings objektet
MdbFilePath = Server.MapPath("radannons.mdb") 'Specifierar sökvägen till databasen
Databas.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";" 'Öppnar databasen
SQL = "Select * from Annonser Order by id desc"
Set RS = databas.Execute(SQL)
SQLStmt = "SELECT *, Format$([datum],'yyyy/mm/dd') AS formdatum FROM Kategorier,Annonser "
SQLStmt = SQLStmt & "WHERE Kategorier.Kat_Id = " & Kat_Id & " "
SQLStmt = SQLStmt & "AND Annonser.Kategori_Id = " & Kat_Id & " "
SQLStmt = SQLStmt & "AND Annonser.Typ = '" & typ & "' "
%>
Testa det, det kan fungera.
Andreas
Se där nu funkar det ju klockrent. ;)
Tackar så mycket för hjälpen.