%@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
%>
|
|
|||||||||||||||||||
Copyright © 2000-2008 Hobson Renaissance Solutions LLC dba Hobson Strategic Vision. All Rights Reserved |