---
title: "Kört fast igen!"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/7574-kört-fast-igen"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "tapani"
published: "2000-12-31T12:37:00.000Z"
updated: "2001-01-03T17:47:00.000Z"
replies: 7
views: 197
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/7574-kört-fast-igen"
---
# Kört fast igen!
## #1 — tapani, 2000-12-31T12:37Z
Koden nedan skall räkna poster som innehåller ett NULL-värde. (posterna kan vara tomma i en kolumn)
Jag får fram posten som innehåller ett tomt värde men när den sedan går vidare med en post som där är något i så får jag fram följande felmeddelande:
error '80020009'
Exception occurred.
/bokn/apr3.asp, line 33
```
<%
Dim Counter
Set objConn = CreateObject("ADODB.Connection")
objConn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\InetPub\drivingevent\bokn\test.mdb")
SQL = "SELECT * FROM Kund Where Datum LIKE '200004%'"
Set rsKal = objConn.execute(SQL)
%>
Untitled Document
| Ej
betalat Dag |
Antal |
<%
SQL = "SELECT COUNT(*) AS antal FROM Kund WHERE FaktNr IS NULL"
Set rsFakt = objConn.execute(SQL)
Do While Not rsKal.EOF
counter = counter + 1
If rsFakt("antal") = "" Then
antal = 0
Else
antal = rsFakt("antal")
End If
Do While Not rsFakt.EOF
%>
| <%=Counter%> |
<%= rsFakt("antal")%> |
<%
rsKal.MoveNext
rsFakt.MoveNext
Loop
Loop
rsKal.close
rsFakt.close
set rsKal = Nothing
set rsFakt = Nothing
objConn.close
set objConn = Nothing
%>
```
Line 33 är:
```
If rsFakt("antal") = "" Then
```
Har även provat med:
```
If rsFakt("antal") < 0 Then
```
Permalänk: https://www.webforum.nu/p/7574
## #2 — Brimba, 2000-12-31T14:28Z
if rsFakt("antal") = NULL ...
if len(rsFakt("antal")) \<= 0 ...
Permalänk: https://www.webforum.nu/p/253251
## #3 — tapani, 2000-12-31T14:58Z
Får inte till det..
Provade med:
```
If rsFakt("antal") = NULL then
antal = rsFakt("antal")
Else
If len(rsFakt("antal")) <= 0 then
antal = 0
End If
```
Felmeddelande:
Microsoft VBScript compilation error '800a040e'
'loop' without 'do'
/bokn/apr3.asp, line 48
Loop
^
Permalänk: https://www.webforum.nu/p/253252
## #4 — Grummel, 2000-12-31T16:47Z
Så här ska det se ut
```
If rsFakt("antal") = NULL then
antal = rsFakt("antal")
ElseIf len(rsFakt("antal")) <= 0 then
antal = 0
End If
```
Permalänk: https://www.webforum.nu/p/253253
## #5 — tapani, 2000-12-31T17:22Z
Fungerar icke.. \*hum\*
error '80020009'
Exception occurred.
/bokn/apr3.asp, line 32
Får forfarande fram att den räknar den
första tomma posten men sedan kommer
felmeddelandet ovan när det finns något i en post.
Permalänk: https://www.webforum.nu/p/253254
## #6 — jonne, 2001-01-03T08:05Z
testa med denna kod där du kollar om fältet är tomt eller inte:
if rsFakt("antal") = "" or rsFakt("antal") = null then
Permalänk: https://www.webforum.nu/p/253255
## #7 — emission, 2001-01-03T09:39Z
För att testa om något är NULL ska man använda if isNull(värde). Man ska inte testa detta på samma rad som en annan test
if isnull(värde) or värde="" then
för om värde är null så blir strängtesten felaktig
if isnull(värde) then
else
if värde="" then
.....
Permalänk: https://www.webforum.nu/p/253256
## #8 — tapani, 2001-01-03T17:47Z
Löste det så här istället..
Vet inte om det är så bra men just nu fungerar det.
```
SQL = "SELECT COUNT(Datum) AS antal FROM Kund WHERE FaktNr IS NULL AND Datum LIKE '20000401'"
Set rs = objConn.execute(SQL)
Do While Not rs.EOF %>
| 20000401 |
<%= rs("antal")%> |
```
Har kämpat med den här länge nu \*hehe\*
Permalänk: https://www.webforum.nu/p/253257
---
Tråden på webben: https://www.webforum.nu/amne/asp/7574-kört-fast-igen