<% Option Explicit If not Session("isLoggedIn") Then response.redirect("/ecommerce/default.asp?returnUrl=" & Server.URLEncode(Request.ServerVariables("SCRIPT_NAME"))) End If %> <% Dim strSortOrder Dim intCountryID, blnDeactivate, intNewStatus, blnExclude, intNewSystem Dim rsCountry, strSQL, intRows intCountryID = CInt(Request("countryID")) blnDeactivate = CInt(Request("deactivate")) blnExclude = CInt(Request("exclude")) If blnDeactivate Then intNewStatus = 0 Else intNewStatus = 1 End If If blnExclude Then intNewSystem = 0 Else intNewSystem = 1 End If strSortOrder = "" If Request("sortOrder") <> "" Then strSortOrder = CStr(Request("sortOrder")) If strSortOrder = "" Then strSortOrder = "ASC" strSQL = "exec stpCountryStatus " & intCountryID & "," & intNewStatus & "," & intNewSystem Set rsCountry = dbconn.Execute(strSQL) If rsCountry.EOF Then ' no country with that countryID strErrMsg = "country does not exist" isErr = true End If %> Galuku Cocopeat <% If not isErr Then %>
<% Else %>
country status

Error: <%= strErrMsg %>

 

^ back to top


 
<% End If %>