<% '////////////////////////////////////////// 'The DATA in arrays for every option of the page selectedDept = 0 'Holds the index value of the selected dept. 'Thus, 1 for helpdesk, 2 for DBA, 3 for Sys Admin, 4 for Data Warehouse 'Obtained by Submiting initial form with drop down list errorFlag = 0 'An Error Flag '-1 if there is an error or above zero if no error sentEmail = false 'Email Flag Dim deptData(6) 'The first element deptData(0) holds the number of 'elements in the array exluding this entry. deptData(0) = "6" deptData(1) = "Helpdesk" deptData(2) = "DBA" deptData(3) = "System Admin" deptData(4) = "Data Warehouse Problem" deptData(5) = "Data Warehouse Request" deptData(6) = "Facilities" Dim errorData(6) 'Error data array Dim typeData(6,10) 'An array to hold all the type data ' the number of dept's x the max number of types '1 is for Helpdesk typeData(1,0) = "9" 'There are 8 elements typeData(1,1) = "IT Problem -Hardware" typeData(1,2) = "IT Problem -Software" typeData(1,3) = "IT Problem -Network" typeData(1,4) = "IT Problem -Email" typeData(1,5) = "IT Request -Hardware" typeData(1,6) = "IT Request -Software" typeData(1,7) = "IT Request -Network" typeData(1,8) = "IT Request -Email" typeData(1,9) = "Phone" '2 is for DBA typeData(2,0) = "2" typeData(2,1) = "DBA Problem Report" typeData(2,2) = "DBA Work Request" '3 is for Sys Admin typeData(3,0) = "2" typeData(3,1) = "Sys Admin Problem Report" typeData(3,2) = "Sys Admin Work Request" '4 is for Data Warehouse Problems typeData(4,0) = "1" typeData(4,1) = "Data Warehouse Problem Report" '5 is for Data Warehouse Requests typeData(5,0) = "1" typeData(5,1) = "Data Warehouse Request" '6 is for Facilities typeData(6,0) = "1" typeData(6,1) = "Facilities Request" Dim areaData(6,15) 'Note, the first entry, ex areaData(x,0), is the number of other entries areaData(1,0) = "1" areaData(1,1) = "N/A" areaData(2,0) = "4" areaData(2,1) = "Production" areaData(2,2) = "Release L18" areaData(2,3) = "Development" areaData(3,0) = "4" areaData(3,1) = "Production" areaData(3,2) = "Release L18" areaData(3,3) = "Development" areaData(4,0) = "4" areaData(4,1) = "Busn Objects software" areaData(4,2) = "Data Anomaly" areaData(4,3) = "Missing Data" areaData(5,0) = "4" areaData(5,1) = "Report Request" areaData(5,2) = "Data Point Request" areaData(5,3) = "Event Tracking Request" areaData(6,0) = "1" areaData(6,1) = "N/A" Dim severityData(6,10) '1 is for Helpdesk severityData(1,0) = "4" severityData(1,1) = "4-Low" severityData(1,2) = "3-Medium" severityData(1,3) = "2-High" severityData(1,4) = "1-Urgent" '2 is for DBA severityData(2,0) = "4" severityData(2,1) = "4-Low" severityData(2,2) = "3-Medium" severityData(2,3) = "2-High" severityData(2,4) = "1-Urgent" '3 is for System Admin severityData(3,0) = "4" severityData(3,1) = "4-Low" severityData(3,2) = "3-Medium" severityData(3,3) = "2-High" severityData(3,4) = "1-Urgent" '4 is for Data Warehouse severityData(4,0) = "4" severityData(4,1) = "4-Low" severityData(4,2) = "3-Medium" severityData(4,3) = "2-High" severityData(4,4) = "1-Urgent" '5 is for Data Warehouse severityData(5,0) = "4" severityData(5,1) = "4-Low" severityData(5,2) = "3-Medium" severityData(5,3) = "2-High" severityData(5,4) = "1-Urgent" '6 is for Facilities severityData(6,0) = "4" severityData(6,1) = "4-Low" severityData(6,2) = "3-Medium" severityData(6,3) = "2-High" severityData(6,4) = "1-Urgent" Dim productData(6,9) productData(1,1) = "xIT Help Desk" productData(1,2) = "xIT Help Desk" productData(1,3) = "xIT Help Desk" productData(1,4) = "xIT Help Desk" productData(1,5) = "xIT Help Desk" productData(1,6) = "xIT Help Desk" productData(1,7) = "xIT Help Desk" productData(1,8) = "xIT Help Desk" productData(1,9) = "xIT Help Desk" productData(2,1) = "xDBA Problem" productData(2,2) = "xDBA Request" productData(3,1) = "xSA Problem" productData(3,2) = "xSA Request" productData(4,1) = "xDW Problem" productData(5,1) = "xDW Request" productData(6,1) = "xFacilities" Dim emailToData(6) 'emailToData(1) = "junger@ufl.edu" 'emailToData(2) = "junger@ufl.edu" 'emailToData(3) = "junger@ufl.edu" emailToData(1) = "SiebelHelpdesk@Bigstep.net" emailToData(2) = "SiebelDBA@Bigstep.net" emailToData(3) = "SiebelSA@Bigstep.net" emailToData(4) = "SiebelDBA@Bigstep.net" emailToData(5) = "SiebelDBA@Bigstep.net" emailToData(6) = "SiebelHelpdesk@Bigstep.net" Dim textData(6) 'Used to display on top of form and also 'for To: field of email message. textData(1) = "Helpdesk Request" textData(2) = "DBA Request" textData(3) = "System Admin Request" textData(4) = "Data Warehouse Problem" textData(5) = "Data Warehouse Request" textData(6) = "Facilities Request" %> <% 'Check for errors and report them If Request.Form("submit")="Submit" Then If Request.Form("name") = "" then errorData(1) = "
Please enter your NT user name." errorFlag = -1 Else errorData(1) = "" End If If Request.Form("abstract") = "" then errorData(2) = "
Please enter a short, one-line description." errorFlag = -1 Else errorData(2) = "" End If If Request.Form("description") = "" then errorData(3) = "
Please enter a detailed description." errorFlag = -1 Else errorData(3) = "" End If If errorFlag = -1 then errorData(0) = "The form was not submitted. Please correct the errors in red and resubmit." End If End If %>

