<%@ Language=VBScript %> <% 'Check that the person is logged in. Response.Expires=0 if Session("LoggedIn") <> "True" then Response.Redirect "Main.asp" end if %> <% 'Look up employee information to populate text boxes. if trim(Request.Form("Users")) <> "" then set dbconn = server.CreateObject("adodb.connection") set rstEmployee = server.CreateObject("adodb.recordset") dbconn.open "Provider=SQLOLEDB; Data Source=us010033; Initial Catalog=HelpDesk;user id=helpdesk; password=help" ssql = "SELECT * FROM Employees WHERE Badge=" & "'" & Request.Form("Users") & "'" rstEmployee.Open ssql, dbconn Session("Ext") = rstEmployee("Ext") Session("Location") = rstEmployee("Location") Session("EmpUserName") = rstEmployee("UserName") Session("IPAddress") = rstEmployee("IPAddress") Session("UserNumber") = rstEmployee("UserNumber") dbconn.Close set dbconn = nothing End IF %>

	Help Desk Ticket <%Response.Write Now()%>
* Ticket not saved until 'Save Ticket' button is pressed *
Name	<% 'Read all user records from database to populate 'user drop-down list box. set dbconn = server.CreateObject("adodb.connection") set rstNames = server.CreateObject("adodb.recordset") dbconn.open "Provider=SQLOLEDB; Data Source=us010033; Initial Catalog=HelpDesk;user id=helpdesk; password=help" ssql = "SELECT * FROM Employees ORDER BY Name" rstNames.Open ssql, dbconn do while not rstNames.EOF Response.Write "" Response.write rstNames("Name") Response.Write ""& vbCrLf rstNames.MoveNext loop dbconn.Close set dbconn = nothing %>		Call Opened	" tabindex="10">
Ext	" tabindex="2">		Method Received	>Call - Answered >Call - Voicemail >E-Mail >In person >Interoffice Mail >Intranet Ticket
Location	" tabindex="3">		Caller's First Contact	<% 'Read all user records from database to populate 'user drop-down list box. set dbconn = server.CreateObject("adodb.connection") set rstNames = server.CreateObject("adodb.recordset") dbconn.open "Provider=SQLOLEDB; Data Source=us010033; Initial Catalog=HelpDesk;user id=helpdesk; password=help" ssql = "SELECT * FROM Login ORDER BY Name" rstNames.Open ssql, dbconn do while not rstNames.EOF Response.Write "" Response.write rstNames("Name") Response.Write ""& vbCrLf rstNames.MoveNext loop dbconn.Close set dbconn = nothing %>
Username	" tabindex="4">		First Contact Resolved	tabindex="13"> Yes tabindex="14"> No
IP Address	" tabindex="4"> UUS#  " tabindex="4">
Users Affected	tabindex="5"> Single User tabindex="6"> Multi User		Transferred to	<% 'Read all user records from database to populate 'user drop-down list box. set dbconn = server.CreateObject("adodb.connection") set rstNames = server.CreateObject("adodb.recordset") dbconn.open "Provider=SQLOLEDB; Data Source=us010033; Initial Catalog=HelpDesk;user id=helpdesk; password=help" ssql = "SELECT * FROM Login ORDER BY Name" rstNames.Open ssql, dbconn do while not rstNames.EOF Response.Write "" Response.write rstNames("Name") Response.Write ""& vbCrLf rstNames.MoveNext loop dbconn.Close set dbconn = nothing %>
Type of Problem	<% 'Read all problem records from database to populate 'problem drop-down list box. set dbconn = server.CreateObject("adodb.connection") set rstProblem = server.CreateObject("adodb.recordset") dbconn.open "Provider=SQLOLEDB; Data Source=us010033; Initial Catalog=HelpDesk;user id=helpdesk; password=help" ssql = "SELECT * FROM ProblemTypes ORDER BY ProblemType" rstProblem.Open ssql, dbconn do while not rstProblem.EOF Response.Write "" Response.write rstProblem("ProblemType") Response.Write ""& vbCrLf rstProblem.MoveNext loop dbconn.Close set dbconn = nothing %>		Call on hold tabindex="16">
Is this a Kaizen Plus Employee CIP request? > Yes > No
Problem Group:	<% 'Read all user records from database to populate 'user drop-down list box. set dbconn = server.CreateObject("adodb.connection") set rstProblem = server.CreateObject("adodb.recordset") dbconn.open "Provider=SQLOLEDB; Data Source=us010033; Initial Catalog=HelpDesk;user id=helpdesk; password=help" ssql = "SELECT * FROM ProblemGroups ORDER BY GroupID" rstProblem.Open ssql, dbconn do while not rstProblem.EOF Response.Write "" Response.write rstProblem("GroupDesc") Response.Write ""& vbCrLf rstProblem.MoveNext loop dbconn.Close set dbconn = nothing %>
Description	<%Response.Write Request.Form("Description")%>		Hold Description	<%Response.Write Request.Form("HoldDescription")%>
Resolution	<%Response.Write Request.Form("Resolution")%>		Comments	<%Response.Write Request.Form("Comments")%>
Call Resolved  tabindex="19">   Date and time resolved " tabindex="20">   Time to complete " READONLY tabindex="21">
User Entered Completion Time " tabindex="22">Minutes

<% 'Clear session variables Session("Ext") = "" Session("Location") = "" Session("EmpUserName") = "" %>