Code:
<%a5 'SYSTEM GENERATED COMMENT - PLEASE DO NOT REMOVE - Start Ajax1---------------------------------- 'Test to see if we are in an Ajax callback............................................................ dim componentAlias as c 'The componentAlias MUST be UNIQUE for each component on the page. 'The componentAlias must not have any spaces in the name. Try to keep the componentAlias as short as possible. componentAlias = "login" dim request.variables.__ajax as c = default "" dim request.variables.__formID as c = default "" 'If it is an ajax callback for another component, then don't run this component. dim flagMustExecuteComponent as l = .t. if request.variables.__ajax = "true" then if word(request.variables.__formID,1,".") <> componentAlias then flagMustExecuteComponent = .f. end if end if 'End test............................................................................................ if flagMustExecuteComponent = .t. then Delete tmpl_login DIM tmpl_login as P tmpl_login = a5w_load_component("login") 'SYSTEM GENERATED COMMENT - PLEASE DO NOT REMOVE (LOAD:login) 'Following code allows you to override settings in the saved component, and specify the component alias (componentName property). 'Tip: Keep the componentName property short because this name is used in page URLs, and it will help keep the URLs short. 'Each component on a page must have a unique alias (componentName property). with tmpl_login componentName = "login" end with '=======================================compute the HTML for the Component======================================= delete x_login dim x_login as p x_login = a5w_run_Component(tmpl_login) 'SYSTEM GENERATED COMMENT - PLEASE DO NOT REMOVE (RUN:tmpl_login) 'SYSTEM GENERATED COMMENT - PLEASE DO NOT REMOVE - Ajax2---------------------------------- dim x_login.IsAjaxResponse as l = default .f. if x_login.IsAjaxResponse = .t. then 'Discard any pending text in the output buffer. *output_rewind() ?x_login.Ajaxresponse end end if '============================================================================================================= if x_login.RedirectURL <> "" then response.redirect(x_login.redirectURL) end end if end if 'end flagMustExecuteComponent test 'SYSTEM GENERATED COMMENT - PLEASE DO NOT REMOVE - End Ajax1---------------------------------- dim request.variables.__ajax as c = default "" 'Only emit if not in an Ajax callback. if request.variables.__ajax = "" then ?x_login.Output.Head.JavaScript ?x_login.Output.Head.CSS_Link end if %> <%a5 ?x_login.Output.Body.Body_Tag %> [B]<%A5 ?x_login.Output.Body.Login_Errors %>[/B] <%A5 ?x_login.Output.Body.Login_HTML %>
I have done zero coding and don't even know where to begin in all that, but I'm looking for something really simplistic for the whole project and this is not coming along easily at all. Any help would be appreciated.
If someone would be willing to go so far as to listen to what my plan is exactly and lay out what I really need to do, that would be much appreciated and a PM would be welcome. I have no previous database experience and this would likely be child's play to all of you. I'm aware this is a bit much to ask.
Comment