<%@ LANGUAGE="VBSCRIPT" %> <% ID = Session("ID") %> Pittsburgh Upholstery
<%= FormatDateTime(Now,1) %>    

Edit My Account | Work Examples | Contact Us On-line | Home |Customer Home | Log Off
<% ErrorMessage = Request("ErrorMessage") If ErrorMessage <> "" Then %> <% End If %>

<% Set ConnPasswords = Server.CreateObject("ADODB.Connection") Set CmdEditUser = Server.CreateObject("ADODB.Recordset") ConnPasswords.Open ConnectionString SQL = "SELECT USERS.* FROM USERS WHERE (ID = " & ID & ")" CmdEditUser.Open SQL, ConnPasswords EXPIRATION_DATE =CmdEditUser("EXPIRATION_DATE") If IsEmpty(EXPIRATION_DATE) Or IsNull(EXPIRATION_DATE) Or EXPIRATION_DATE ="" Then EXPIRATION_DATE = "" Else EXPIRATION_DATE = month(EXPIRATION_DATE) & "/" & day(EXPIRATION_DATE) & "/" & year(EXPIRATION_DATE) End IF UserExpired = "No" If EXPIRATION_DATE <> "" Then If CDATE(EXPIRATION_DATE) <= DATE Then UserExpired = "Yes" End IF End IF %>

">
First Name " style="border:1px solid #660066; font-family: Tahoma; "> Last Name " style="border:1px solid #660066; font-family: Tahoma; ">
Address " style="border:1px solid #660066; font-family: Tahoma; "> City " style="border:1px solid #660066; font-family: Tahoma; ">
State Zip Code " style="border:1px solid #660066; font-family: Tahoma; ">
Email Address " style="border:1px solid #660066; font-family: Tahoma; "> Phone " style="border:1px solid #660066; font-family: Tahoma; ">
User Name <%=CmdEditUser("USERNAME")%> Password " style="border:1px solid #660066; font-family: Tahoma; ">

<% CmdEditUser.Close Set CmdEditUser = Nothing ConnPasswords.Close Set ConnPasswords = Nothing %>