---
title: "nya inlägg"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/137110-nya-inlägg"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "ptr_lks"
published: "2005-11-07T13:54:39.000Z"
updated: "2005-11-07T20:58:08.000Z"
replies: 26
views: 686
page: 1
pages: 2
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/137110-nya-inlägg"
---

# nya inlägg

_Sida 1 av 2._

## #1 — ptr_lks, 2005-11-07T13:54Z

Hej, jag vill på min indexsida skriva ut om nya inlägg har skrivits i gästboken

```
Set minCon = Server.CreateObject("ADODB.Connection")
set rsGbok = Server.CreateObject("ADODB.Recordset")

minCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/db/guests.mdb")
strSQL =" SELECT * FROM guestbook"
rsGbok.Open strSQL, minCon, 3, 3
srtSQL = "SELECT * FROM Guestbook"
Do While Not rsGbok.EOF
If rsGbok("Datum") < Now () then
Response.Write rsGbok("Namn") & "  skrivit nytt inlägg i gästboken"
rsGbok.MoveNext
  Loop
  rsGbok.Close
  Set rsGbok = Nothing
  minCon.Close
  Set minCon = Nothing
```

Har kört lokalt på min maskin, för att kolla koden, men inget har skrivits ut (varken felmess eller nya inlägg)
Tacksam om ni kunde hjälpa mig med att hitta felet.
Jag använder mig utav Access 2003

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

## #2 — greggan, 2005-11-07T14:02Z

Tror inte att det är lösningen på problemet, men varför har du definat srtSQL två ggr?

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

## #3 — voigtann1, 2005-11-07T14:03Z

hmm.. ser bara en fråga varför har du två st "srtSQL = "SELECT \* FROM Guestbook"" ? Skriver den ut allt utom denna kod rad?

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

## #4 — ptr_lks, 2005-11-07T14:05Z

> **voigtann1 skrev:**
>
> hmm.. ser bara en fråga varför har du två st "srtSQL = "SELECT \* FROM Guestbook"" ? Skriver den ut allt utom denna kod rad?

tryckfelssnisse...
Men det skrivs inte ut ngt, tyvärr iaf inte lokalt på min burk

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

## #5 — voigtann1, 2005-11-07T14:07Z

Jag har kollat på din kod och jag hittar inget som skall påverka det... har du något i databasen? :e

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

## #6 — LarsG, 2005-11-07T14:09Z

Hämta bara relevanta kolumner. Ställ villkoren i select-frågan. Hur definerar du att ett inlägg är nytt?  E.g. 

```
strSQL =" SELECT distinct namn FROM guestbook where datum > #" & last_date & "#"
```

Att jämföra med dagens datum verkar konstigt.

Om du vill jämföra i VB så använd funktionen cdate så att databasvärdet får rätt typ.

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

## #7 — @nders, 2005-11-07T14:10Z

Ett fel folk väldigt ofta gör är att jämföra äpplen med päron. Se alltid till att saker som jämförs är av samma subtyp.

```
If cdate(rsGbok("Datum")) < Now ()
```

Visserligen kommer denna if-sats träffa alla poster som finns med tidigare datum.

Det känns dock fel att göra if-satser i asp-koden; ställ villkoret i SQL-frågan istället.

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

## #8 — ptr_lks, 2005-11-07T14:14Z

> **voigtann1 skrev:**
>
> Jag har kollat på din kod och jag hittar inget som skall påverka det... har du något i databasen? :e

japp databasen innehåller 109 poster.. den senaste är från

> 2005-10-31 08:53:42

Nu ser koden:

```
Set minCon = Server.CreateObject("ADODB.Connection")
set rsGbok = Server.CreateObject("ADODB.Recordset")

minCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/db/guests.mdb")
strSQL =" SELECT * FROM guestbook"
rsGbok.Open strSQL, minCon, 3, 3
srtSQL = "SELECT * FROM Guestbook"
Do While Not rsGbok.EOF
If rsGbok("Datum") < Now () then
Response.Write rsGbok("Namn") & "  skrivit nytt inlägg i gästboken"
rsGbok.MoveNext
  Loop
  rsGbok.Close
  Set rsGbok = Nothing
  minCon.Close
  Set minCon = Nothing
```

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

## #9 — ptr_lks, 2005-11-07T14:22Z

Varför

