Searching...

Hello!

Would be nice if you could change the memberlist-dropdown to a regular input field. Since the community is growing it takes forever (not really but its annoying) to load the search page.

I think its pretty easy to write the author name in there.

But can We have filter to populate the Result.
I mean it should populate only those names who has poted in last six months.
with an link to have all member names.

If anyone knows of a mod, or wants to write the code, I will implement it. I am not much of an ASP developer. Below is the relevant code, I think:



" <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Search By Member:</font></b></td>" & vbNewLine
if strUseMemberDropDownBox = 0 then
Response.Write" <td bgColor=""" & strPopUpTableColor & """ align=""left"" valign=""middle""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input name=""SearchMember"" value="""" size=""25""></font></td>" & vbNewLine
else
Response.Write" <td bgColor=""" & strPopUpTableColor & """ align=""left"" valign=""middle"">" & vbNewLine & _
" <select name=""SearchMember"">" & vbNewLine & _
" <option value=""0"">All Members</option>" & vbNewLine
'## Forum_SQL
strSql = "SELECT MEMBER_ID, M_NAME "
strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS"
strSql = strSql & " WHERE M_STATUS = " & 1
strSql = strSql & " ORDER BY M_NAME ASC;"

set rs = Server.CreateObject("ADODB.Recordset")
rs.open strSql, my_Conn, adOpenForwardOnly, adLockReadOnly, adCmdText

if rs.EOF then
recMemberCount = ""
else
allMemberData = rs.GetRows(adGetRowsRest)
recMemberCount = UBound(allMemberData,2)
meMEMBER_ID = 0
meM_NAME = 1
end if

rs.close
set rs = nothing

if recMemberCount <> "" then
for iMember = 0 to recMemberCount
MembersMemberID = allMemberData(meMEMBER_ID, iMember)
MembersMemberName = allMemberData(meM_NAME, iMember)
Response.Write" <option value=""" & MembersMemberID & """>" & ChkString(MembersMemberName,"display") & "</option>" & vbNewline
next
end if
Response.Write" </select>" & vbNewLine & _
" </td>" & vbNewLine
end if
Response.Write" </tr>" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""center"" valign=""middle"" colspan=""2""><input type=""submit"" value=""Search""></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" </table>" & vbNewLine & _
" </td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" </table>" & vbNewLine & _
" </form>" & vbNewLine
end if
WriteFooter
Response.End

-----------------------------
Brad M. McGehee, MVP
Webmaster
SQL-Server-Performance.Com

You could replace that code with

" <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Search By Member:</font></b></td>" & vbNewLine
if strUseMemberDropDownBox = 0 then
Response.Write " <td bgColor=""" & strPopUpTableColor & """ align=""left"" valign=""middle"">" & vbNewLine & _
" <input type=""text"" name=""SearchMember"" size=""25"" value="""">" & vbNewLine & _



but Then you would probably also have to change the sql-statement that performs the search. This is since the defaultvalue today for "everyone" is "0", and we change that to "". The where-statement may also be "where username = 'INPUT'", which has to be changed to "where username like 'INPUT%'"