Mystisk fel...

hur ser det ut om du skriver ut sql satsen då? ser ju rätt så korrekt ut

Hur menar du med att skriva ut SQL-satsen?

SQL = "SELECT * From LinkCounter Where sorts='webb' ORDER BY id" 

response.write sql
'DBLink.Open SQL, Conn, 1, 2

sådär typ

Då blir det detta felmeddelande:

ADODB.Recordset fel '800a0e78' 

Åtgärden är inte tillåten när objektet är stängt. 

/lankar/webbutvecklingssidor.asp, line 91

Rad 91:

If DBLink.EOF Then

ja men sätt en

' <-- sådan före

Det är ju för att jag bad dig stänga ner
öppningen av dblink därför felet kom =)
bara att ta bort halvsnuffarna sedan

Ingen som kan hjälpa mig, fattade inte riktigt vad limpon menade.

Ingen som kan hjälpa mig?

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source= "& server.MapPath("../db/linkcounterlankar.mdb") 

SQL = "SELECT * From LinkCounter Where sorts='webb' ORDER BY id"

Set ObjRS = Conn.execute(SQL)

testa så

När jag skrev din kod icaaq så får jag detta felmeddelande:

Microsoft JET Database Engine fel '80040e10' 

Det har inte angetts något värde för en eller flera nödvändiga parametrar. 

/ampy/lankar/webbutvecklingssidor.asp, line 79

Ska jag visa mer kod eller, kan ju vara längre ner som det är fel?

När jag skrev din kod icaaq så får jag detta felmeddelande:

Microsoft JET Database Engine fel '80040e10' 

Det har inte angetts något värde för en eller flera nödvändiga parametrar. 

/ampy/lankar/webbutvecklingssidor.asp, line 79

Ska jag visa mer kod eller, kan ju vara längre ner som det är fel?

När jag skrev din kod icaaq så får jag detta felmeddelande:

Microsoft JET Database Engine fel '80040e10' 

Det har inte angetts något värde för en eller flera nödvändiga parametrar. 

/ampy/lankar/webbutvecklingssidor.asp, line 79

Ska jag visa mer kod eller, kan ju vara längre ner som det är fel?

Detser lite fel ut.

Set Conn = Server.CreateObject("ADODB.Connection")
Set DBLink = Server.CreateObject("ADODB.Recordset")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source= "& server.MapPath("../db/linkcounterlankar.mdb") 
SQL = "SELECT * From LinkCounter Where sorts='webb' ORDER BY id" 

DBLink.Open SQL, Conn, 1, 2

Jag brukar öppna med dessa parametra:

Set con = Server.CreateObject("ADODB.Connection")
con.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../data/ArrReg.mdb")
Dim Con
Dim rst
Dim strSQL
Const adOpenStatic = 3
Const adLockReadOnly = 1
Const adCmdText = 1

strSQL = "SELECT * FROM Forfattare "&_
"WHERE Namn ='"& Request("Forfattare") &"'"

Set rst = Server.CreateObject("ADODB.Recordset")
rst.Open strSQL, Con, adOpenStatic, _
 adLockReadOnly, adCmdText

Inga som helst problem..

På denna rad:

strSQL = "SELECT * FROM LinkCounter "&_
"WHERE sorts ='"& Request("webb") &"'"

Fick jag följande felmeddelande:

Microsoft OLE DB Provider for ODBC Drivers fel '80040e10' 

[Microsoft][Drivrutin för ODBC Microsoft Access] För få parametrar angavs. 1 förväntades.

Ingen som kan hjälpa mig?

Hej, antingen finns inte det fält eller den tabellen du anger eller så har du stavat dem fel.

mvh Jörgen