---
title: "Räknare"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/11406-räknare"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "ReloadMaster"
published: "2001-08-30T18:36:00.000Z"
updated: "2001-08-31T12:01:00.000Z"
replies: 8
views: 289
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/11406-räknare"
---

# Räknare

## #1 — ReloadMaster, 2001-08-30T18:36Z

Tjena!
Varför vill denna inte funka
Ska vara en enkel räknare:

```
<html>
<head>
<title>Räknare - _ _ _ _ _ _.nu</title>
</head>
<body>
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source ="& Server.MapPath("raknardb.mdb")

SQL = "UPDATE raknare SET Besokare = Besokare + 1" 
Set RecSet = Connect.Execute (SQL) 

besokare = RecSet("Besokare")

%>

<%
RecSet.Close
Set RecSet = Nothing
Connect.Close
Set Connect = Nothing
%>
</body>
</html>
```

Sedan vill jag tipsa om denna svåra fråga: <http://cgi.webforum.nu/wf/Forum11/HTML/006074.html>

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

## #2 — @nders, 2001-08-30T18:39Z

en update-fråga returnerar ingenting, utan det recordset du skapar är tomt.

det är lite svårt också att hjälpa till när du inte säger vad det är som inte funkar.

uppdateras inte databasen?
får du inte rätt värde i variabeln?

så här hade jag gjort:

```
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source ="& Server.MapPath("raknardb.mdb")
SQL = "UPDATE raknare SET Besokare = Besokare + 1" 
Connect.Execute(SQL)

SQL = "SELECT Besokare FROM raknare"
Set RecSet = Connect.Execute (SQL) 

besokare = RecSet("Besokare")

RecSet.Close
Set RecSet = Nothing
Connect.Close
Set Connect = Nothing
Response.write besokare & " personer har varit här, för fasen!"
%>
```

mvh,

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

## #3 — ReloadMaster, 2001-08-30T18:59Z

Schysst...

Men om vi säger att jag skulle vilja uppdatera en textfil med ett för varje besökare och skriva ut det hur skulle det kunna se ut?

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

## #4 — jorgen, 2001-08-30T19:28Z

Skärpning @nders, har du inte lärt dig än. LarsG som repeterar så ofta ;)

```

<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source ="& Server.MapPath("raknardb.mdb")

SQL = "UPDATE raknare SET Besokare = Besokare + 1" 
Connect.Execute [b]SQL,,128[/b]

SQL = "SELECT Besokare FROM raknare"
Set RecSet = Connect.Execute (SQL) 

besokare = RecSet("Besokare")

RecSet.Close
Set RecSet = Nothing
Connect.Close
Set Connect = Nothing
Response.write besokare & " personer har varit här, för fasen!"
%>
```

Både funkar men denna är snäppet vassare :e

Jörgen :)

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

## #5 — ReloadMaster, 2001-08-31T03:03Z

Kan ingen?

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

## #6 — Vide, 2001-08-31T07:05Z

Säkerligen många, men dom flesta har redan svarat påfrågan massor med gånger, så jag föreslår att du ägnar några minuter till att söka i detta forum.

Seek and you shall find... :)

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

## #7 — Eclipse, 2001-08-31T07:08Z

Varför ska du uppdatera en textfil när  du har en databas!? Du får använda FSO, File System Object, och det är inte alls säkert att ditt webbhotell stödjer FSO.

Skippa det. Ingen gör så och det är ingen slump. Det är helt enkel ett duktigt omständigt tillvägagångssätt.

Vad betyder 'Connect.Execute **SQL,,128**'?

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

## #8 — @nders, 2001-08-31T07:18Z

> Vad betyder 'Connect.Execute SQL,,128'?

en fråga vi aldrig hört förut... :p

det innebär att inget recordset skapas överhuvudtaget när sql-satsen exekveras.

mvh,

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

## #9 — jorgen, 2001-08-31T12:01Z

Hej, vill du tvunget använda en textfil kan du prova detta som jag sparat av någon anledning:

```

<%
set FileObject = createobject("scripting.filesystemobject")
totfile = server.mappath("counter.txt")

If FileObject.FileExists(totfile) Then
set ActiveFile = FileObject.opentextfile(totfile)
counter = clng(ActiveFile.readline)
counter = counter + 1
ActiveFile.close
Set ActiveFile = FileObject.CreateTextFile(totfile, true)
ActiveFile.WriteLine(counter)
ActiveFile.Close         

Else

Set ActiveFile = FileObject.CreateTextFile(totfile)
ActiveFile.WriteLine("1")
counter=1
ActiveFile.Close

End If

Response.Write "Besökare: <b>" & counter & "</b>"
```

mvh Jörgen

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/11406-räknare