---
title: "Skriva ut antal inloggningar i 20 dagar"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/40116-skriva-ut-antal-inloggningar-i-20-dagar"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "ampy"
published: "2002-03-22T19:29:32.000Z"
updated: "2002-03-28T18:19:36.000Z"
replies: 29
views: 547
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/40116-skriva-ut-antal-inloggningar-i-20-dagar"
---

# Skriva ut antal inloggningar i 20 dagar

_Sida 1 av 2._

## #1 — ampy, 2002-03-22T19:29Z

Denna kod här nedan skriver ut antal inloggningar som har gjorts idag. Men är det möjligt att skriva ut alla på en lista sedan tex 20 dagar tillbaka? 

Alltså att jag vill skriva ut hur många inloggningar det har gjorts idag, förrgår osv.

```
<%
Set oRS = Connect.Execute("Select count(*) as no " & _ 
"from inloggningar " & _ 
"WHERE vad = 'loggain' " & _ 
"AND Left(datum,10) = '" & date & "'") 

Response.Write oRS("no")
%>
```

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

## #2 — icaaq, 2002-03-22T19:40Z

```
[red]
<%
Set oRS = Connect.Execute("Select count(*) as no " & _ 
"from inloggningar " & _ 
"WHERE vad = 'loggain' " & _ 
"AND Left(datum,10) > '" & DateAdd("D", -20, Date()) & "'") 

Response.Write oRS("no")
%>
[/red]
```

denna kanske funkar......

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

## #3 — ampy, 2002-03-22T19:43Z

Denna kod tror jag skrev ut summan under alla tjugo dagarna men jag vill skriva ut alla siffror på en lista med det datumet bredvid.

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

## #4 — icaaq, 2002-03-22T19:49Z

ok....läste inte frågan så noga första gånge :r

Och tyvärr det blev för mycket för mig......

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

## #5 — ampy, 2002-03-23T17:57Z

Ingen annan som kan?

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

## #6 — LarsG, 2002-03-23T18:23Z

```
<%
Set oRS = Connect.Execute("Select count(*) as no, datum " & _ 
"from inloggningar " & _ 
"WHERE vad = 'loggain' " & _ 
"AND datediff('d',datum,now()) <= 20 " & _
"group by datum "
"order by datum desc "

while not rs.eof
response.write rs("datum") & ": " & rs("no") & "<br>"
rs.movenext
wend

%>
```

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

## #7 — ampy, 2002-03-23T18:30Z

')' förväntas. 

/80/main.asp, line 133 

"group by datum"
\----------------^

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

## #8 — LarsG, 2002-03-23T18:49Z

ack ack

```
<%
Set oRS = Connect.Execute("Select count(*) as no, datum " & _ 
"from inloggningar " & _ 
"WHERE vad = 'loggain' " & _ 
"AND datediff('d',datum,now()) <= 20 " & _
"group by datum " & _
"order by datum desc ")

while not rs.eof
response.write rs("datum") & ": " & rs("no") & "<br>"
rs.movenext
wend

%>
```

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

## #9 — ampy, 2002-03-23T18:58Z

Ändra lite på koden så att den ser ut såhär:

```
<%
Set oRS = Connect.Execute("Select count(*) as no, datum " & _ 
"from inloggningar " & _ 
"WHERE vad = 'loggain' " & _ 
"AND datediff('d',datum,now()) <= 20 " & _
"group by datum " & _
"order by datum desc ")

while not oRS.eof
response.write oRS("datum") & ": " & oRS("no") & "<br>"
oRS.movenext
wend

%>
```

Nu blir det inget felmeddelande men nu skriver den ut alla poster med det datumet och 1 bredvid, men jag vill skriva ut ett datum med det antal inloggningar under den dan.

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

## #10 — LarsG, 2002-03-23T19:52Z

Hur ligger datum lagrat? Är det med klockslag?

```
<%
Set oRS = Connect.Execute("Select count(*) as no, " & _
" year(datum) & "-" & month(datum) & "-" & day(datum) as inLoggad " & _ 
"from inloggningar " & _ 
"WHERE vad = 'loggain' " & _ 
"AND datediff('d',datum,now()) <= 20 " & _
"group by 2  " & _
"order by 2 desc ")

while not oRS.eof
response.write oRS("inLoggad") & ": " & oRS("no") & "<br>"
oRS.movenext
wend

%>
```

blir kanske bättre

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

## #11 — ampy, 2002-03-23T20:04Z

Får:

```
Körningsfel i Microsoft VBScript fel '800a000d' 

Inkompatibla typer: 'Connect' 

/80/main.asp, line 130
```

Rad 130 med fetstil:

