<%@ LANGUAGE="VBSCRIPT" %> <% PageStrings = "333, 445, 919, 917, 398, 913, 920, 1005, 1007" strThisBackPage = "config" %> <% '=============================================== ' CactuShop ASP Shopping Cart ' ©1999-2004 Cactusoft Ltd. www.cactusoft.com '=============================================== ' All rights reserved. ' Use of this code is covered by the terms and ' conditions in the license agreement. No ' unauthorized duplication or distribution is ' permitted. Cactusoft's copyright notices must ' remain in the ASP sections of the code. '=============================================== '----------------------------------------------- 'LIST LOGINS 'This lists all the logins on the system with a 'button next to each to modify or delete the 'record '----------------------------------------------- 'Pull out all logins, ordered by the ID strQuery = "SELECT * FROM tblCactuShopLogins ORDER BY LOGIN_ID" Call ExecuteSQL(strQuery, numCursorType, objRecordSet) numRecordCount = objRecordSet.RecordCount %>

<% WriteString("PageTitle_Logins") %> <% WriteString("ContentText_New") %> <% if numRecordCount <> 0 then 'loop through each login do while not objRecordSet.EOF 'Set the background colour numBackgroundCounter = numBackgroundCounter + 1 If numBackgroundCounter mod 2 = 0 then strBgColour = "#EEEEEE" else strBgColour = "#DDDDDD" 'Write out the table row strClass = "smallnormal" If objRecordSet("LOGIN_Protected") = "y" then strClass = "smallbold" %> <% 'remove on to the next record objRecordSet.moveNext loop else 'There are no records, display an explanation %> <% end if objRecordSet.Close %> <% WriteString("FormLabel_Username") %> <% WriteString("FormLabel_Password") %> <% WriteString("ContentText_Permissions") %> <% WriteString("ContentText_Live") %>   <% =objRecordSet("LOGIN_Username") %> <% =objRecordSet("LOGIN_Password") %> <% If objRecordSet("LOGIN_Orders") = "y" then %>" title="<% WriteSafeString("ImageLabel_PermOrders") %>"><% else %>" title="<% WriteSafeString("ImageLabel_PermOrders") %>"><% end if %> <% If objRecordSet("LOGIN_Products") = "y" then %>" title="<% WriteSafeString("ImageLabel_PermProducts") %>"><% else %>" title="<% WriteSafeString("ImageLabel_PermProducts") %>"><% end if %> <% If objRecordSet("LOGIN_Config") = "y" then %>" title="<% WriteSafeString("ImageLabel_PermConfig") %>"><% else %>" title="<% WriteSafeString("ImageLabel_PermConfig") %>"><% end if %> <% =objRecordSet("LOGIN_Live") %> ">" title="<% WriteSafeString("ImageLabel_ViewThisCustomer") %>"> <% WriteString("ContentText_NoLoginsWereFound") %> <% WriteString("ContentText_BoldLoginProtected") %>

<% objDataConn.Close set objDataConn = nothing %>