fel i kod

8 svar · 311 visningar · startad av crisse6 4 maj 2001

crisse6Medlem sedan dec. 20002 526 inlägg

Frågan4 maj 2001 23:10#1

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 %>

------------------
www.groda.net *kvack*, *kvack*

M@rtinMedlem sedan dec. 19992 085 inlägg

4 maj 2001 23:12#2

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") & "'"

------------------
//M@rtin || Peachy.nu\\

Sue Me!

crisse6Medlem sedan dec. 20002 526 inlägg

4 maj 2001 23:15#3

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....

------------------
www.groda.net *kvack*, *kvack*

[Redigerat av crisse6 den 05 maj 2001]

@ndersMedlem sedan juni 200032 967 inlägg

5 maj 2001 06:22#4

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

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

------------------
<A HREF="http://cartman.nu" TARGET=_blank>
nobody expects the spanish inquisition!</A>

nakozMedlem sedan dec. 1999653 inlägg

5 maj 2001 09:38#5

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.

------------------
void[]
stash/$gu&-public(querystring)/n int{}bind "2" "say i own!" :)

[Redigerat av nakoz den 05 maj 2001]

crisse6Medlem sedan dec. 20002 526 inlägg

5 maj 2001 11:01#6

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

------------------
www.groda.net *kvack*, *kvack*

crisse6Medlem sedan dec. 20002 526 inlägg

5 maj 2001 11:03#7

ä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...

------------------
www.groda.net *kvack*, *kvack*

LinaMedlem sedan jan. 2001332 inlägg

5 maj 2001 13:15#8

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.....

------------------
Du lever bara en gång och den gången är nu!

crisse6Medlem sedan dec. 20002 526 inlägg

5 maj 2001 14:44#9

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

------------------
www.groda.net *kvack*, *kvack*