---
title: "Visa senaste inlägget"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/68038-visa-senaste-inlägget"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "berntg"
published: "2003-02-12T10:09:47.000Z"
updated: "2003-02-13T16:50:41.000Z"
replies: 6
views: 246
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/68038-visa-senaste-inlägget"
---

# Visa senaste inlägget

## #1 — berntg, 2003-02-12T10:09Z

Känner mig villrådig.

Följande sida ska visa senaste inlägget i en nyhetsdatabas.
\<%
	Option Explicit 
	Response.Buffer = True 
%\>
\<!-- #include file="../adovbs.inc" --\>
\<%	
	Dim Connect, SQL, RS
	Set Connect = Server.CreateObject("ADODB.Connection")
	Connect.Open "driver={Microsoft Access Driver (\*.mdb)};dbq=" & Server.MapPath("../meddelande/news_97.mdb")
%\>
\<html\>
\<head\>
\<title\>Meddelanden\</title\>
\<link rel="STYLESHEET" type="text/css" href="../css/huvudsida.css"\>
\</head\>
\<body\>
\<h4\>Meddelande\</h4\>
\<% 
	Set RS=Connect.Execute("Select top 1 from nyheter order by id desc;")
%\>
\<%= rs("datum") %\> - \<%= rs("nyhet") %\>

\<% 
	RS.Close
	Connect.Close
	Set RS = Nothing
	Set Connect = Nothing  
%\>
\</body\>
\</html\>

Jag får följande felmeddelande:

Microsoft OLE DB Provider for ODBC Drivers fel '80040e14' 

\[Microsoft\]\[Drivrutin för ODBC Microsoft Access\] SELECT-uttrycket innehåller ett reserverat ord eller argument som antingen är felstavat eller utelämnat, eller så är skiljetecknen felaktigt använda. 

Om jag i stället för top 1 skriver \* (alla) får jag inte felmeddelande. Var är felet?

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

## #2 — Vide, 2003-02-12T10:11Z

```
Set RS=Connect.Execute("Select top 1 [b]*[/b] from nyheter order by id desc;")
```

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

## #3 — mikul, 2003-02-12T10:19Z

Fixade till den lite ;)

```
<% 
Option Explicit 
Response.Buffer = True 

Dim Connect, SQL, RS 
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("../meddelande/news_97.mdb") 
%> 
<html> 
<head> 
<title>Meddelanden</title> 
<link rel="STYLESHEET" type="text/css" href="../css/huvudsida.css"> 
</head> 
<body> 
<h4>Meddelande</h4> 

<% 
Set RS=Connect.Execute("Select top 1 * from nyheter order by id desc;") 
Response.write rs("datum") &" - "& rs("nyhet") 
 
RS.Close Set : RS = Nothing 
Connect.Close : Set Connect = Nothing 
%> 
</body> 
</html>
```

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

## #4 — berntg, 2003-02-12T11:09Z

Tack så mycket!

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

## #5 — berntg, 2003-02-13T16:29Z

När jag inte har något meddelande i databasen får jag ett felmeddelande. Jag vill i stället att det ska stå: För tillfället inget meddelande. Hur åstadkommer jag detta?

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

## #6 — m_soderlund, 2003-02-13T16:33Z

Lägg till denna kod efter Set Rs=Connect.Execute...:

```
If Rs.EOF Then
Rs.Close : Set Rs = Nothing
Connect.Close : Set Connect = Nothing
Response.Write "Det finns inga poster i databasen än.."
Else
'Vanliga koden om det finns grejor i databasen

End If
```

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

## #7 — berntg, 2003-02-13T16:50Z

Tack, tack

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/68038-visa-senaste-inlägget