Grupering med at tal fra access - prøver igen

det ville hjælpe lidt hvis du kan forklare hvad fejlen går ud på?

Ja selvfølgelig :)

Får fejlen:
Microsoft VBScript compilation error '800a03f6'

Expected 'End'

/default.asp, line 157

Men min kode til at grupere med, starter i linie 750.. Og det virkede fint før, indtil jeg fik sat ovenstående kode ind..

kan jeg ikke få de første 157 linier at se så....

Ref: http://www.eksperten.dk/spm/640458

Som sagt må din fejl være et eller sndet sted tidligere i din kode. Uanset hav du selv mener, så må du på en eller anden måde have kommet til at ændre noget tidligere. Hvis du poster din kode, så skal jeg/vi gerne gå den igennem.

PS: Jeg undre mig stadig over at du kun har en eneste Case inden i din Select. I dette tilfælde ville en If-Then klart være at foretrække.

syntes han skrev at han havde noget med 40 stk case

jepper det har jeg også.. jeg vender lige tilbage, det går amok lige nu!
For fejl 500 på hele webstedet nu.. Vender lige tilbage..

Ja, men det fremgår ikke specielt klart af den postede kode. Uden at have en eller anden form af hvordan de står i casen så er det jo sværet at vurdere koden.

Det er utrolig så blind man kan se sig på så noget :) Kan godt forstå du sagde det var svært at vurdere nielle! Det må i undskylde!!

Koden er nu sådan her:
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("../db/database.mdb")
Conn.Open DSN
strSQL = "Select * From " & Request.QueryString("tabel") & " Where Id = " & Request.Querystring("ID")
rs = Conn.Execute(SQL)

Response.Write rs("varenr")

SQL2 = "Select * From " & Request.QueryString("tabel") & " WHERE visning=" & rs("visning") & " AND Id <> " & Request.Querystring("ID")
rs2 = Conn.Execute(SQL2)

Do While Not rs2.EOF
    Response.Write rs2("varenr")
    rs2.MoveNext
Loop
%>

Og nu får jeg en SQL fejl, forstår dog ikke lige hvor den kommer fra:
Microsoft OLE DB Provider for ODBC Drivers error '80040e37'

[Microsoft][ODBC Microsoft Access Driver] The Microsoft Jet database engine cannot find the input table or query 'maaned'. Make sure it exists and that its name is spelled correctly.

/case.asp, line 756

Og linie 756 sker der bare rs = Conn.Execute(SQL)

Det er sikkert fodi du kalder den strSQL det ene sted og SQL det andet sted:

strSQL = "Select * FROM " & Request.QueryString("tabel") & " WHERE id = " & Request.Querystring("ID")
rs = Conn.Execute(SQL)

hehe, newbie- det er mig :) Nu virker det sådan set til dels.. Nu får jeg noget end of file fejl, det forstår jeg ikk!

SP14382
Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method: 'EOF'

/case.asp, line 764




(SP14382 er det første varenummer ud i et sæt)

Hvordan ser din kode ud nu, og hvilken en linje er 764?

Nu ser den sådan her ud:
<%
'Grupere varer fra databasen i sektion 15
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("../db/database.mdb")
Conn.Open DSN
SQL = "Select * FROM " & Request.QueryString("tabel") & " WHERE id = " & Request.Querystring("ID")
rs = Conn.Execute(SQL)

Response.Write rs("varenr")

SQL2 = "Select * From " & Request.QueryString("tabel") & " WHERE visning=" & rs("visning") & " AND Id <> " & Request.Querystring("ID")
rs2 = Conn.Execute(SQL2)

Do While Not rs2.EOF
    Response.Write rs2("varenr")
    rs2.MoveNext
Loop
%>

<%
Conn.Close
Set Conn = Nothing
end select
%>


Linie 764 er: Do While Not rs2.EOF

Siger det dig noget??

Prøv med et "Set" foran:

Set rs2 = Conn.Execute(SQL2)

Det er fantastisk!!!!!! det virker ;)
Mange mange tak!!!

Nu blir de så dog lige smidt på en stribe, men det er jo bare og ombryde skidtet og det op at køre :)

Den problemstilling nævnte jeg da vist også tidligere:

Response.Write rs2("varenr") & "<br>"

... og et svar :^)

jaja det gjorde du godt nok, meen det ved de fleste jo...