Request.QueryString problems

gmoney060 · July 22nd, 2004, 10:26 PM

Hello, I need some more help! :D I am wanting the user to be able to "resort" the way the recordsets are displayed. So i have a table, and it lists all the recordsets (10 per page), and you can click the columne name and it will resort everything by that columne name. This is parts of my code:

Connection Part:

Code:

<%
    'Declares Variables
    Dim dbName
    Dim ObjConn
    Dim Admin
    Dim PageItems
    Dim nPageCount
    Dim nPage
        nPage = CLng(Request.QueryString("Page"))

    'Sets Up Database Connection
    dbName = "/fpdb/topsites.mdb"
    ObjConn= "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & Server.MapPath(dbName)

    'Connects to Database
    Set Admin = Server.CreateObject("ADODB.RecordSet")
    Admin.Open "SELECT * FROM Users order BY '" & Request.QueryString("Sort") & "'",ObjConn,3,3
    PageItems = Admin.PageSize
    nPageCount = Admin.PageCount
    If nPage < 1 Or nPage > nPageCount Then
        nPage = 1
    End If    
%>

** So for example if type the address, such as www.server.com/test.asp?Sort=Site_Name

It will not sort it by the site name..... any reason Y?

om_prakash · July 23rd, 2004, 04:43 AM

I think the query should be as follows:

Admin.Open "SELECT * FROM Users order BY " & Request.QueryString("Sort") & "",ObjConn,3,3

But this will give error, if nothing is passed in Request.QueryString("Sort")

Om Prakash

rajanikrishna · July 23rd, 2004, 06:48 AM

Yes,

But you can issue that select statement in if condition to avoid errors.

If request.querystring("sort")<>"" then
admin.open "select * from users order by " & request.querystring("sort"),objconn
end if

gmoney060 · July 23rd, 2004, 10:34 AM

That worked! Thanks a lot!