<% ' Module: default.asp ' ' Description: This module is a special default home page for ' users that want to display a drop down list of customers ' to allow customers to simply select one and log in without ' entering any login information. This is designed to be used ' in setting like various hospital groups where individual customers ' would be defined as group rather than individuals. ' NOTE: This is not a very secure way for customer to submit cases ' since anybody with access to the system can select any customer and ' submit trouble tickets for as that customer. On the flip side, it ' allows customers that are set up as departments to login without having ' to remember passwords or accounts. ' This can be setup as the home page for the customer if neccesary by setting ' up the default home page as default.asp rather than default.asp. Configure this ' going to the Internet Services Manager,and drilling to a virtual directory ' and then right mouse click for properties and remove the default.asp default file ' and leave the default.asp file as the only default file. ' (C) 2000, 2001 Internet Software Sciences ' ' Author: Scott Vanderlip ' History: ' Date Who What ' ----- ---- ---------------------------------------------- '08/22/01 SAV Created original ASP file ' * * * * * * * * CONFIGURATION OPTIONS * * * * * * * ' comment/uncomment out the definitions below to remove these options from ' the customer+center home page. ' If you have LDAP enabled, we will assume you do not want: 'Self registration 'Standard Customer+Center logins 'Los Username and passwords ShowReservationCenterLink = "YES" ' Display the reservation+center link 'ShowCCLogin = "YES" - Display the web+center customer login (non AD) 'ShowSelfRegistration = "YES" %> <%' Get the Database DNS and login information - Edit this file to change the DSN connection string%> <% ' Display the Header HTML %> <% MyPWD = Request.querystring("PW") MyUN = Request.querystring("UN") 'response.write "I see " & MyUN & " -- " & MyPWD & "

" 'response.flush 'response.end MM = Month(Now()) MMM = MonthName(MM,1) DD = Day(Now()) %> <% ' First determine if LDAP logins have been able and if text messaging has been 'enabled. Only show certain login options and Text Chat options if these are enabled. set conntemp=server.createobject("adodb.connection") conntemp.open myDSN mySQL="select * from Configuration" ' We will allow up to 10 Priority values set rstemp2 = server.createobject("adodb.recordset") rstemp2.open mySQL, conntemp, 1,3 ' Check to see if any records are returned ' if none found the if rstemp2.EOF then UserPageColor = "FFFFFF" ' Default to white if record not found Else UserPageColor = rstemp2("ts_options_color") AssetDatabase = rstemp2("assets_db") If CInt(AssetDatabase) = 1 Then AssetDatabase = True End If TextMessagingEnabled = rstemp2("Option2") Ldap_enabled = rstemp2("Option1") ' Field to enable LDAP integration End If rstemp2.close set rstemp2=nothing conntemp.close ' Close the connection set conntemp=nothing %>

Maintenance Helpdesk
Bloomingdale School District

Maintenance Login