<% 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 rsCountry, arrDBData, strSQL Dim iRecFirst, iRecLast, iFieldFirst, iFieldLast Dim I, J strSortCat = "countryDesc" strSortOrder = "" strOldSortOrder = "" If Request("sortOrder") <> "" Then strSortOrder = CStr(Request("sortOrder")) If strSortOrder = "" Then strSortOrder = "ASC" strSQL = "EXEC stpCountrySelectAll" Set rsCountry = Server.CreateObject("ADODB.Recordset") rsCountry.CursorLocation = 3 rsCountry.Open strSQL, dbconn, 3, 3 rsCountry.Sort = strSortCat & " " & strSortOrder strOldSortOrder = strSortOrder If strSortOrder = "ASC" Then strSortOrder = "DESC" Else strSortOrder = "ASC" End If arrDBData = null If rsCountry.EOF Then strErrMsg = "
  • no countrys
  • " isErr = true Else arrDBData = rsCountry.GetRows() iRecFirst = LBound(arrDBData, 2) iRecLast = UBound(arrDBData, 2) iFieldFirst = LBound(arrDBData, 1) iFieldLast = UBound(arrDBData, 1) End If ' not EOF rsCountry.Close Set rsCountry = Nothing %> Galuku Cocopeat

    Country 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, countryDesc %> <% Else %><%= "listAltItem" %><% End If %>"> <% If Session("intUserTypeID") = 1 Then %> <% End If %> <% Next End If %>
    country
    <%= arrDBData(1,I) %>edit | <% If arrDBData(2,I) = true Then %>de<% End If %>activate | <% If arrDBData(3,I) = true Then %>exclude from<% Else %>include in<%End If %> system

     

    ^ back to top