<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% DIM adminLevel DIM accStatus DIM statusSwitch DIM deleted DIM objRS DIM strURL Dim strSQL Dim iRecordCount DIM sid sid = Request.QueryString("sid") strURL = Request.ServerVariables("URL") strSQL = "SELECT bmsWebUsers.* FROM bmsWebUsers WHERE bmsWebUsers.id_bmsUsers = " & sid & ";" Set objRS = Server.CreateObject("ADODB.Recordset") objRS.CursorType = 2 objRS.LockType = 3 objRS.Open strSQL,objConn IF objRS("bmsAdmin") = "true" THEN adminLevel = "system administrator" ELSE IF objRS("bmsAdmin") = "false" THEN adminLevel = "web user" END IF END IF IF objRS("bmsActive") = "true" THEN accStatus = "active" ELSE IF objRS("bmsActive")= "false" THEN accStatus = "inactive" END IF END IF IF objRS("bmsActive") = "true" THEN statusSwitch = "deactivate this user" ELSE IF objRS("bmsActive") = "false" THEN statusSwitch = "activate this user" END IF END IF IF objRS("bmsDelete") = "true" THEN deleted = "un-delete this user" ELSE IF objRS("bmsDelete") = "false" THEN deleted = "delete this user" END IF END IF %>

	user details <%=objRS("bmsSurname")%>, <%=objRS("bmsFirstName")%> <%=adminLevel%> status: <%=accStatus%> Date regisitered: <%=(day(objRS("bmsDateRegistered"))) & "-" & (Monthname(month(objRS("bmsDateRegistered")),true)) & "-" & (Year(objRS("bmsDateRegistered")))%> " target="_parent" class="item">edit this user Username: <%=objRS("bmsUsername")%> <%=deleted%> Password: <%=objRS("bmsPassword")%> <%=statusSwitch%> Email address: " class="item"><%=objRS("bmsEmailAddress")%> Telephone: <%=objRS("bmsTelephone")%> Cellphone: <%=objRS("bmsCellphone")%> Facsimile: <%=objRS("bmsFacsimile")%> Address: <%=objRS("bmsAddress1")%> <%=objRS("bmsAddress2")%> <%=objRS("bmsAddress3")%> <%=objRS("bmsAddress4")%>