Pace Medlem sedan juni 2001 9 024 inlägg Trådstart 8 aug. 2001 15:14 #1 Sökfunktion till forum.
Fel:
Item cannot be found in the collection corresponding to the requested name or ordinal.
SELECT Forum.*, Reply.*, Topics.* FROM (Forum LEFT JOIN Topics ON Forum.Forum_ID = Topics.Forum_id) LEFT JOIN Reply ON Topics.Topic_ID = Reply.Topic_ID WHERE (Forum.F_Description LIKE '%hej%' OR Reply.R_Message Like '%hej%' OR Topics.T_Message LIKE '%hej%' ) ORDER BY topics.topic_id
Felet uppstår när jag försöker hämta följande rs: rs("topic_id")
L LarsG Medlem sedan dec. 2000 12 464 inlägg Det verkar ju skumt. Du får nog visa mer kod, du kanske blandar ihop recordseten?
Pace Medlem sedan juni 2001 9 024 inlägg Okej, skickar med hela faderullan
keywords = Split(dbSecure(Request.Form("search")), " ")
keycnt = Ubound(keywords)
SQL ="SELECT Forum.*, Reply.*, Topics.* FROM (Forum LEFT JOIN Topics "
SQL = SQL & "ON Forum.Forum_ID = Topics.Forum_id) LEFT JOIN Reply ON Topics.Topic_ID = Reply.Topic_ID "
SQL = SQL & "WHERE "
if Request.Form("forum") <> 0 then
SQL = SQL & "Forum.Forum_ID = " & Request.Form("forum") & " AND "
End If
SQL = SQL & "("
if Request.Form("searchdate") <> 0 then
dt = cint(Request.Form("searchdate"))
SQL = SQL & "T_date > #" & dateadd("d", -dt, now) & "#) AND ("
End if
cnt = 0
For Each word In keywords
SQL = SQL & "Forum.F_Description LIKE '%" & word & "%' OR Reply.R_Message LIKE '%" & _
word & "%' OR Topics.T_Message LIKE '%" & _
word & "%' "
If cnt < keycnt Then SQL = SQL & Request.Form("andor")
cnt = cnt + 1
Next
SQL = SQL & ") ORDER BY topics.topic_id"
mypage = Request("whichpage")
If mypage = "" then mypage = 1
'************************************************
' SQL:en genererar fel ibland om man söker på vissa ord!!
response.write "<FONT FACE=""courier new"" SIZE=2>" & SQL & "<P>"
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open ConnString
Set rs = Connection.Execute(SQL)
If rs.Eof or rs.Bof then
Response.Write "<FONT FACE=""" & DefaultFontFace & """ SIZE=2>" & _
"<DIV ALIGN=""center"">Inga träffar hittades.</CENTER></FONT>"
Else
Response.Write "<FONT FACE=""" & DefaultFontFace & """ SIZE=2>" & _
"Visar sökresultat.</FONT>"
%>
rec_id = ""
Do until rs.Eof
[red]If rec_id <> rs("topic_id") Then
Response.Write "<TD BGCOLOR='...
"<font color='" & ForumLinkColor...
"<td bgcolor='" & ...
"<td bgcolor='" & ForumCellColor & "' align=...
"</tr>"
End if
rec_id = rs("topic_id")
rs.MoveNext
Loop
' Rensa upp
rs.Close
Connection.Close
Set rs = nothing
Set Connection = nothing
[r] Den röda är felraden.
L LarsG Medlem sedan dec. 2000 12 464 inlägg Jag förstår inte riktigt. Det borde till och med finnas två förekomster av den kolumnen i recordsetet (borde inte ha någon betydelse).
Om du skriver
select * from ...
i stället? Blir det bättre?
Du kan ju också testa med att namnge fälten
select topic.topic_id as topic_id,
forum.description as ...
Tyvärr, så har jag ingen förklaring om vad som är problemet.
Pace Medlem sedan juni 2001 9 024 inlägg He, inget av det funkade... har aldrig varit med om något sånt här innan, kanske är det databasen som spökar?
