The Forum has been Updated
The code has been upgraded to the latest .NET core version. Please check instructions in the Community Announcements about migrating your account.
Using the admin_emaillist.asp I notice that the listing is centered around the user name and sorted by their MEMBER_ID. Initially I have changed the sort option from the Member_ID to sort the list by the Members Name alphabetically. (M_NAME) You will see the four options I have added, three which have been commented for reference.
admin_emaillist.asp lines 59-64
'## Forum_SQL - Find all records with the search criteria in them
strSql = "SELECT M_NAME, M_EMAIL, M_POSTS "
strSql2 = " FROM " & strMemberTablePrefix & "MEMBERS "
strSql3 = " WHERE M_STATUS = " & 1
strSql4 = " ORDER BY M_NAME ASC " '##sort by member name
'strSql4 = " ORDER BY MEMBER_ID ASC " '##sort by member id
'strSql4 = " ORDER BY M_POSTS ASC " '##sort by number of posts
'strSql4 = " ORDER BY M_EMAIL ASC " '##sort by email address
To make the admail_emaillist.asp more flexible to the user, I am looking to add a pull down option where we can select the sort choice based on a value from strSql4. I have grabbed this piece of code and adjusted the names in option colours. I wonder if someone could assist is showing us how to tie the option box so that we utilise the different strSql4's. I am stumped here how to tie the two together maybe an 'if' statement is required..
Secondly I will be looking to add this new option box on the same line as the NOTE: The following table will show you a list of all users of this forum, and their e-mail addresses.
Any further help will be appreciated.
" <select style=""width:140;"" name=""emailsort"">" & VBNewLine & _
" <option value=""0""" & checkSelect(stremailsort,"0") & ">" Sort by User name "</option>" & VBNewLine & _
" <option value=""1""" & checkSelect(stremailsort,"1") & ">" Sort by Member ID "</option>" & VBNewLine & _
" <option value=""2""" & checkSelect(stremailsort,"2") & ">" Sort by Posts "</option>" & VBNewLine & _
" <option value=""3""" & checkSelect(stremailsort,"3") & ">" Sort by Posts "</option>" & VBNewLine & _
" </select>" & VBNewLine & _
Thank you andy
<
admin_emaillist.asp lines 59-64
'## Forum_SQL - Find all records with the search criteria in them
strSql = "SELECT M_NAME, M_EMAIL, M_POSTS "
strSql2 = " FROM " & strMemberTablePrefix & "MEMBERS "
strSql3 = " WHERE M_STATUS = " & 1
strSql4 = " ORDER BY M_NAME ASC " '##sort by member name
'strSql4 = " ORDER BY MEMBER_ID ASC " '##sort by member id
'strSql4 = " ORDER BY M_POSTS ASC " '##sort by number of posts
'strSql4 = " ORDER BY M_EMAIL ASC " '##sort by email address
To make the admail_emaillist.asp more flexible to the user, I am looking to add a pull down option where we can select the sort choice based on a value from strSql4. I have grabbed this piece of code and adjusted the names in option colours. I wonder if someone could assist is showing us how to tie the option box so that we utilise the different strSql4's. I am stumped here how to tie the two together maybe an 'if' statement is required..
Secondly I will be looking to add this new option box on the same line as the NOTE: The following table will show you a list of all users of this forum, and their e-mail addresses.
Any further help will be appreciated.
" <select style=""width:140;"" name=""emailsort"">" & VBNewLine & _
" <option value=""0""" & checkSelect(stremailsort,"0") & ">" Sort by User name "</option>" & VBNewLine & _
" <option value=""1""" & checkSelect(stremailsort,"1") & ">" Sort by Member ID "</option>" & VBNewLine & _
" <option value=""2""" & checkSelect(stremailsort,"2") & ">" Sort by Posts "</option>" & VBNewLine & _
" <option value=""3""" & checkSelect(stremailsort,"3") & ">" Sort by Posts "</option>" & VBNewLine & _
" </select>" & VBNewLine & _
Thank you andy
<
Postet den
Let's start with the easy one. See this line?
I'm fairly sure you mean "Sort by Email Address ".
Back to the initial query. Using an if/then series; you could do something like this:
However, I believe that if you get this mod, it'll save you a lot of work: EMail Search <
Code:
" <option value=""3""" & checkSelect(stremailsort,"3") & ">" Sort by Posts "</option>" & VBNewLine & _I'm fairly sure you mean "Sort by Email Address ".
Back to the initial query. Using an if/then series; you could do something like this:
Code:
Option Explicit
strSort = Request.Form("emailsort")
if strSort > "" then
if strSort = "0" then strSql4 = " ORDER BY M_NAME ASC "
else if strSort = "1" then strSql4 = " ORDER BY MEMBER_ID ASC "
else if strSort = "2" then strSql4 = " ORDER BY M_POSTS ASC "
else strSql4 = " ORDER BY M_EMAIL ASC "
end if
strSql = "SELECT M_NAME, M_EMAIL, M_POSTS "
strSql2 = " FROM " & strMemberTablePrefix & "MEMBERS "
strSql3 = " WHERE M_STATUS = " & 1
All the stuff you want to do with the results in here...
else
" <select style=""width:140;"" name=""emailsort"">" & VBNewLine & _
" <option value=""0""" & checkSelect(stremailsort,"0") & ">" Sort by User Name "</option>" & VBNewLine & _
" <option value=""1""" & checkSelect(stremailsort,"1") & ">" Sort by Member ID "</option>" & VBNewLine & _
" <option value=""2""" & checkSelect(stremailsort,"2") & ">" Sort by Posts "</option>" & VBNewLine & _
" <option value=""3""" & checkSelect(stremailsort,"3") & ">" Sort by EMail "</option>" & VBNewLine & _
" </select>" & VBNewLine & _
end ifHowever, I believe that if you get this mod, it'll save you a lot of work: EMail Search <
Postet den
Carefree absolutely quick on the response and I thank you.. Yes the 'easy one' you were right in my intenstions, missed it on the cut and paste.. Just the hard bit now getting this routine incorporated in the page. Ideally I would like to add the option pull down into the page on the same line as the NOTE: The following table will show you a list of all users of this forum, and their e-mail addresses.
thank you so far
BTW here is my admin_emaillist.asp text link for reference
<
BTW here is my admin_emaillist.asp text link for reference
<
Postet den
Further to above, I have created a new cell where I would like the option box placed on image where the 'ss' is (top left corner)
The code around the table head is:
<
The code around the table head is:
Code:
" </tr>" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td width=""20%"" ><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>ss</td>" & vbNewLine & _
" <td align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>The following table shows a list of all users of this forum, and their e-mail addresses.</font></td>" & vbNewLine
if maxpages > 1 then
Response.Write " <td width=""15%"" align=""right"">" & vbNewLine & _
" <table border=""0"" align=""right"">" & vbNewLine & _
" <tr>" & vbNewLine
Call DropDownPaging(1)
Response.Write " </tr>" & vbNewLine & _
" </table>" & vbNewLine & _
" </td>" & vbNewLine
end if
Postet den
Here you go - I have everything done except the selection isn't being sent to the form for action.
EMail List<
EMail List<
Postet den
So far we are getting a little further, thank you carefree..
The page link you provided has a few table formating differences, which I have revamped to the latest. As carefree has said we have a pull down option box but it is not functioning to do the sort. Can anyone assist in our pursuit..
This is what we have:
And the admin_emaillist.asp latest code is here
The lines associated with the changes so far:
59-81 sql
153-159 Option Box
Thank you andy
<
And the admin_emaillist.asp latest code is here
The lines associated with the changes so far:
59-81 sql
153-159 Option Box
Thank you andy
<