<%@ Language=VBScript %> <% if len(Request.Form("FUNCTION")) < 2 THEN if Session("US") = "" THEN 'If Uninitialized then load data ' Session("US") = "1" if Session("user_name") = "" then 'Require Valid User Response.Redirect "Index.asp" end if Session("table") = "users" 'Custom, For Include file Session("Field_ID") = "user_id" 'Custom Session("TITLE") = "User Details" 'Custom Session("Detail_Page") = Right(Request.ServerVariables("URL"), len(Request.ServerVariables("URL")) - InStrRev(Request.ServerVariables("URL"), "/") ) Session("NAME") = Request.Form("NAME") Session("LOCATION") = Request.Form("LOCATION") Session("ID") = Request.Form("KEY") end if %> <%if Session("STATUS") = "3" then %> <% End if %>

General USERS Information
User Name:	value='<% if Request.Form("MOVE") <> "New" then Response.write Recordset1("USER_NAME")%>' size="15" ID="USER_NAME">
Password:	value='<% if Request.Form("MOVE") <> "New" then Response.write Recordset1("PASSWORD")%>' size="15" OnChange='if (prompt("Please, retype Password for confirmation.","")!=document.forms[0].PASSWORD.value) { alert("Your confirmation Password does not match. Please try again.") document.forms[0].PASSWORD.value = ""; document.forms[0].PASSWORD.focus(); }' ID="Password1">
Status:	value='<% if Request.Form("MOVE") <> "New" then Response.write Recordset1("STATUS")%>' size="15" ID="Text2">
Company:	value='<% if Request.Form("MOVE") <> "New" then Response.write Recordset1("COMPANY")%>' size="15">
Address:	value='<% if Request.Form("MOVE") <> "New" then Response.write Recordset1("ADDRESS")%>' size="15" ID="ADDRESS">
City:	value='<% if Request.Form("MOVE") <> "New" then Response.write Recordset1("CITY")%>' size="15" ID="CITY">
State:	value='<% if Request.Form("MOVE") <> "New" then Response.write Recordset1("STATE")%>' size="15" ID="STATE">
Zip:	value='<% if Request.Form("MOVE") <> "New" then Response.write Recordset1("ZIP")%>' size="15" ID="ZIP">
Contact:	value='<% if Request.Form("MOVE") <> "New" then Response.write Recordset1("CONTACT")%>' size="15" ID="CONTACT">
Email:	value='<% if Request.Form("MOVE") <> "New" then Response.write Recordset1("EMAIL")%>' size="15" ID="EMAIL">
Phone:	value='<% if Request.Form("MOVE") <> "New" then Response.write Recordset1("PHONE")%>' size="15" ID="PHONE">

<%ELSE%> <%END If 'if Request.Form("FUNCTION") = "" THEN '------------------------------------------------------------------- ' PROCEDURES Sub Update ' if not transaction = 1 then transaction = 2 IF Request.Form("L1") = "on" then L1 = 1 ELSE L1 = 0 IF Request.Form("L2") = "on" then L2 = 1 ELSE L2 = 0 IF Request.Form("L3") = "on" then L3 = 1 ELSE L3 = 0 IF Request.Form("L4") = "on" then L4 = 1 ELSE L4 = 0 IF Request.Form("L5") = "on" then L5 = 1 ELSE L5 = 0 Set DatabaseConnection = Server.CreateObject("ADODB.Connection") DatabaseConnection.Open Application("Connection1") Set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.CursorType = 1 Recordset1.CursorLocation = 2 Recordset1.LockType = 3 Recordset1.ActiveConnection = DatabaseConnection if transaction = 1 then Recordset1.Source = "USERS" Recordset1.Open Recordset1.AddNew else ID = Session("ID") SQLstring = "SELECT * FROM USERS WHERE (((USERS.USER_ID)="&ID&"));" Recordset1.Open SQLstring, DatabaseConnection end if ' IF Request.Form.Item("FUNCTION") = "SAVE AS" THEN ' RECORDSET1.AddNew ' END IF Recordset1("PASSWORD") = Request.Form.Item("PASSWORD") Recordset1("USER_NAME") = Request.Form.Item("USER_NAME") Recordset1("COMPANY") = Request.Form.Item("COMPANY") Recordset1("ADDRESS") = Request.Form.Item("ADDRESS") Recordset1("CITY") = Request.Form.Item("CITY") Recordset1("STATE") = Request.Form.Item("STATE") Recordset1("ZIP") = Request.Form.Item("ZIP") Recordset1("PHONE") = Request.Form.Item("PHONE") Recordset1("CONTACT") = Request.Form.Item("CONTACT") Recordset1("EMAIL") = Request.Form.Item("EMAIL") Select Case transaction Case 1 Recordset1("STATUS") = "1" Case 2 if Request.Form.Item("STATUS") <> "" then Recordset1("STATUS") = Request.Form.Item("STATUS") Case 3 Recordset1("STATUS") = "0" End Select Recordset1.Update Recordset1.Close DatabaseConnection.Close Set DatabaseConnection = Nothing %> <%End Sub%>