<%@LANGUAGE="VBSCRIPT"%> <% '************************************************************* ' Solutions.asp ' ' Copyright 2006-2008 Hobson Renaissance Solutions LLC '************************************************************* %> <% Dim strCallingPage ' Page navigation variable Dim strPagePass ' " Dim strPageAction ' " Dim strPageRoles ' Used for authorization Dim strDenied ' " Dim strWrongRole ' " Dim strOrgName ' Variable to hold organization/company name to put on the page Dim strFullName ' Variable to hold fullname of current login Dim strService ' Variable to hold the required service for this page Dim strServiceText ' Variable to hold the display name for the service Dim strCreateRTFWksht Dim strSiteDescr ' Variable to hold the display name for the service Dim bTestDBG ' boolean indicating if current user is a test user. Dim strConnectionString ' variable to place the connection string to pass to subroutine Dim strCommandString Dim strPrevCommand Dim strCurrentMode ' String to use as a subtitle 'Now declare literature content variables Dim strOverview Dim strLitOrg Dim strLitOrgName Dim strSoftware Dim strHardware Dim strCategory Dim strAnd Dim strCk1Label1 Dim strCkLabel2 Dim strCkLabel3 Dim strCkLabel4 Dim strFundRaising Dim strSurveys Dim strSmallNet Dim strClassroom Dim strPlanning Dim strDesktop Dim strExample Dim strExampleDisp Dim strJumpHref Dim strSelDefault Dim strCWK12SelHtml Dim strChecked1 Dim strChecked2 Dim strChecked3 Dim strChecked4 Dim strJump1SelHtml Dim strJump2SelHtml Dim strJump3SelHtml Dim strUses1 Dim strUses2 Dim strUses3 strConnectionString = Application.Contents("ConnectionString") Set objConn = Server.CreateObject("ADODB.Connection") objConn.open strConnectionString Dim intTimeout intTimeout = APP_PAGE_TIMEOUT_AUTOSAVE ' Define the roles of those users that will have access to this page. strPageRoles = "SiteAdmin,AppAdmin,USER" ' Define the URL the user will redirected to if the user has not logged in yet. strDenied = "../../common/users/HRSLogin.asp" ' Define the URL the user will redirected to if proper role is absent. strWrongRole = "index.html" ' Now validate the request for this page for this user. This validation request will also ' check if the system should be available 'Call ValidateUser3(strPageRoles, strDenied, strWrongRole, strConnectionString) strOrgName = Trim(Session.Contents("AppOrgName")) ' Get organization/company name to put on page strSiteDescr = Trim(Session.Contents("AppSiteDescr")) ' Get service display name to put on page strFullName = Trim(Session.Contents("AppUserFullName")) ' Get fullname of current login to put on page strLitOrg= Request.Form("LitOrg") strSoftware= Request.Form("software") strHardware= Request.Form("hardware") strFundRaising= Request.Form("fundraising") strSurveys= Request.Form("surveys") strSmallNet= Request.Form("smallnet") strClassroom= Request.Form("classroom") strPlanning= Request.Form("planning") strDesktop = Request.Form("desktop") strExample = Request.Form("demoRB1") strLitOrgName= Request.Form("LitOrg") strSelDefault="SELECT" Session.Contents("DemoRbSelected") = strExample ' populate the Courwseware demo select menu If strExample= "rbUse1" Then strJump1SelHtml = getJumpSelectHtml("CWK12", strSchemaName & "TjlstCWK12", strSelDefault, objConn) strJump2SelHtml = getJumpSelectHtml("CWHEd", strSchemaName & "TjlstCWHEd", strSelDefault, objConn) strJump3SelHtml = getJumpSelectHtml("CWTrn", strSchemaName & "TjlstCWTrn", strSelDefault, objConn) strUses1 = "K-12" strUses2= "Higher Education" strUses3= "Training" strExampleDisp= "Courseware Examples" strChecked1= "Checked" Elseif strExample= "rbUse2" Then strJump1SelHtml = getJumpSelectHtml("APTch", strSchemaName & "TjlstAPTch", strSelDefault, objConn) strJump2SelHtml = getJumpSelectHtml("APBus", strSchemaName & "TjlstAPBus", strSelDefault, objConn) strJump3SelHtml = getJumpSelectHtml("APPrd", strSchemaName & "TjlstAPPrd", strSelDefault, objConn) strUses1 = "Technology Projects" strUses2= "Business
Planning" strUses3= "Product Development" strExampleDisp= "Survey, Assessment and Planning " strChecked2= "Checked" Elseif strExample= "rbUse3" Then strJump1SelHtml = getJumpSelectHtml("PPFndr", strSchemaName & "TjlstPPFndr", strSelDefault, objConn) strJump2SelHtml = getJumpSelectHtml("PPSls", strSchemaName & "TjlstPPSls", strSelDefault, objConn) strJump3SelHtml = getJumpSelectHtml("PPMkt", strSchemaName & "TjlstPPMkt", strSelDefault, objConn) strUses1 = "Fundraising" strUses2= "Sales" strUses3= "Marketing" strExampleDisp= "Productivity and Profitability Applications" strChecked3= "Checked" Elseif strExample= "rbUse4" Then strJump1SelHtml = getJumpSelectHtml("PMSvy", strSchemaName & "TjlstPMSvy", strSelDefault, objConn) strJump2SelHtml = getJumpSelectHtml("PMAsmt", strSchemaName & "TjlstPMAsmt", strSelDefault, objConn) strJump3SelHtml = getJumpSelectHtml("PMTrn", strSchemaName & "TjlstPMTrn", strSelDefault, objConn) strUses1 = "Surveys" strUses2= "Assessments" strUses3= "Training" strExampleDisp= "People Management Tools" strChecked4= "Checked" End If 'TestDBG is set if we are logged in as a test user. bTestDBG = false strTempString = Trim(Session.Contents("AppTestUser")) 'Response.write(strTempString) If (Len(strTempString) > 0) Then If (strTempString = "Y") Then bTestDBG = True Else bTestDBG = False End If End If If (bTestDBG) Then strTempString = GetFormVars() Session.Contents("DisplayLitForm") = strTempString End If %> Microsoft Certified Small Business Specialists Small Business Marketing for Small Businesses







Technology Products
Microsoft Small Business Specialist

Product  Demonstration

1-2-3 Tools   can be used to build a wide-range of online applications.

To sample some of the possible uses follow these three steps:

1. Select a solution category below to display
some of the possible uses for
1-2-3 Tools.

Solutions you can build with 1-2-3Tools
Possible Uses

2.  Click "Go" to build your custom demo menus in the box below:

3.  After clicking "Go" to create menus for your custom demo, select from the drop-down menus to try out 1-2-3 Tools
1-2-3Tools also provides powerful maintenance utilities such as:
System Maintenance
Table Maintenance
Maintenance Reports

Home|Services|Products|Portfolio|About|Contact|Partners|Privacy Policy

Copyright © 2000-2008 Hobson Renaissance Solutions LLC dba Hobson Strategic Vision.  All Rights Reserved