<% @language="vbscript" %> DMR EzApp Update Page <% if not Session("Admin") then Response.Write("No Admin Access Priviledge") Response.Redirect MAIN_APP_PAGE end if %>
 

Digital Market Research - EzApp Update User

  
 

Logged in as: <%=Session("UID")%> - <%=Session("UIDEmail")%> <% if Session("Admin") then Response.Write(" - Admin Access - Hosted on: ") Response.Write(Request.ServerVariables("HTTP_HOST")) end if %>

 

 

  Return
<% ' ' Declare the variables ' Dim con Dim rst Dim strSQL ' ' Create a Connection object and point it to ' the DMR User data source ' Set con = Server.CreateObject("ADODB.Connection") con.Open "driver={Microsoft Access Driver (*.mdb)}; dbq=" & Server.MapPath(DMRUSRDB) & "; uid=; pwd=" ' ' Create a recordset with one record in it ' based on the UserName passed to this page ' from the DMREzAppUseEdit.asp page ' strSQL = "SELECT * FROM " & USERS_TABLE & " WHERE UserName ='" & Request("UserName") & "';" Set rst = Server.CreateObject("ADODB.Recordset") rst.Open strSQL, con, adOpenStatic, adLockReadOnly, adCmdText ' ' Only display form if there is a matching ' record ' If Not rst.EOF Then %>
">
 

UserName:

 <% = rst("UserName") %>
 

Password:

  " tabindex="1">
 

Email:

  " tabindex="2">
 

Admin:

  

 
<% Else %> No record was found matching this UserName: <% =rst("UserName") %>! <% End If ' Clean-up time rst.Close con.Close %>