> **LarsG skrev:**
>
> Att jämföra med dagens datum verkar konstigt.

verkar det konstigt?
trodde att det var en bra definition på att inlägget är nyare än senaste besöket

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

## #10 — LarsG, 2005-11-07T17:38Z

Du försöker jämföra om datumet då inlägget skrevs är mindre än aktuell datum och tid vilket borde innebära att i stort sett alla inlägg uppfyller det villkoret.

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

## #11 — ptr_lks, 2005-11-07T18:44Z

Har kommit på en sak:
eftersom du behöver inte logga in föra tt besöka sidan, kanske är inte detta det smartaste lösningen  :q 

Kanske bättre att lista de 5 senaste inläggen med datum, och låta besökaren avgöra ifall de har läst inlägget eller inte?

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

## #12 — @nders, 2005-11-07T18:47Z

Om man inte måste logga in har du ju ingen möjlighet att avgöra vem som läst vad. 
Fem senaste inläggen och länk till resten låter som en bra idé.

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

## #13 — Nova, 2005-11-07T19:16Z

Detta borde lista dina fem senaste inlägg.

```
<%  Set objConn = Server.CreateObject("ADODB.Connection")
minCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/db/guests.mdb")

Set objrs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT top 5 * FROM Guestbook WHERE datum < Now ORDER BY datum DESC"
objrs.Open strSQL, objConn, 1, 3

Do While Not objrs.EOF

Response.Write objrs("Namn") & "  skrivit nytt inlägg i gästboken<br>"

  objrs.movenext
  Loop
  objrs.Close
  Set objrs = Nothing
objConn.Close
  Set objConn= Nothing%>
```

Vart det rätt @nders?

//Kockar ska koka soppa inte leka med datorer :)

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

## #14 — ptr_lks, 2005-11-07T19:30Z

> **@nders skrev:**
>
> Om man inte måste logga in har du ju ingen möjlighet att avgöra vem som läst vad. 
> Fem senaste inläggen och länk till resten låter som en bra idé.

Med nedanstående kod

```
<%
Set minCon = Server.CreateObject("ADODB.Connection")
set rsGbok = Server.CreateObject("ADODB.Recordset")
minCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/db/guests.mdb")
srtSQL = "SELECT TOP 5 * FROM guestbook ORDER BY DESC"
rsGbok.Open strSQL, minCon, 3, 3
Do While Not rsGbok.EOF
     Response.Write rsGbok("Datum") & "  skrev  " & rsGbok("Namn") & " ett inlägg i Gästboken<BR>"
	 rsGbok.MoveNext
	  Loop
rsGbok.Close
Set rsGbok = Nothing
minCon.Close
Set minCon = Nothing
%>
```

Får jag felmess:

> Error Type:
> Kompileringsfel i Microsoft VBScript (0x800A040E)
> 'loop' utan 'do'
> /index.asp, line 50
> Loop

Men Jag har ju en do

```
Do While Not rsGbok.EOF
```

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

## #15 — Nova, 2005-11-07T19:37Z

strSQL
srtSQL

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

## #16 — ptr_lks, 2005-11-07T19:39Z

> **Nova skrev:**
>
> strSQL
> srtSQL

aha

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

## #17 — @nders, 2005-11-07T19:42Z

Felmeddelandet behöver inte betyda att du saknar *do*. Om du indenterar koden ordentligt (har du verkligen med rad 50 i den kod du visar förresten?), så är det lättare att hitta vad du missat.

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

## #18 — ptr_lks, 2005-11-07T19:43Z

> **@nders skrev:**
>
> Felmeddelandet behöver inte betyda att du saknar *do*. Om du indenterar koden ordentligt (har du verkligen med rad 50 i den kod du visar förresten?), så är det lättare att hitta vad du missat.

Svar Ja..
rad 50

```
Set rsGbok = Nothing
```

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

## #19 — @nders, 2005-11-07T19:45Z

Den kodraden säger *ingenting* utan sammanhang.
Mer kod behövs, till exempel sådan kod som finns ovanför det kodblocket du visar.

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

## #20 — ptr_lks, 2005-11-07T19:45Z

> **Nova skrev:**
>
> strSQL
> srtSQL

när jag nu ändrar, så får jag

> A sharing violation occured while accessing

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/137110-nya-inlägg  
Nästa sida: https://www.webforum.nu/amne/asp/137110-nya-inlägg/page2.md