---
title: "Antal Lästa"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/42440-antal-lästa"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "voigtann1"
published: "2002-04-24T19:58:13.000Z"
updated: "2002-04-24T21:04:56.000Z"
replies: 7
views: 257
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/42440-antal-lästa"
---

# Antal Lästa

## #1 — voigtann1, 2002-04-24T19:58Z

Om man håller på med en hemsida med nyheter.

först en kort info om nyheten och sen 'läs mer'
när man trycker på läs mer så ska man +1 i databasen om just den nyheten samt göra en cookie just för det inlägged.. hur gör man det i korta drag?

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

## #2 — Jesper T, 2002-04-24T20:15Z

I mitt forum ser det ut så här:

```
SQLStmt = "SELECT * FROM questions WHERE id = " & id
RS.open SQLStmt, databas,1
last = request.cookies("last")
if last <> ""& id then
SQL = "UPDATE questions SET klick = klick + 1 WHERE id ="& id databas.Execute SQL
Response.cookies("last")= ""& id 
Response.cookies("last").expires = DateAdd("d",10,Now())
end if
```

Jag döper kakan till Id nummret i varje inlägg och jag har en tabell i databasen som heter klick.

MVH Jesper

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

## #3 — voigtann1, 2002-04-24T20:31Z

```
<%
	On Error Resume Next
	Set Connect = Server.CreateObject("ADODB.Connection")
	connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.MapPath("../db/databas.mdb")

	SQLStmt = "SELECT * FROM files where where ID = "& Request.QueryString("id")
	Set RecSet = Server.CreateObject("ADODB.Recordset")
	RecSet.open SQLStmt, databas,1

	if RecSet("global") = true then

	id = Request.QueryString("ID")
	last = request.cookies("last")
	if last <> ""& id then
	[b]SQL = "UPDATE files SET dl = dl + 1 WHERE id ="& id databas.Execute SQL[/b]
	Response.cookies("last")= ""& id 
	Response.cookies("last").expires = DateAdd("d",10,Now())
	end if

	Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
	mySmartUpload.DownloadFile("d:\voigtan\config\members\" & RecSet("user") &"\"& id)

	else
	Response.write "error"
	end if
%>
```

error:

Error Type:
Microsoft VBScript compilation (0x800A0401)
Expected end of statement
/voigtan/config/funk/download.asp, line 16, column 52

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

## #4 — EchO, 2002-04-24T20:44Z

SQL = "UPDATE files SET dl = dl + 1 WHERE id ="& id&""
databas.Execute SQL

Det borde fonka...

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

## #5 — LarsG, 2002-04-24T20:45Z

Du får dela upp den feta raden på två

```
RecSet.open SQLStmt, Connect,1
if RecSet("global") = true then
id = Request.QueryString("ID")
last = request.cookies("last")
if last <> ""& id then
SQL = "UPDATE files SET dl = dl + 1 WHERE id ="& id 
connect.Execute SQL
```

Dessutom så använder du databas fast det connectionobjekt som du skapade heter connect.

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

## #6 — voigtann1, 2002-04-24T20:47Z

Får ett attat nu:
Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E21)
ODBC driver does not support the requested properties.
/voigtan/config/funk/download.asp, line 9

rad 9:
RecSet.open SQLStmt, databas,1

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

## #7 — LarsG, 2002-04-24T20:59Z

Byt databas mot connect

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

## #8 — voigtann1, 2002-04-24T21:04Z

Fixat.. tack! för all hjälp =)

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/42440-antal-lästa