<%SUB userDetail()%> <% DIM objRS DIM strSQL DIM sid sid = Request.QueryString("sid") Set objRS = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT id_bmsUsers,bmsUsername,bmsPassword,bmsFirstName,bmsSurname," & _ "bmsAddress1,bmsAddress2,bmsAddress3,bmsAddress4,bmsTelephone," & _ "bmsCellphone,bmsEmailAddress,bmsFacsimile,bmsDateRegistered," & _ "bmsTimeRegistered,bmsIPAddress,bmsActive FROM bmsWebUsers " & _ "WHERE id_bmsUsers = " & sid & ";" objRS.CursorType = 2 objRS.Open strSQL,objConn IF len(day(objRS("bmsDateRegistered"))) = 1 THEN regDate = "0" & day(objRS("bmsDateRegistered")) & "-" & monthName(month(objRS("bmsDateRegistered")),true) & "-" & year(objRS("bmsDateRegistered")) ELSE regDate = day(objRS("bmsDateRegistered")) & "-" & monthName(month(objRS("bmsDateRegistered")),true) & "-" & year(objRS("bmsDateRegistered")) END IF IF len(hour(objRS("bmsTimeRegistered"))) = 1 THEN regHour = "0" & hour(objRS("bmsTimeRegistered")) ELSE regHour = hour(objRS("bmsTimeRegistered")) END IF IF len(minute(objRS("bmsTimeRegistered"))) = 1 THEN regMinute = "0" & minute(objRS("bmsTimeRegistered")) ELSE regMinute = minute(objRS("bmsTimeRegistered")) END IF IF len(second(objRS("bmsTimeRegistered"))) = 1 THEN regSecond = "0" & second(objRS("bmsTimeRegistered")) ELSE regSecond = second(objRS("bmsTimeRegistered")) END IF regTime = regHour & ":" & regMinute & ":" & regSecond IF objRS("bmsActive") = "true" THEN accStat = "active" ELSE IF objRS("bmsActive") = "false" THEN accStat = "in-active" END IF END IF %>

<% objRS.Close Set objRS = Nothing objConn.Close Set objConn = Nothing %> Detail for: <%=objRS("bmsFirstName")%> <%=objRS("bmsSurname")%>. username: <%=objRS("bmsUsername")%> password: <%=objRS("bmsPassword")%> date registered: <%=regDate%> time registered: <%=regTime%> acccount status: <%=accStat%> I.P. Address: <%=objRS("bmsIPAddress")%> Cellphone: <%=objRS("bmsCellphone")%> Telephone: <%=objRS("bmsTelephone")%> email address: <%=objRS("bmsEmailAddress")%> address: <%=objRS("bmsAddress1")%> <%=objRS("bmsAddress2")%>   <%=objRS("bmsAddress3")%>   <%=objRS("bmsAddress4")%> <% IF objRS("bmsActive") = "false" THEN %> <% ELSE IF objRS("bmsActive") = "true" THEN %> <% END IF END IF %> " target="_parent" class="whiteTen">activate this user " target="_parent" class="whiteTen">deactivate this user " target="_parent" class="whiteTen">edit this user " target="_parent" class="whiteTen">delete this user

<%END SUB%>