| Author |
 Topic  |
|
|
blackinwhite
Average Member
Turkey
657 Posts |
 Posted - 10 November 2001 : 15:36:30
|
what is wrong with this code.
Normally it must seacrh through the blogs under the topics. But when I run search, it gives me all the same things.
It is:
SELECT fldMessageID, fldPersonID, fldTopicID, fldMessageCreated, fldMessageTitle, fldMessageHeader, fldMessageText FROM tblMessages WHERE fldMessageText <> ''
fldMessageText <> ''
Radiohead ve "copycat"lar (<--they rae all the same message and message id=1
Radiohead ve "copycat"lar
Radiohead ve "copycat"lar
Radiohead ve "copycat"lar
Radiohead ve "copycat"lar
Radiohead ve "copycat"lar
Radiohead ve "copycat"lar
Radiohead ve "copycat"lar
Radiohead ve "copycat"lar
Radiohead ve "copycat"lar
Radiohead ve "copycat"lar
Radiohead ve "copycat"lar
Radiohead ve "copycat"lar
Radiohead ve "copycat"lar
Radiohead ve "copycat"lar
Radiohead ve "copycat"lar
Radiohead ve "copycat"lar
Radiohead ve "copycat"lar
Radiohead ve "copycat"lar
Radiohead ve "copycat"lar
and th,is is the code:
<!-- #INCLUDE FILE="inc_asp.asp" -->
<!-- #INCLUDE FILE="func_sql.asp" -->
<%
' Declare SQL Strings
Dim strSQLSearch
Dim strSQLTopics
' /Declare SQL Strings
' Declare Recordset Objects
Dim objRSSearch
Set objRSSearch = Server.CreateObject("ADODB.Recordset")
Dim objRSTopics
Set objRSTopics = Server.CreateObject("ADODB.Recordset")
' /Declare Recordset Objects
' Declare Strings
Dim fSearchText
Dim fSearchAndOr
Dim strSearchText
Dim strSearchAndOr
Dim strSearchWords
Dim qType
Dim qPersonID
Dim qTopicID
Dim strMessageID
Dim strMessageTitle
Dim strCommentID
Dim strCommentTitle
' /Declare Strings
' Declare Integers
Dim iSearchWordsCount
Dim iLooping
Dim iPageSize
Dim iPageCurrent
Dim iRecordsShown
' /Declare Integers
iPageSize = 20
iPageCurrent = 1
' Collect Data
qType = LCase((Trim(Request.QueryString("type"))))
If qType = "" Then
qType = ((Trim(Request.Form("type"))))
End If
If qType = "" Then
qType = "messages"
End If
fSearchText = ((Trim(Request.Form("text"))))
strSearchText = SQLText(fSearchText)
qPersonID = ((Trim(Request.QueryString("person"))))
If qPersonID = "" Then
qPersonID = ((Trim(Request.Form("person"))))
End If
qTopicID = ((Trim(Request.QueryString("topic"))))
If qTopicID = "" Then
qTopicID = ((Trim(Request.Form("topic"))))
End If
fSearchAndOr = ((Trim(Request.Form("andor"))))
If fSearchAndOr = "on" Then
strSearchAndOr = "AND"
Else
strSearchAndOr = "OR"
End If
' /Collect Data
objRSSearch.PageSize = iPageSize
objRSSearch.CacheSize = iPageSize
' Declare The Title
strTitle = "Search"
' /Declare The Title
strSearchWords = Split(strSearchText," ")
iSearchWordsCount = Ubound(strSearchWords)
strSQLTopics = strSQLTopics & "SELECT * "
strSQLTopics = strSQLTopics & "FROM tblTopics "
strSQLTopics = strSQLTopics & "ORDER BY fldTopicName DESC "
Set objRSTopics = objConn.Execute(strSQLTopics)
' Search HTML
strText = strText & "<span class=baslik>Arama</span>"
strText = strText & "<form action=""search.asp"" method=""post"">"
strText = strText & "<p>Kriterler: Messages <input name=""type"" type=""radio"" value=""messages"" checked /> " & strConfigTitleDivider & " Comments <input name=""type"" type=""radio"" value=""comments"" />"
strText = strText & "<p>Search For: <input name=""text"" type=""text"" size=""20"" maxlength=""50"" "
If strSearchText <> "" Then
strText = strText & "value=""" & FormText(strSearchText) & """ "
End If
strText = strText & "/>"
strText = strText & " " & strConfigTitleDivider & " Topic: <select name=""topic""><option value="""">All Topics</option>"
Do While Not objRSTopics.EOF
strText = strText & "<option value=""" & objRSTopics.Fields("fldTopicID") & """>" & objRSTopics.Fields("fldTopicName") & "</option>"
objRSTopics.MoveNext
Loop
strText = strText & "</select>"
strText = strText & " " & strConfigTitleDivider & " Person ID (<a href=""people.asp"">find a person</a>): <input name=""person"" type=""text"" size=""10"" maxlength=""50"" "
If qPersonID <> "" Then
strText = strText & "value=""" & qPersonID & """ "
End If
strText = strText & "/></p>"
strText = strText & "<p><input name=""submit"" type=""submit"" value=""Submit"" /></p>"
strText = strText & "</form>"
' Search HTML
Select Case qType
Case "messages":
strSQLSearch = strSQLSearch & "SELECT fldMessageID, fldPersonID, fldTopicID, fldMessageCreated, fldMessageTitle, fldMessageHeader, fldMessageText "
strSQLSearch = strSQLSearch & "FROM tblMessages "
strSQLSearch = strSQLSearch & "WHERE "
If strSearchText <> "" Then
For iLooping = 0 to iSearchWordsCount
strSQLSearch = strSQLSearch & "fldMessageTitle LIKE '%" & strSearchWords(iLooping) & "%' OR fldMessageHeader LIKE '%" & strSearchWords(iLooping) & "%' OR fldMessageText LIKE '%" & strSearchWords(iLooping) & "%' "
If iLooping = iSearchWordsCount Then
strSQLSearch= strSQLSearch & ""
Else
strSQLSearch = strSQLSearch & strSearchAndOr & " "
End If
Next
Else
strSQLSearch = strSQLSearch & "fldMessageText <> '' "
End If
If qTopicID <> "" Then
strSQLSearch = strSQLSearch & "AND "
strSQLSearch = strSQLSearch & "fldTopicID = " & qTopicID & " "
End If
If qPersonID <> "" Then
strSQLSearch = strSQLSearch & "AND "
strSQLSearch = strSQLSearch & "fldPersonID = " & qPersonID & ""
End If
strText = strText & strSQLSearch
objRSSearch.Open strSQLSearch, objConn, adOpenStatic
iRecordsShown = 0
Do While iRecordsShown < iPageSize And Not objRSSearch.EOF
objRSSearch.AbsolutePage = iPageCurrent
strMessageID = objRSSearch.Fields("fldMessageID")
strMessageTitle = objRSSearch.Fields("fldMessageTitle")
' Search HTML
strText = strText & "<p><a href=""messages.asp?message=" & objRSSearch.Fields("fldMessageID") & """>" & objRSSearch.Fields("fldMessageTitle") & "</p>"
' Search HTML
iRecordsShown = iRecordsShown + 1
objRSSearch.MoveNext
Loop
Case "comments":
strSQLSearch = strSQLSearch & "SELECT fldCommentID, fldPersonID, fldMessageID, fldCommentParentID, fldCommentCreated, fldCommentTitle, fldCommentText "
strSQLSearch = strSQLSearch & "FROM tblComments "
strSQLSearch = strSQLSearch & "WHERE "
If strSearchText <> "" Then
For iLooping = 0 to iSearchWordsCount
strSQLSearch= strSQLSearch & "fldCommentTitle, fldCommentText LIKE '%" & strSearchWords(iLooping) & "%' "
If iLooping = iSearchWordsCount Then
strSQLSearch= strSQLSearch & ""
Else
strSQLSearch= strSQLSearch & strSearchAndOr & " "
End If
Next
Else
strSQLSearch = strSQLSearch & "fldCommentText <> '' "
End If
If qPersonID <> "" Then
strSQLSearch = strSQLSearch & "AND "
strSQLSearch = strSQLSearch & "fldPersonID = " & qPersonID & ""
End If
objRSSearch.Open strSQLSearch, objConn, adOpenStatic
iRecordsShown = 0
Do While iRecordsShown < iPageSize And Not objRSSearch.EOF
objRSSearch.AbsolutePage = iPageCurrent
strCommentID = objRSSearch.Fields("fldCommentID")
strMessageID = objRSSearch.Fields("fldMessageID")
strCommentTitle = objRSSearch.Fields("fldCommentTitle")
' Search HTML
strText = strText & "<p><a href=""messages.asp?message=" & strMessageID & "#" & strCommentID & """>" & strCommentTitle & "</p>"
' Search HTML
iRecordsShown = iRecordsShown + 1
objRSSearch.MoveNext
Loop
End Select
%>
<!-- #INCLUDE FILE="inc_html.asp" -->
____
"I am a legal alien"
Edited by - blackinwhite on 10 November 2001 15:41:13 |
|
|
blackinwhite
Average Member
Turkey
657 Posts |
Posted - 11 November 2001 : 04:25:03
|
here is what it must be: (shane solved it)
<%
' Declare SQL Strings
Dim strSQLSearch
Dim strSQLTopics
' /Declare SQL Strings
' Declare Recordset Objects
Dim objRSSearch
Set objRSSearch = Server.CreateObject("ADODB.Recordset")
Dim objRSTopics
Set objRSTopics = Server.CreateObject("ADODB.Recordset")
' /Declare Recordset Objects
' Declare Strings
Dim fSearchText
Dim fSearchAndOr
Dim strSearchText
Dim strSearchAndOr
Dim strSearchWords
Dim qType
Dim qPersonID
Dim qTopicID
Dim strMessageID
Dim strMessageTitle
Dim strCommentID
Dim strCommentTitle
' /Declare Strings
' Declare Integers
Dim iSearchWordsCount
Dim iLooping
Dim iPageSize
Dim iPageCurrent
Dim iRecordsShown
Dim lngRecCnt
Dim lngPageCnt
' /Declare Integers
iPageSize = 20
iPageCurrent = 1
' Collect Data
qType = LCase((Trim(Request.QueryString("type"))))
If qType = "" Then
qType = ((Trim(Request.Form("type"))))
End If
If qType = "" Then
qType = "messages"
End If
fSearchText = ((Trim(Request.Form("text"))))
strSearchText = SQLText(fSearchText)
qPersonID = ((Trim(Request.QueryString("person"))))
If qPersonID = "" Then
qPersonID = ((Trim(Request.Form("person"))))
End If
qTopicID = ((Trim(Request.QueryString("topic"))))
If qTopicID = "" Then
qTopicID = ((Trim(Request.Form("topic"))))
End If
fSearchAndOr = ((Trim(Request.Form("andor"))))
If fSearchAndOr = "on" Then
strSearchAndOr = "AND"
Else
strSearchAndOr = "OR"
End If
' /Collect Data
objRSSearch.PageSize = iPageSize
objRSSearch.CacheSize = iPageSize
' Declare The Title
strTitle = "Search"
' /Declare The Title
strSearchWords = Split(strSearchText," ")
iSearchWordsCount = Ubound(strSearchWords)
strSQLTopics = strSQLTopics & "SELECT * "
strSQLTopics = strSQLTopics & "FROM tblTopics "
strSQLTopics = strSQLTopics & "ORDER BY fldTopicName DESC "
Set objRSTopics = objConn.Execute(strSQLTopics)
' Search HTML
strText = strText & "<span class=baslik>Arama</span>"
strText = strText & "<form action=""search.asp"" method=""post"">"
strText = strText & "<p>Kriterler: Messages <input name=""type"" type=""radio"" value=""messages"" checked /> " & strConfigTitleDivider & " Comments <input name=""type"" type=""radio"" value=""comments"" />"
strText = strText & "<p>Search For: <input name=""text"" type=""text"" size=""20"" maxlength=""50"" "
If strSearchText <> "" Then
strText = strText & "value=""" & FormText(strSearchText) & """ "
End If
strText = strText & "/>"
strText = strText & " " & strConfigTitleDivider & " Topic: <select name=""topic""><option value="""">All Topics</option>"
Do While Not objRSTopics.EOF
strText = strText & "<option value=""" & objRSTopics.Fields("fldTopicID") & """>" & objRSTopics.Fields("fldTopicName") & "</option>"
objRSTopics.MoveNext
Loop
strText = strText & "</select>"
strText = strText & " " & strConfigTitleDivider & " Person ID (<a href=""people.asp"">find a person</a>): <input name=""person"" type=""text"" size=""10"" maxlength=""50"" "
If qPersonID <> "" Then
strText = strText & "value=""" & qPersonID & """ "
End If
strText = strText & "/></p>"
strText = strText & "<p><input name=""submit"" type=""submit"" value=""Submit"" /></p>"
strText = strText & "</form>"
' Search HTML
Select Case qType
Case "messages":
strSQLSearch = strSQLSearch & "SELECT fldMessageID, fldPersonID, fldTopicID, fldMessageCreated, fldMessageTitle, fldMessageHeader, fldMessageText "
strSQLSearch = strSQLSearch & "FROM tblMessages "
strSQLSearch = strSQLSearch & "WHERE "
If strSearchText <> "" Then
For iLooping = 0 to iSearchWordsCount
strSQLSearch = strSQLSearch & "fldMessageTitle LIKE '%" & strSearchWords(iLooping) & "%' OR fldMessageHeader LIKE '%" & strSearchWords(iLooping) & "%' OR fldMessageText LIKE '%" & strSearchWords(iLooping) & "%' "
If iLooping = iSearchWordsCount Then
strSQLSearch= strSQLSearch & ""
Else
strSQLSearch = strSQLSearch & strSearchAndOr & " "
End If
Next
Else
strSQLSearch = strSQLSearch & "fldMessageText <> '' "
End If
If qTopicID <> "" Then
strSQLSearch = strSQLSearch & "AND "
strSQLSearch = strSQLSearch & "fldTopicID = " & qTopicID & " "
End If
If qPersonID <> "" Then
strSQLSearch = strSQLSearch & "AND "
strSQLSearch = strSQLSearch & "fldPersonID = " & qPersonID & ""
End If
' strText = strText & strSQLSearch
objRSSearch.Open strSQLSearch, objConn, adOpenStatic
'sonradan ekledim
If Not objRSSearch.EOF Then
iRecordsShown = 0
'Get the record count
lngRecCnt = objRSSearch.RecordCount
'Set the rs page size (the default is 10)
objRSSearch.PageSize = iPageSize
'Get the page count
lngPageCnt = objRSSearch.PageCount
'Check that current page value is within range
If CLng(iPageCurrent) < 1 Then
iPageCurrent = 1
End If
If CLng(iPageCurrent) > CLng(lngPageCnt) Then
iPageCurrent = lngPageCnt
End If
'Set the rs page (moving the cursor to first rec of the page)
objRSSearch.AbsolutePage = iPageCurrent
Do While iRecordsShown < iPageSize And Not objRSSearch.EOF
strMessageID = objRSSearch.Fields("fldMessageID")
strMessageTitle = objRSSearch.Fields("fldMessageTitle")
' Search HTML
strText = strText & "<p><a href=""messages.asp?message=" & _
objRSSearch.Fields("fldMessageID") & """>" & _
objRSSearch.Fields("fldMessageTitle") & "</p>"
' Search HTML
iRecordsShown = iRecordsShown + 1
objRSSearch.MoveNext
Loop
Else
'No records found, so let the user know
Response.Write "<p>Sorry, no matches found.</p>"
End If
'/sonradan
' iRecordsShown = 0
' Do While iRecordsShown < iPageSize And Not objRSSearch.EOF
' strMessageID = objRSSearch.Fields("fldMessageID")
' strMessageTitle = objRSSearch.Fields("fldMessageTitle")
' Search HTML
' strText = strText & "<p><a href=""messages.asp?message=" & objRSSearch.Fields("fldMessageID") & """>" & objRSSearch.Fields("fldMessageTitle") & "</p>"
' Search HTML
' iRecordsShown = iRecordsShown + 1
' objRSSearch.MoveNext
' Loop
Case "comments":
strSQLSearch = strSQLSearch & "SELECT fldCommentID, fldPersonID, fldMessageID, fldCommentParentID, fldCommentCreated, fldCommentTitle, fldCommentText "
strSQLSearch = strSQLSearch & "FROM tblComments "
strSQLSearch = strSQLSearch & "WHERE "
If strSearchText <> "" Then
For iLooping = 0 to iSearchWordsCount
strSQLSearch= strSQLSearch & "fldCommentTitle LIKE '%" & strSearchWords(iLooping) & "%' OR " & _
"fldCommentText LIKE '%" & strSearchWords(iLooping) & "%' "
If iLooping = iSearchWordsCount Then
strSQLSearch= strSQLSearch & ""
Else
strSQLSearch= strSQLSearch & strSearchAndOr & " "
End If
Next
Else
strSQLSearch = strSQLSearch & "fldCommentText <> '' "
End If
If qPersonID <> "" Then
strSQLSearch = strSQLSearch & "AND "
strSQLSearch = strSQLSearch & "fldPersonID = " & qPersonID & ""
End If
'Response.Write "SQL (comment search): " & strSQLSearch
'Response.End
objRSSearch.Open strSQLSearch, objConn, adOpenStatic
If Not objRSSearch.EOF Then
iRecordsShown = 0
'Get the record count
lngRecCnt = objRSSearch.RecordCount
'Set the rs page size (the default is 10)
objRSSearch.PageSize = iPageSize
'Get the page count
lngPageCnt = objRSSearch.PageCount
'Check that current page value is within range
If CLng(iPageCurrent) < 1 Then
iPageCurrent = 1
End If
If CLng(iPageCurrent) > CLng(lngPageCnt) Then
iPageCurrent = lngPageCnt
End If
'Set the rs page (moving the cursor to first rec of the page)
objRSSearch.AbsolutePage = iPageCurrent
Do While iRecordsShown < iPageSize And Not objRSSearch.EOF
strCommentID = objRSSearch.Fields("fldCommentID")
strMessageID = objRSSearch.Fields("fldMessageID")
strCommentTitle = objRSSearch.Fields("fldCommentTitle")
' Search HTML
strText = strText & "<p><a href=""messages.asp?message=" & strMessageID & _
"#" & strCommentID & """>" & strCommentTitle & "</p>"
' Search HTML
iRecordsShown = iRecordsShown + 1
objRSSearch.MoveNext
Loop
Else
'No records found, so let the user know
Response.Write "<p>Sorry, no matches found.</p>"
End If
End Select
%>
____
"I am a legal alien" |
 |
|
| |
Topic |
|
|
|
Topic Locked
