I have created an ASP project that I want to be able to sort the 7 column fields by clicking on the name of each field name.
For example, the name of the fields are "Ad Number", "Date", "Account Name/Number", "Completed", "Digital Component", "Priority" and "Start/End Date." Say I want to order by Date, I would click on Date (which would be a hyperlink) and it would sort by date. Same situation for all the other fields.
How can I do this? I have included the code of the ASP page as a text document. Thanks.
kfranck
This Question has been solved and asker verified All Experts Exchange premium technology solutions are available to subscription members.
Experts Exchange has been collecting answers to technology questions since 1996…3 million and counting! If you have a question, chances are we already have your answer.
If you can't find the exact answer you're looking for, ask our exclusive community of 50,000 experts. You’ll get a personalized answer from a trusted professional.
Thousands of free tech tips, tricks, how-to’s and tutorials are available in our peer reviewed articles section. See for yourself how smart our experts are, no login required.
Save solutions to your questions, answers you’ve discovered through searching plus helpful articles in your personal knowledgebase for easy future access.
Access the answers to your technology questions today.
30-day free trial. Register in 60 seconds.
Members of the expert community talk about why the experience at Experts Exchange is different than what you will find anywhere else.
Try it out and discover for yourself.
30-day free trial. Register in 60 seconds.
Join the community of experts here and help other tech pros by answering question in your area of expertise. You can earn FREE access to all Experts Exchange's premium features and resources.
I kind of understand. But I need your help in getting it going, if you will, please.
Say we use Ad Number, which is "AdNumber" in the table. The table is called "projects". Would that part of the code be:
if sort_order = "adn" then
select * from projects order_by AdNumber"
else if sort_order = ... (what here)
End If
Also I need help on the querysting with URL.
Thanks.
Hi ,
1>>if the name of the ASP page is "queue.asp",??
<a href=""></a>
Here Watever you give it will be redirected to the respective page . Make Sure That Link Exists in your folder .
2>>For your Info
<%%>-->This is Server Tag and so it should contain only server side code as here we use Vbscript .
<% - This is Start Of Server Tag
Server side Code Will be Executed
%> --End Of Tag
I had framed my previous code to below ....
Thanks for all your help. We are getting really close to nailing this down.
I did get this error:
Microsoft OLE DB Provider for ODBC Drivers error '80040e14'
[Microsoft][ODBC Microsoft Access Driver] Syntax error in FROM clause.
/digital/queue.asp, line 103
Line 103 is:
rsprojects.Open strSQL, adoCon
Suggestions?
Give a Space while assigning condition may be this throwing u an error .....
order_condn = "(space)order by adn desc"
order_condn = "(space)order by com desc"
order_condn = "(space)order by pri desc"
if it Still continue..
Just print ur query n run it in db ..n check whether u r getting syntax error of ur query
mayankagarwal:
Here is the code,
<%
'Dimension variables
Dim adoCon 'Holds the Database Connection Object
Dim rsMasterRolodex 'Holds the recordset for the records in the database
Dim strSQL 'Holds the SQL query for the database
'Create an ADO connection odject
Set adoCon = Server.CreateObject("ADODB
'Set an active connection to the Connection object using a DSN-less connection
adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("digitalmed
'Create an ADO recordset object
Set rsprojects = Server.CreateObject("ADODB
'Initialise the strSQL variable with an SQL statement to query the database
%> <!-- Server Tag Ends So now onwards Below Text is a HTML-->
<a href="queue.asp?sort_order
<a href="queue.asp?sort_order
<a href="queue.asp?sort_order
<% ' Again Server Tag started
'Get The Query String Value
sort_order=""
sort_order = Request.QueryString("sort_
sort_order = Replace(sort_order,"'","")
order_condn =""
If sort_order = "adn" Then
'-------------------- Space
' |
order_condn = " order by adn desc" ' Dis Sort Descending order If U want Ascending Just Leave it to order by adn
elseif sort_order="com" then
order_condn = " order by com desc"
elseif sort_order="pri" then
order_condn = " order by pri desc"
End if
If isnull(sort_order) or sort_order = "" then
strSQL = "SELECT projects.* FROM projects ORDER BY Completed;" ' This just Loads By Completed ORder in ut queue.asp page
else
strSQL = "Select * from [projects]"& order_condn ' This Make sure to order accordingly to the click of the href .
End if
'Try to print your Sql Statement and check in database
'REsponse.write(strSQL)
'Response.end()
rsprojects.Open strSQL, adoCon ' While Printing Hidden this line
Dim counter
counter=0
'Loop through the recordset
Do While not rsprojects.EOF
counter=counter+1
'Write the HTML to display the current record in the recordset
IF 0=(counter Mod 2) Then
Response.Write "<tr class='even'><td><a href=""Results.asp?ID=" & rsprojects("ID") & """>" & rsprojects.Fields("AdNumbe
Else
Response.Write "<tr class='odd'><td><a href=""Results.asp?ID=" & rsprojects("ID") & """>" & rsprojects.Fields("AdNumbe
End If
Response.Write "<td>" & rsprojects.Fields("Date") & "</td>"
Response.Write "<td style='font-size:9pt;font-
Response.Write "<td>" & rsprojects.Fields("Complet
Response.Write "<td>" & rsprojects.Fields("Digital
Response.Write "<td style='font-size:9pt;font-
Response.Write "<td style='font-size:9pt;font-
Response.Write "</tr>"
'Move to the next record in the recordset
rsprojects.MoveNext
Loop
%>
Do this, please. Go to this URL:
http://toledobladedata.com
If you click on Date | Completed | Priority, you get the error.
If you click on hypertext under the Ad Number column, the connection works fine and it takes you to the next page.
I made those changes, and you can see a response in the code when you click on Date, Completed or Priority. But the data is now missing.
See for yourselves at http://toledobladedata.com
I am including the code below.
Uncomment till this Part only ..
Response.write(strSQL)
Response.end()
Comment The Entire Below Region and now execute the Page . So that it avoid database activity ....
'rsprojects.Open strSQL, adoCon
'Dim counter
'counter=0
'Loop through the recordset
' Do While not rsprojects.EOF
' counter=counter+1
'Write the HTML to display the current record in the recordset
' IF 0=(counter Mod 2) Then
.....
......
...
'Move to the next record in the recordset
' rsprojects.MoveNext
' Loop
There are 22 fields in the "projects" table. All are text data type. Even though there are numbers in some of the fields, such as CPM, I use code to show that we are talking dollars and sense.
When I uncommented response.line, I get the same error. Plus plus there is this code on the Date | Completed | Priority line Date | Completed | Priority SELECT projects.* FROM projects ORDER BY Completed;
Go to http://toledobladedata.com
kfranck
Meeran03:
I commented the entire bottom section that your suggested. No data shows.
When I click on Date, I get this:
Date | Completed | Priority Select * from projects order by adn desc
When I click on Completed, I get this:
Date | Completed | Priority Select * from projects order by com desc
When I click on Priority, I get this:
Date | Completed | Priority Select * from projects order by pri desc
The names of the fields for Date, Completed and Priority are Date, Completed and Priority.
So, should it be:
If sort_order = "adn" Then
'-------------------- Space
' |
order_condn = " order by Date desc" ' Dis Sort Descending order If U want Ascending Just Leave it to order by adn
elseif sort_order="com" then
order_condn = " order by Completed desc"
elseif sort_order="pri" then
order_condn = " order by Priority desc"
End if
Now comment The Response.end statement and uncomment the entire below region after that .
'Response.end
UNCOMMENT The Entire Below Region and now execute the Page .
rsprojects.Open strSQL, adoCon
Dim counter
'counter=0
Loop through the recordset
Do While not rsprojects.EOF
counter=counter+1
Write the HTML to display the current record in the recordset
IF 0=(counter Mod 2) Then
.....
......
...
Move to the next record in the recordset
rsprojects.MoveNext
Loop
Folks:
We have a partial victory and I thank you!
Go to http://toledobladedata.com
Can we hide the "SELECT projects.* FROM projects ORDER BY" code?
kfranck
Business Accounts
Answer for Membership
by: mayankagarwalPosted on 2009-11-08 at 09:01:56ID: 25770994
To do this, you have to make the column headin hyperlink.
On clicking the hyperlink you have to agian call the same page with the sorted data.
Suppose the user click on "Ad Number", then while calling the asp page again have a querystring with url which have a variable say sort_order = adn
in the starting of the code define a variable sort_order
then have a if else loop like
if sort_order = "adn" then
select * from table_name order_by ad_number"
else if sort_order = ...
.....
....
....
end if
end if
..
...
...
...
...