Titta hit någon.

SQLsträngen är ju en helt vanlig textsträng, som sedan exekveras... så om du skriver ut variabeln som innehåller textsträngen så kommer lättare att se vad som är fel:

SQL = "SELECT * FROM Forum2 where fldSvara = '" & cStr(id) & "' AND fldForum='" & Request.QueryString("forum") & "'order by fldID DESC"
Response.write SQL
Set RS3 = connection.Execute(SQL)

Du kommer att få samma fel, men du kommer att se hela SQLsträngen i sin helhet efter det att alla variabler i den har "lagt sig till rätta"...

Kolla vad du ser och se om du kan lösa det, annars kopierar du in hela strängen du får ut, här.

Mvh, Vide

------------------
Kom hem till mig...

[Redigerat av Vide den 01 okt 2000]

Får nu upp,

SELECT * FROM Forum2 where fldSvara = 0 AND fldForum=2order by fldID DESC
ADODB.Recordset.1 error '80004005'

Syntaxfel (operator saknas) i frågeuttrycket 'fldSvara = 0 AND fldForum=2order by fldID DESC'.

/2/forum.asp, line 27

Ett mellanslag före "order" saknas.

------------------
Gunnar Liljas - webbutvecklare
Leon Reklambyrå AB

Så där ja, nu har jag kommit lite längre fram,
men får upp ännu ett fel,
Type mismatch: '[undefined]'

/2/forum.asp, line 37

på rad 37 ligger:
ID = RS2("fldID")

vad är det som är fel med detta.??

Ingen som vet vad det kan vara för fel.?

Hur ser koden ut nu?

Här kommer den:

<%
Dim connection
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open "DSN=xxx-forum;Password=xxx"

SQLStmt = "SELECT * FROM Forum where Id = " & Request.QueryString("Forum")
Set RS2 = Connection.Execute(SQLStmt)

forumID=RS2("ID")
forumnamn=RS2("fldNamn")
foruminfo=RS2("fldinfo")
%>

 <a href="nytt.asp?forum=<%=forumID%>&Svara=0">Nytt inlägg</a>

<%
call disp(0, 0)
%> 

<%
Sub disp(id,level)
If level = 0 then
SQL = "SELECT * FROM Forum2 where fldSvara = " & (id) & " AND fldForum=" & Request.QueryString("forum") & " order by fldID DESC"
Set RS3 = connection.Execute(SQL)
Else
SQL = "SELECT * FROM Forum2 where fldSvara = " & (id) & " AND fldForum=" & Request.QueryString("forum") & " order by fldID"
Set RS4 = connection.Execute(SQL)
End If
%>
<%
Do While Not RS3.EOF
%>
<%

ID = RS3("fldID")
Namn = RS3("fldNamn")
Email = RS3("fldEmail")
Forum = RS3("fldForum")
Titel = RS3("fldTitel")
Tid = RS3("fldTid")

If level > 0 then
str=""
for j=1 to level
str=str & "<img src=""blank.gif"" border=0>"
Next
End if

If level=0 then str="<img src=""1.gif"">"
If level > 0 then str=str & "<img src=""2.gif"">"
%><%=str%>
<a href="las_forum.asp?id=<%=ID%>&forum=<%=Forum%>"><%=Titel%></a> <%=av%>   <%=Namn%>   <%=Tid2%><br>
            <%
call disp(ID, level+1)
RS.MoveNext
Loop
End Sub

%>

[Redigerat av cgi den 02 okt 2000]

Ingen.???

Jo, jag vet. :)

------------------
/Magnus aka Zaphod
www.designmodule.com

Och vad är felet.?? :q