---
title: "fel i kod"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/9286-fel-i-kod"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "crisse6"
published: "2001-05-04T23:10:00.000Z"
updated: "2001-05-05T14:44:00.000Z"
replies: 8
views: 336
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/9286-fel-i-kod"
---

# fel i kod

## #1 — crisse6, 2001-05-04T23:10Z

får felmeddelande:

```
Microsoft OLE DB Provider for ODBC Drivers error '80040e07' 

[Microsoft][Drivrutin för ODBC Microsoft Access] Typblandningsfel i villkorsuttryck. 

/groda/topplistan.asp, line 19
```

rad 19 = markerad:

```
<%
Set Databas = Server.CreateObject("ADODB.Connection")
Set rsTopp = Server.CreateObject("ADODB.Recordset")
MdbFilePath = Server.MapPath("users.mdb")
Databas.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ= " & MdbFilePath & ";"

SQL = "SELECT TOP 10 * From users WHERE antalbesok = '" & session("id") & "'"
[b]rsTopp.Open SQL, Databas[/b]
If rsTopp.EOF then
Response.Write "<b>" & "Fel, försök senare" & "</b>"
else

Response.Write "<table width=""600"" border=""0"" valign=""top"" cellpadding=""4"">" & VbCrLf

Response.Write "<tr>" & VbCrLf

Response.Write "<td bgcolor=""#FFFFFF""><font face=""Verdana"" size=""1"" color=""black""><b>Nr:</b>"
Response.Write "<td bgcolor=""#FFFFFF""><font face=""Verdana"" size=""1"" color=""black""><b>Användarnamn:</b></a>"
Response.Write "<td bgcolor=""#FFFFFF""><font face=""Verdana"" size=""1"" color=""black""><b>Antalbesök:</b>"

Response.Write "</tr>" & VbCrLf

Do while NOT rsTopp.EOF

counter = counter + 1
If counter Mod 2 = 0 then
color = "ffffff"
Else
color = "E8A216"
End If

Response.Write "<tr>" & VbCrLf

Response.Write "<td bgcolor=""#" & Color & """><font face=""Verdana"" size=""1"" color=""black"">"
Response.Write "<td bgcolor=""#" & Color & """><font face=""Verdana"" size=""1"" color=""black"">" & rsTopp("username") & "</b></a>"
Response.Write "<td bgcolor=""#" & Color & """><font face=""Verdana"" size=""1"" color=""black"">" & rsMess("antalbesok") & "</b>"

Response.Write "</tr>" & VbCrLf
rsTopp.MoveNext
Loop

Response.Write "</table>"
End If
%>
<% rsTopp.close %>
```

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

## #2 — M@rtin, 2001-05-04T23:12Z

Det är väl inte antalbesök du vill välja utifrån utan medlemmens id?

Alltså:
SQL = "SELECT TOP 10 \* From users WHERE id= '" & session("id") & "'"

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

## #3 — crisse6, 2001-05-04T23:15Z

oj, är lite trött! nu har jag löst det... 

så här skulle det ju va, 

```
SQL = "SELECT TOP 10 * From users WHERE antalbesok"
```

det är ju inte personligt... :e

men en annan sak, hur får jag siffror att stå ute i hörnet?
asså: (markerade)
**1\.** crisse6
**2\.** kalle
**3\.** osv....

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

## #4 — @nders, 2001-05-05T06:22Z

```
SQL = "SELECT TOP 10 * From users WHERE antalbesok"
```

vad hade du tänkt att den where-satsen skulle göra?

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

## #5 — nakoz, 2001-05-05T09:38Z

undrar väldigt mycke över den kod du har... men kanske detta skulle hjälpa dig.

```
SQL = "SELECT TOP 10 * FROM users ORDER BY antalbesok"

...

i = 0
Do Until rsTopp.EOF
i = i+1

counter = counter + 1
If counter Mod 2 = 0 then
color = "ffffff"
Else
color = "E8A216"
End If

Response.Write "<tr>" & VbCrLf

Response.Write "<td bgcolor=""#" & Color & """><font face=""Verdana"" size=""1"" color=""black"">"& i &"</font></td>"
Response.Write "<td bgcolor=""#" & Color & """><font face=""Verdana"" size=""1"" color=""black"">" & rsTopp("username") & "</font></td>"
Response.Write "<td bgcolor=""#" & Color & """><font face=""Verdana"" size=""1"" color=""black"">" & rsMess("antalbesok") & "</font></td>"
rsTopp.MoveNext
Loop

Response.Write "</tr>" & VbCrLf
```

ursäkta att jag säger det, men din kod ser för jävlig ut :) sluta använd editors :)

aja, min kod e otestad.

mvh.

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

## #6 — crisse6, 2001-05-05T11:01Z

bra! det funkar jätte bra, det var bara små grjer som behövde fixas ;)

jag ändrade din kod till...

SQL = "SELECT TOP 10 \* FROM users WHERE antalbesok"

det blev bättre, din kod tog fram ALLA i databasen på ngt konstigt sätt :q

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

## #7 — crisse6, 2001-05-05T11:03Z

är det ingen som vet någon färdig mailinglista man kan använda? jag vill inte ha typ så att det står i slutet...

THIS SERVICE COMES FROM BRAVENET eller liknande...

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

## #8 — Lina, 2001-05-05T13:15Z

Hmmmm...

Du sa:

> jag ändrade din kod till...
>
> SQL = "SELECT TOP 10 \* FROM users WHERE antalbesok"
>
> det blev bättre, din kod tog fram ALLA i databasen på ngt konstigt sätt

Vad exakt är det du vill göra med den sql-satsen???  :q

För mig ser det ut som om den bara är halvfärdig....  :e
Som jag har lärt mig gör ju en Where-sats en jämförelse med datan i fälten på angiven post och ett värde som anges i sql-satsen...

I din sql-sats anger du ju inget jämförelsevärde vilket innebär att den hämtar alla poster.....

 :h

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

## #9 — crisse6, 2001-05-05T14:44Z

skit samma, det funkar iaf, men inte med den andra :(

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/9286-fel-i-kod
