@Code
Layout = "../_SiteLayout.vbhtml"
@Imports System.Data
@Imports Oracle.DataAccess.Client
@Imports TL_WebApp
Dim opLevel = Request("opLevel")
Dim opName = Request("opName")
Dim opEmail = Request("opEmail")
Dim opGID = Request("opGID")
Dim opLog = Request("opLog")
'reqid = Request("reqid")
Dim strUChangeID = Request.Form("strUChangeID")
'check the cookie for security
If Request.Cookies("TimeLabor")("EmpGID") <> opGID Then
Response.Redirect("../login.vbhtml")
End If
Dim ora_param(6) As OracleParameter
'.CommandText = ""
ora_param(0) = New OracleParameter("param1", OracleDbType.Varchar2, 11, opGID, ParameterDirection.Input)
ora_param(1) = New OracleParameter("param4", OracleDbType.Varchar2, 4, vbNull, ParameterDirection.Output)
ora_param(2) = New OracleParameter("param5", OracleDbType.Varchar2, 3, vbNull, ParameterDirection.Output)
ora_param(3) = New OracleParameter("param6", OracleDbType.Varchar2, 5, vbNull, ParameterDirection.Output)
ora_param(4) = New OracleParameter("param2", OracleDbType.Int64, ParameterDirection.Output)
ora_param(5) = New OracleParameter("param3", OracleDbType.Int64, ParameterDirection.Output)
ora_param(6) = New OracleParameter("generic_cv", OracleDbType.RefCursor, ParameterDirection.Output)
Dim ds = TLOracleHelper.FillDataSet("n943_sec_user_popdrop_pk.n943_sec_user_popdrop", ora_param)
Dim dtPopDrop = ds.Tables(0)
Dim oraparam(17) As OracleParameter
'.CommandText = ""
oraparam(0) = New OracleParameter("param1", OracleDbType.Varchar2, 11, strUChangeID, ParameterDirection.Input)
oraparam(1) = New OracleParameter("param2", OracleDbType.Varchar2, 4, vbNull, ParameterDirection.Output)
oraparam(2) = New OracleParameter("param3", OracleDbType.Varchar2, 3, vbNull, ParameterDirection.Output)
oraparam(3) = New OracleParameter("param4", OracleDbType.Varchar2, 5, vbNull, ParameterDirection.Output)
oraparam(4) = New OracleParameter("param5", OracleDbType.Varchar2, 11, vbNull, ParameterDirection.Output)
oraparam(5) = New OracleParameter("param6", OracleDbType.Varchar2, 14, vbNull, ParameterDirection.Output)
oraparam(6) = New OracleParameter("param7", OracleDbType.Varchar2, 25, vbNull, ParameterDirection.Output)
oraparam(7) = New OracleParameter("param8", OracleDbType.Varchar2, 15, vbNull, ParameterDirection.Output)
oraparam(8) = New OracleParameter("param9", OracleDbType.Varchar2, 9, vbNull, ParameterDirection.Output)
oraparam(9) = New OracleParameter("param10", OracleDbType.Varchar2, 50, vbNull, ParameterDirection.Output)
oraparam(10) = New OracleParameter("param11", OracleDbType.Varchar2, 8, vbNull, ParameterDirection.Output)
oraparam(11) = New OracleParameter("param12", OracleDbType.Varchar2, 10, vbNull, ParameterDirection.Output)
oraparam(12) = New OracleParameter("param13", OracleDbType.Varchar2, 35, vbNull, ParameterDirection.Output)
oraparam(13) = New OracleParameter("param14", OracleDbType.Varchar2, 8, vbNull, ParameterDirection.Output)
oraparam(14) = New OracleParameter("param15", OracleDbType.Varchar2, 50, vbNull, ParameterDirection.Output)
oraparam(15) = New OracleParameter("param19", OracleDbType.Int64, ParameterDirection.Output)
oraparam(16) = New OracleParameter("param20", OracleDbType.Int64, ParameterDirection.Output)
oraparam(17) = New OracleParameter("generic_cv", OracleDbType.RefCursor, ParameterDirection.Output)
Dim ds1 = TLOracleHelper.FillDataSet("n943_sec_upd_userdtl.n943_sec_upd_userdtl_proc", oraparam)
Dim dtRS = ds1.Tables(0)
Dim strDFRegDis = TLStringHelper.NULLtoString(oraparam(1))
Dim strDFOpType = TLStringHelper.NULLtoString(oraparam(2))
Dim strDFCenter = TLStringHelper.NULLtoString(oraparam(3))
Dim opCode = TLStringHelper.NULLtoString(oraparam(15))
Dim opData = TLStringHelper.NULLtoString(oraparam(16))
Dim param5 = TLStringHelper.NULLtoString(oraparam(4))
Dim param7 = TLStringHelper.NULLtoString(oraparam(6))
Dim param8 = TLStringHelper.NULLtoString(oraparam(7))
Dim param2 = TLStringHelper.NULLtoString(oraparam(1))
Dim param3 = TLStringHelper.NULLtoString(oraparam(2))
Dim param4 = TLStringHelper.NULLtoString(oraparam(3))
Dim param10 = TLStringHelper.NULLtoString(oraparam(9))
Dim param11 = TLStringHelper.NULLtoString(oraparam(10))
Dim param12 = TLStringHelper.NULLtoString(oraparam(11))
Dim param13 = TLStringHelper.NULLtoString(oraparam(12))
Dim param14 = TLStringHelper.NULLtoString(oraparam(13))
Dim param15 = TLStringHelper.NULLtoString(oraparam(14))
Dim param9 = TLStringHelper.NULLtoString(oraparam(8))
Dim param6 = TLStringHelper.NULLtoString(oraparam(5))
Dim strPhoneNo = TLStringHelper.NULLtoString(oraparam(5))
Dim strPArea = Left(strPhoneNo, 3)
Dim strPFirst = Mid(strPhoneNo, 5, 3)
Dim strPLast = Right(strPhoneNo, 4)
End Code
<script for="window" event="onload" language="JScript" type="text/jscript">
window.status = "Payroll User Update";
</script>
<title>Update User Profile Form</title>
<script language="javascript" src="UserUpdt.js" type="text/javascript">
</script>
<body style="margin-left:1.5%; margin-right:1.5%" ALINK="#0000FF" VLINK="#0000FF" LINK="#0000FF" bgcolor="">
<!-- #include file="../includes/StandToolBar.htm" -->
<table width="100%" border="2" style="border-color:Maroon" align="center">
<tr>
<td align="center" style="font-size:medium; color:Maroon; font-weight:bold">
Update User Profile Form
</td>
</tr>
</table>
<br />
<table align="center">
<tr>
<td align="center">
<form action="SecAdminView.vbhtml" method="post" id="form0" name="form0">
<input type="hidden" name="opLevel" value="@opLevel" />
<input type="hidden" name="opName" value="@opName" />
<input type="hidden" name="opEmail" value="@opEmail" />
<input type="hidden" name="opGID" value="@opGID" />
<input type="hidden" name="opLog" value="@opLog" />
<input type="submit" value="Back to Security Menu" title="Back to Security Menu" id="btnpayfrmmenu" name="btnpayfrmmenu" style="WIDTH: 210px; HEIGHT: 24px" size="22" />
</form>
</td>
<td align="center">
<form action="UserLookup.vbhtml?List=Y&Form=Y" method="post" id="form2" name="form2">
<input type="hidden" name="opLevel" value="@opLevel" />
<input type="hidden" name="opName" value="@opName" />
<input type="hidden" name="opEmail" value="@opEmail" />
<input type="hidden" name="opGID" value="@opGID" />
<input type="hidden" name="opLog" value="@opLog" />
<input type="hidden" name="strUChangeID" value="@strUChangeID" />
<input type="hidden" name="UpdateBack" value="y" />
<input type="submit" value="Back to User Lookup List" title="Back to User Lookup List" id="submit1" name="submit1" style="WIDTH: 210px; HEIGHT: 24px" size="22" />
</form>
</td>
</tr>
<tr>
<td colspan="2" align="center" style="font-weight:bold; color:Maroon">* - Indicates Required Information</td>
</tr>
</table>
<hr width="95%" />
@if opCode="0" then
@<form id="form1" name="form1" onsubmit="return ValidForm()" method="post" action="UserUpdtSubmit.vbhtml">
<div style="margin-left:25%" align="left">
@if param8 <> "" And strDFRegDis <> "" And strDFOpType <> "" Then
@<input type="hidden" name="AuditOldValues" value="@param7|@param8|@strDFRegDis|@strDFOpType|@strDFCenter|@param10|@strPArea-@strPFirst-@strPLast|@param11|@param13|@param14|@param15" />
Else
@<input type="hidden" name="AuditOldValues" value="" />
End If
<table cellpadding="2" cellspacing="4" ">
<tr>
<td style=" font-weight: bold">Employee ID:</td>
<td style="font-style:italic; font-weight:bold">
<u>@param5</u>
<input type="hidden" name="EmplID" value="@param5" />
<input type="hidden" name="OldEmplID" value="@param5" />
</td>
</tr>
</table>
<table cellpadding="2" cellspacing="4" ">
<tr>
<td><b><font color="brown">*</font> Last Name:</b></td>
<td><input type="text" name="txtLName" value="@param7" size="25" maxlength="25" /></td>
<td><b><font color="brown">*</font> First Name:</b></td>
<td><input type="text" name="txtFName" value="@param8" size="15" maxlength="15" /></td>
</tr>
</table>
<table cellpadding="2" cellspacing="4">
<tr>
<td><b><font color="brown">*</font> RRDD:</b></td>
<td>
<select name="drpRegDis" size="1">
@For Each dr In dtPopDrop.Rows
@If Trim(dr(0)).Length > 0 Then
Dim drpRegDis = dr(0)
If drpRegDis = strDFRegDis Then
@<option value="@drpRegDis" selected="selected">@drpRegDis</option>
Else
@<option value="@drpRegDis">@drpRegDis</option>
End If
End If
Next
</select>
</td>
<td><b><font color="brown">*</font> Operation Type:</b></td>
<td>
<select name="drpOpType" size="1">
@For Each dr In dtPopDrop.Rows
@If Trim(dr(1)).Length > 0 Then
Dim drOPType = dr(1)
If drOPType = strDFOpType Then
@<option value="@drOPType" selected="selected">@drOPType</option>
Else
@<option value="@drOPType">@drOPType</option>
End If
End If
Next dr
</select>
</td>
<td><b><font color="brown">*</font> SLIC:</b></td>
<td>
<select name="drpCenter" size="1">
@For Each dr In dtPopDrop.Rows
@If Trim(dr(2)).Length > 0 Then
Dim drpCenter = dr(2)
If drpCenter = strDFCenter Then
@<option value="@drpCenter" selected="selected">@drpCenter</option>
Else
@<option value="@drpCenter">@drpCenter</option>
End If
End If
Next dr
</select>
</td>
<td><b>Sort:</b></td>
<td><input name="txtSort" size="1" maxlength="1" onblur="LowToUpper()" /></td>
</tr>
</table>
<table cellpadding="2" cellspacing="4" ">
<tr>
<td><b><font color="brown">*</font> Email Address:</b></td>
<td><input type="text" name="txtEmail" value="@param10" size="20" maxlength="50" /></td>
<td><input type="hidden" name="txtSSN" value="@param9" /></td>
<td><b><font color="brown">*</font> Phone Number:</b></td>
<td><input type="text" maxlength="3" name="txtPArea" value="@strPArea" size="3" />-<input type="text" maxlength="3" name="txtPFirst" value="@strPFirst" size="3" />-<input type="text" maxlength="4" name="txtPLast" value="@strPLast" size="4" /></td>
</tr>
</table>
<table cellpadding="2" cellspacing="4" ">
<tr>
<td><b><font color="brown">*</font> User ID:</b></td>
<td>
<input name="txtUID" size="8" maxlength="8" value="@param11" readonly="readonly" style="background-color:darkgray" />
<input type="hidden" name="txtUIDOld" value="@param11" />
<input type="hidden" name="txtPassOld" value="@param12" />
</td>
<td>
<b><font color="brown">*</font> Type of User:</b>
</td>
<td>
@Code
Dim strUType = lcase(trim(param13))
Dim strOpLevel = Trim(LCase(opLevel))
End Code
<select name="drpUType" size="1">
@if strUType = "operational user" then
@<option value="U" selected="selected">Operational User</option>
else
@<option value="U">Operational User</option>
end if
@if strUType = "manager" then
@<option value="M" selected="selected">Manager</option>
else
@<option value="M">Manager</option>
end if
@if strUType = "manager inject" then
@<option value="MI" selected="selected">Manager Inject</option>
else
@<option value="MI">Manager Inject</option>
end if
@if strUType = "division manager" then
@<option value="DM" selected="selected">Division Manager</option>
else
@<option value="DM">Division Manager</option>
end if
@if strUType = "labor manager" then
@<option value="LM" selected="selected">Labor Manager</option>
else
@<option value="LM">Labor Manager</option>
end if
@if strUType = "controller" then
@<option value="C" selected="selected">Controller</option>
else
@<option value="C">Controller</option>
end if
@if strUType = "district administrator" then
@<option value="DA" selected="selected">District Administrator</option>
else
@<option value="DA">District Administrator</option>
end if
@if strUType = "district user" then
@<option value="DU" selected="selected">District User</option>
else
@<option value="DU">District User</option>
end if
@select case strOpLevel
case "a", "ph", "is", "ci"
@if strOpLevel = "a" or strOpLevel = "ph" or strOpLevel = "is" or strOpLevel = "ci" then
@if strUType = "payroll lead" then
@<option value="P" selected="selected">Payroll Lead</option>
else
@<option value="P">Payroll Lead</option>
end if
@if strUType = "payroll clerk" then
@<option value="PC" selected="selected">Payroll Clerk</option>
else
@<option value="PC">Payroll Clerk</option>
end if
@if strUType = "payroll supervisor" then
@<option value="PS" selected="selected">Payroll Supervisor</option>
else
@<option value="PS">Payroll Supervisor</option>
end if
@if strUType = "administrator" then
@<option value="A" selected="selected">Administrator</option>
else
@<option value="A">Administrator</option>
end if
if strUType = "corporate inject" then
@<option value="CI" selected="selected">Corporate Inject</option>
else
@<option value="CI">Corporate Inject</option>
end if
end if
@if strOpLevel = "ph" or strOpLevel = "is" then
@if strUType = "payroll help desk" then
@<option value="PH" selected="selected">Payroll Help Desk</option>
else
@<option value="PH">Payroll Help Desk</option>
end if
@if strUType = "information services" then
@<option value="IS" selected="selected">Information Services</option>
else
@<option value="IS">Information Services</option>
end if
end if
End select
</select>
</td>
</tr>
</table>
<table cellpadding="2" cellspacing="4">
<tr>
<td>
<b><font color="brown">*</font> Manager ID: </b>
<input type="text" name="txtMID" value="@trim(param14)" size="8" maxlength="8" />
</td>
<td align="left">
<b><font color="brown">*</font> Manager/Approver Email Address: </b>
<input type="text" name="txtMEmail" value="@param15" size="20" maxlength="50" />
</td>
</tr>
</table>
</div>
@if opData <> "1" then
@<center>
<h3>Alternate Access List</h3>
</center>
@<table border="2" cellspacing="2" cellpadding="2" style="border-color:Maroon" align="center">
<tr style="background-color:rgb(202,183,155); font-size:small">
<th align="center">RRDD</th>
<th align="center">OP Type</th>
<th align="center">SLIC</th>
</tr>
@For Each objRs In dtRS.Rows
If Trim(objRs(0).Length) > 1
@<tr style="background-color:rgb(241,241,241); font-size:small" align="center">
<td> @objRs(0) </td>
<td> @objRs(1) </td>
<td> @objRs(2) </td>
</tr>
End If
Next
</table>
end if
<br />
<table align="center">
<tr>
<td align="center">
<b>Does User require Updates or Access to additional center (SLIC)?</b>
</td>
</tr>
<tr align="center">
<td align="center">
<input type="radio" name="radioYN" value="Y" />Yes
<input type="radio" checked="checked" name="radioYN" value="N" />No
</td>
</tr>
</table>
<hr style="width:95%" />
<table align="center">
<tr>
<td align="center">
<input type="hidden" name="opLevel" value="@opLevel" />
<input type="hidden" name="opName" value="@opName" />
<input type="hidden" name="opEmail" value="@opEmail" />
<input type="hidden" name="opGID" value="@opGID" />
<input type="hidden" name="opLog" value="@opLog" />
<input type="hidden" name="strUChangeID" value="@strUChangeID" />
<input type="submit" style="font-weight:bold" value="Update Profile" />
</td>
</tr>
</table>
@*@<table align="center" border="1" style="border-color:Red">
<tr>
<td align="center" style="font-weight:bold">
The operation cannot be completed this time. There is a problem in the server, please try later.
</td>
</tr>
</table>*@
</form>
@<hr style="color:Maroon" />
@<script language="JavaScript" type="text/javascript">
window.history.forward(1)
</script>
End If
<script language="JavaScript" type="text/javascript">
function LowToUpper() {
document.form1.txtSort.value = document.form1.txtSort.value.toUpperCase();
}
</script>
</body>
Write, Run & Share HTML code online using OneCompiler's HTML online Code editor for free. It's one of the robust, feature-rich online Code editor for HTML language, running on the latest version HTML5. Getting started with the OneCompiler's HTML compiler is simple and pretty fast. The editor shows sample boilerplate code when you choose language as HTML. You can also specify the stylesheet information in styles.css tab and scripts information in scripts.js tab and start coding.
HTML(Hyper Text Markup language) is the standard markup language for Web pages, was created by Berners-Lee in the year 1991. Almost every web page over internet might be using HTML.
<!DOCTYPE html><html> and ends with </html><h1> to <h6> where <h1> is the highest important heading and <h6> is the least important sub-heading.<p>..</p> tag.<a> tag.
<a href="https://onecompiler.com/html">HTML online compiler</a>
<img> tag, where src attribute consists of image name.<button>..</button> tag<ul> for unordered/bullet list and <ol> for ordered/number list, and the list items are defined in <li>.<a href="https://onecompiler.com/html">HTML online compiler</a>
CSS(cascading style sheets) describes how HTML elements will look on the web page like color, font-style, font-size, background color etc.
Below is a sample style sheet which displays heading in green and in Candara font with padding space of 25px.
body{
padding: 25px;
}
.title {
color: #228B22;
font-family: Candara;
}
<table> tag.<tr> tag<th> tag<td> tag<caption> tag<script> is the tag used to write scripts in HTML<script src="script.js"></script>