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

Error: <%= strErrMsg %>

 

^ back to top


 
<% End If %>