---
title: "Skriver ut dubletter.??"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/5695-skriver-ut-dubletter"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "cgi"
published: "2000-05-17T20:21:00.000Z"
updated: "2000-05-20T10:44:00.000Z"
replies: 7
views: 188
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/5695-skriver-ut-dubletter"
---

# Skriver ut dubletter.??

## #1 — cgi, 2000-05-17T20:21Z

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.

Permalänk: https://www.webforum.nu/p/5695

## #2 — Vide, 2000-05-17T21:15Z

Förstår inte riktigt vad du menar... men genom att sortera efter t.ex id eller daum så skall det fungera, lägg till detta i slutet av din SQL-fråga:
Order by id

Permalänk: https://www.webforum.nu/p/243029

## #3 — Zaphod, 2000-05-18T23:33Z

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.

Permalänk: https://www.webforum.nu/p/243030

## #4 — cgi, 2000-05-19T11:53Z

Det har jag redan gjort men den vill inte fortfarande inte skriva ut de nyaste inläggen först.

Permalänk: https://www.webforum.nu/p/243031

## #5 — AG, 2000-05-19T20:24Z

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.

Permalänk: https://www.webforum.nu/p/243032

## #6 — cgi, 2000-05-20T09:34Z

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"\>&nbsp;\</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\>&nbsp;\</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"\>&nbsp;\<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"\>&nbsp;\</p\>
    \<p\>&nbsp;\</p\>
    \<p\>&nbsp;\</td\>
  \</tr\>
\</table\>
\</body\>
\</html\>

Permalänk: https://www.webforum.nu/p/243033

## #7 — AG, 2000-05-20T10:39Z

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

Permalänk: https://www.webforum.nu/p/243034

## #8 — cgi, 2000-05-20T10:44Z

Se där nu funkar det ju klockrent. ;) 
Tackar så mycket för hjälpen.

Permalänk: https://www.webforum.nu/p/243035

---

Tråden på webben: https://www.webforum.nu/amne/asp/5695-skriver-ut-dubletter
