Expand|Select|Wrap|Line Numbers
- <HTML>
- <head>
- <title>Migration Admin Page</title>
- <META NAME="Generator" CONTENT="EditPlus">
- <META NAME="Author" CONTENT="NICHOLAS JONES">
- <link type="text/css" rel="stylesheet" href="StyleSheets/page_style1.css">
- <link type="text/css" rel="stylesheet" href="StyleSheets/Titan1.css">
- </head>
- <BODY>
- <%
- Dim strConnString
- Dim objConn
- Dim objRS
- Dim strSqlQuery
- Dim strSortField
- Dim strSortOrder
- Dim objField
- Dim blnColor
- strConnString = "DRIVER=XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX;" _
- & "Connect Timeout=15;"
- strSortField = Request.QueryString("field")
- Select Case LCase(strSortField)
- Case "name", "emailadd", "login", "deptname", "compname", "readymigrate", "comment", "datesubmitted"
- strSortField = strSortField
- Case Else
- strSortField = "record_id"
- End Select
- ' Check for descending o/w default to ascending
- Select Case LCase(Request.QueryString("order"))
- Case "desc"
- strSortOrder = "desc"
- Case Else
- strSortOrder = "asc"
- End Select
- strSqlQuery = "SELECT * FROM [sample] ORDER BY [" & strSortField & "] " & strSortOrder & ";"
- Set objConn = Server.CreateObject("ADODB.Connection")
- objConn.Open strConnString
- Set objRS = Server.CreateObject("ADODB.Recordset")
- objRS.Open "migrate", objConn
- Response.Write "<table border=""1"" cellspacing=""0"">" & vbCrLf
- ' Write titles and include links to sort the table by each field
- Response.Write vbTab & "<tr>" & vbCrLf
- For Each objField in objRS.Fields
- Response.Write vbTab & vbTab & "<td bgcolor=""#CCCCCC""><strong>" & objField.Name
- %><br>
- <%
- Response.Write "("
- Response.Write "<a href=""? & field=" & objField.Name & "&order=asc"">+</a>"
- Response.Write " / "
- Response.Write "<a href=""? & field=" & objField.Name & "&order=desc"">-</a>"
- Response.Write ")</strong></td>" & vbCrLf
- Response.Write "</td>" & vbCrLf
- Next 'objField
- Response.Write vbTab & "</tr>" & vbCrLf
- ' Display the data
- blnColor = False
- objRS.MoveFirst
- Do While Not objRS.EOF
- 'Response.Write objRS.Fields(0).Value & "<br />" & vbCrLf
- Response.Write vbTab & "<tr>" & vbCrLf
- For Each objField in objRS.Fields
- Response.Write vbTab & vbTab & "<td bgcolor="""
- ' Decide what color to output
- If blnColor Then
- Response.Write "#CCCCFF" ' Light blueish
- Else
- Response.Write "#FFFFFF" ' White
- End If
- Response.Write """>" & Trim(objField.Value) & "</td>" & vbCrLf
- Next 'objField
- Response.Write vbTab & "</tr>" & vbCrLf
- blnColor = Not blnColor
- objRS.MoveNext
- Loop
- Response.Write "</table>" & vbCrLf
- objRS.Close
- Set objRS = Nothing
- objConn.Close
- Set objConn = Nothing
- %>
- </BODY>
- </HTML>
The URL changes indicating it is either running in ascending order for the selected field or descending order but nothing happens.
Any help will be much appreciated. Thanks