<% Option Explicit If not Session("isLoggedIn") Then response.redirect("/ecommerce/default.asp?returnUrl=" & Server.URLEncode(Request.ServerVariables("SCRIPT_NAME"))) End If %> <% Dim strSortCat, strSortOrder, strOldSortOrder Dim rsPort, arrDBData, strSQL Dim iRecFirst, iRecLast, iFieldFirst, iFieldLast Dim I, J strSortCat = "portDesc" strSortOrder = "" strOldSortOrder = "" If Request("sortOrder") <> "" Then strSortOrder = CStr(Request("sortOrder")) If strSortOrder = "" Then strSortOrder = "ASC" strSQL = "EXEC stpFullPortSelectAll" Set rsPort = Server.CreateObject("ADODB.Recordset") rsPort.CursorLocation = 3 rsPort.Open strSQL, dbconn, 3, 3 rsPort.Sort = strSortCat & " " & strSortOrder strOldSortOrder = strSortOrder If strSortOrder = "ASC" Then strSortOrder = "DESC" Else strSortOrder = "ASC" End If arrDBData = null If rsPort.EOF Then strErrMsg = "
  • no ports
  • " isErr = true Else arrDBData = rsPort.GetRows() iRecFirst = LBound(arrDBData, 2) iRecLast = UBound(arrDBData, 2) iFieldFirst = LBound(arrDBData, 1) iFieldLast = UBound(arrDBData, 1) End If ' not EOF rsPort.Close Set rsPort = Nothing %> Galuku Cocopeat

    Port List

    Sorted in <%= Lcase(strOldSortOrder) %>ending order

    <% If Session("intUserTypeID") = 1 Then %> <% End If %> <% If not isNull(arrDBData) Then For I = iRecFirst To iRecLast 'itemID, itemName, itemDesc, isActive, portDesc %> <% Else %><%= "listAltItem" %><% End If %>"> <% If Session("intUserTypeID") = 1 Then %> <% End If %> <% Next End If %>
    port
    <%= arrDBData(1,I) %>edit | <% If arrDBData(2,I) = true Then %>de<% End If %>activate

     

    ^ back to top