<%@ LANGUAGE="VBSCRIPT" %> <% PageStrings = "398, 400, 445, 450, 451, 452, 525, 876, 917, 918, 992, 993, 994" 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. '=============================================== '----------------------------------------------- 'MODIFY LOGIN 'This allows you to edit a specific login record '----------------------------------------------- LOGIN_ID = request.querystring("LOGIN_ID") & "" 'If one was passed... if LOGIN_ID <> "" then '... then we are editing strQuery = "SELECT * FROM tblCactuShopLogins WHERE LOGIN_ID = " & LOGIN_ID Call executeSQL(strQuery, numCursorType, objRecordSet) 'If the record wasn't found... if objRecordSet.bof and objRecordSet.eof then '...then we add a new one... LOGIN_ID = 0 else '... else grab the record details and put them in variables LOGIN_Username = objRecordSet("LOGIN_Username") LOGIN_Password = objRecordSet("LOGIN_Password") LOGIN_Live = objRecordSet("LOGIN_Live") LOGIN_Orders = objRecordSet("LOGIN_Orders") LOGIN_Products = objRecordSet("LOGIN_Products") LOGIN_Config = objRecordSet("LOGIN_Config") LOGIN_Protected = objRecordSet("LOGIN_Protected") LOGIN_Language = objRecordSet("LOGIN_Language") end if else LOGIN_ID = 0 end if %>

<% WriteString("PageTitle_EditLogin") %> <% WriteString("FormLabel_Username") %> <% WriteString("FormLabel_Password") %> <% WriteString("ContentText_Live") %> type="radio" name="LOGIN_Live" value="y" <% if LOGIN_Live = "y" then response.write " checked=""true""" %>><% WriteString("ContentText_RadioYes") %>  type="radio" name="LOGIN_Live" value="n" <% if not LOGIN_Live = "y" then response.write " checked=""true""" %>><% WriteString("ContentText_RadioNo") %> <% WriteString("FormLabel_Language") %>: <% numCounter = 0 For numCounter = 1 to numTotalLanguages If aryLangLiveBack(numCounter) = "y" then if cstr(numCounter) = cstr(LOGIN_Language) then response.Write "" & aryLangBackNames(numCounter) & "" else response.Write "" & aryLangBackNames(numCounter) & "" end if end if Next %> <% If LOGIN_Orders = "y" then response.write("checked ") %>type="checkbox" value="y" name="LOGIN_Orders"> <% WriteString("ContentText_AllowOrders") %> <% If LOGIN_Products = "y" then response.write("checked ") %>type="checkbox" value="y" name="LOGIN_Products"> <% WriteString("ContentText_AllowProducts") %> <% If LOGIN_Config = "y" then response.write("checked ") %>type="checkbox" value="y" name="LOGIN_Config"> <% WriteString("ContentText_AllowConfig") %> "> <% if LOGIN_ID <> 0 and LOGIN_Protected <> "y" then %> "> <% WriteString("ContentText_DeleteThisEntry") %> <% end if %>

<% objDataConn.Close set objDataConn = nothing %>