Bigstep.com Help

Welcome to Bigstep's intranet help and request page. Please select a department from the pull-down list. Fill out the form that appears below, making sure that every field is filled in, and hit the submit button. Your email address will be determined from your NT login name. Your request will be sent via email to the correct department. In general, you should receive a reply within one business day.
<% Dim insertSelected(10) If Request.Form("deptList")<>0 then insertSelected(Request.Form("deptList")) = "SELECTED" If selectedDept = 0 Then %>
Please select a department from the following list:

<% End if If Request.Form("deptList")<>0 then selectedDept = Request.Form("deptList") '***********Send the Message****************** 'If the form has been submitted... If Request.Form("submit")="Submit" Then 'If there are no errors then submit the form If errorFlag=0 then %>

Sending email...

<% Dim msgBody, objMsg, tempBody Set objMsg = Server.CreateObject("CDONTS.NewMail") emailMsgFrom = Trim(Request.Form("email")) emailMsgSubject = "Submit" objMsg.From = emailMsgFrom objMsg.To = emailToData(selectedDept) objMsg.Subject = emailMsgSubject msgBody = "" 'msgBody = msgBody & "[Type]" & vbCrLf & vbCrLf & Trim(Request.Form("type")) & vbCrLf & vbCrLf If productData(selectedDept,Trim(Request.Form("typeSelectedIndex")))="xIT Help Desk" then msgBody = msgBody & "[Area]" & vbCrLf & vbCrLf & Trim(Request.Form("type")) & vbCrLf & vbCrLf else msgBody = msgBody & "[Area]" & vbCrLf & vbCrLf & Trim(Request.Form("area")) & vbCrLf & vbCrLf End IF msgBody = msgBody & "[Area]" & vbCrLf & vbCrLf & Trim(Request.Form("area")) & vbCrLf & vbCrLf msgBody = msgBody & "[Severity]" & vbCrLf & vbCrLf & Trim(Request.Form("severity")) & vbCrLf & vbCrLf msgBody = msgBody & "[Abstract]" & vbCrLf & vbCrLf & Trim(Request.Form("abstract")) & vbCrLf & vbCrLf msgBody = msgBody & "[Description]" & vbCrLf & vbCrLf & Trim(Request.Form("description")) & vbCrLf & vbCrLf & "Submitter's Name = " & Trim(Request.Form("name")) & vbCrLf & vbCrLf msgBody = msgBody & "[Product]" & vbCrLf & vbCrLf & productData(selectedDept,Trim(Request.Form("typeSelectedIndex"))) & vbCrLf & vbCrLf objMsg.Body = msgBody %>
From: <%=emailMsgFrom%>
To: <%=textData(selectedDept)%>
Body:
Type:<%=Trim(Request.Form("type"))%>
Area:<%=Trim(Request.Form("area"))%>
Severity:<%=Trim(Request.Form("severity"))%>
Abstract:<%=Trim(Request.Form("abstract"))%>
Description:<%=Trim(Request.Form("description"))%>
<% objMsg.Send Set objMsg = Nothing sentEmail = true %>

...Message Sent!

<% End If End If %> <% 'Display the form if a department has been selected. If ((selectedDept<>0) AND (sentEmail=false))then %>
<%=errorData(0)%>

<%=textData(selectedDept)%>

Your NT Login Name: " onBlur="fillEmail()"><%=errorData(1)%>
Your Email Address: " DISABLED onFocus="this.blur()">
Type:
Area:
Severity:
Subject: "><%=errorData(2)%>
Description: <%=errorData(3)%>
<% End if %>