```
<%
[b]Set oRS = Connect.Execute("Select count(*) as no, " & _[/b]
" year(datum) & "-" & month(datum) & "-" & day(datum) as inLoggad " & _ 
"from inloggningar " & _ 
"WHERE vad = 'loggain' " & _ 
"AND datediff('d',datum,now()) <= 20 " & _
"group by 2  " & _
"order by 2 desc ")

while not oRS.eof
response.write oRS("inLoggad") & ": " & oRS("no") & "<br>"
oRS.movenext
wend

%>
```

Jag använder Connect för koderna innan har ju funkat.

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

## #12 — ampy, 2002-03-24T12:09Z

Ingen som vet felet?

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

## #13 — ampy, 2002-03-24T15:35Z

LarsG: datum innehåller också klockslag, har jag ändrat denna kod rätt?

```
<%
[b]Set oRS = Connect.Execute("Select count(*) as no, " & _[/b]
" year(datum) & "-" & month(datum) & "-" & day(datum) & "" & time(datum) & as inLoggad " & _

"from inloggningar " & _ 
"WHERE vad = 'loggain' " & _ 
"AND datediff('d',datum,now()) <= 20 " & _
"group by 2  " & _
"order by 2 desc ")

while not oRS.eof
response.write oRS("inLoggad") & ": " & oRS("no") & "<br>"
oRS.movenext
wend

%>
```

Men av denna kod får jag detta felmeddelande:

```
Körningsfel i Microsoft VBScript fel '800a000d' 

Inkompatibla typer: 'Connect' 

/80/main.asp, line 132
```

Rad 132 är skriven med fetstil i koden ovan.

Så här ser min databasöppning ut:

```

	<%
	Set Connect = Server.CreateObject("ADODB.Connection") 
	Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("community.mdb")

	Set RecSet = Server.CreateObject("ADODB.Recordset")
	%>
```

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

## #14 — ampy, 2002-03-24T19:40Z

Det här är nu **hela** sidan så det kan inte vara ngt annat som orsakar felet än det som står här:

```
<%
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("community.mdb")

Set RecSet = Server.CreateObject("ADODB.Recordset")
	
strSQL = "Select count(*) as no, " & _
" year(datum) & "-" & month(datum) & "-" & day(datum) & "" & time(datum) & as inLoggad " & _

"from inloggningar " & _ 
"WHERE vad = 'loggain' " & _ 
"AND datediff('d',datum,now()) <= 20 " & _
"group by 2 " & _
"order by 2 desc "

Set oRs = Connect.Execute strSQL

while not oRS.eof
response.write oRS("inLoggad") & ": " & oRS("no") & "<br>"
oRS.movenext
wend

RecSet.Close
Connect.Close

Set RecSet = Nothing
Set Connect = Nothing
%>
```

Felmeddelande:

```
Kompileringsfel i Microsoft VBScript fel '800a0401' 
Slut på programsats förväntas. 
/80/test.asp, line 23 
Set oRs = Connect.Execute strSQL
--------------------------^
```

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

## #15 — solbulle, 2002-03-24T19:47Z

Ser ut som om du har en tom rad mitt i din strSQL-sats.

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

## #16 — ampy, 2002-03-24T19:50Z

Spelar ingen roll, får fortfarande samma felmeddelande.

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

## #17 — ampy, 2002-03-25T20:10Z

Ingen annan som vet felet?

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

## #18 — Josef, 2002-03-25T22:04Z

Prova det här

```
strSQL = "Select count(*) as no, "
strSQL = strSQL & "year(datum) & "-" & month(datum) & "-" & day(datum) & " " & time(datum) & " as inLoggad "
strSQL = strSQL & "from inloggningar WHERE vad = 'logga in' "
strSQL = strSQL & "AND datediff('d', datum,now()) <= 20 "
strSQL = strSQL & "GROUP by 2 ORDER BY 2 DESC"
```

Vad är year(**datum** ) för någonting????

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

## #19 — LarsG, 2002-03-25T22:46Z

```
Set oRs = Connect.Execute (strSQL)
```

Funktionen year returnerar årtalet från ett datumvärde.

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

## #20 — ampy, 2002-03-26T15:36Z

LarsG: När jag la till paranteserna så får jag detta fel:

```
Körningsfel i Microsoft VBScript fel '800a000d' 

Inkompatibla typer: '[string: "year(datum) & "]' 

/80/test.asp, line 13
```

Rad 13:

```
"year(datum) & "-" & month(datum) & "-" & day(datum) & "" & time(datum) & as inLoggad " & _'
```

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/40116-skriva-ut-antal-inloggningar-i-20-dagar  
Nästa sida: https://www.webforum.nu/amne/asp/40116-skriva-ut-antal-inloggningar-i-20-dagar/page2.md