<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% ' *** Edit Operations: declare variables Dim MM_editAction Dim MM_abortEdit Dim MM_editQuery Dim MM_editCmd Dim MM_editConnection Dim MM_editTable Dim MM_editRedirectUrl Dim MM_editColumn Dim MM_recordId Dim MM_fieldsStr Dim MM_columnsStr Dim MM_fields Dim MM_columns Dim MM_typeArray Dim MM_formVal Dim MM_delim Dim MM_altVal Dim MM_emptyVal Dim MM_i MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) If (Request.QueryString <> "") Then MM_editAction = MM_editAction & "?" & Request.QueryString End If ' boolean to abort record edit MM_abortEdit = false ' query string to execute MM_editQuery = "" %> <% ' *** Delete Record: declare variables if (CStr(Request("MM_delete")) = "frm_delete" And CStr(Request("MM_recordId")) <> "") Then MM_editConnection = MM_pl_users_STRING MM_editTable = "Usernames" MM_editColumn = "ContactID" MM_recordId = "" + Request.Form("MM_recordId") + "" MM_editRedirectUrl = "/admin/deleted.asp" ' append the query string to the redirect URL If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString Else MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString End If End If End If %> <% ' *** Delete Record: construct a sql delete statement and execute it If (CStr(Request("MM_delete")) <> "" And CStr(Request("MM_recordId")) <> "") Then ' create the sql delete statement MM_editQuery = "delete from " & MM_editTable & " where " & MM_editColumn & " = " & MM_recordId If (Not MM_abortEdit) Then ' execute the delete Set MM_editCmd = Server.CreateObject("ADODB.Command") MM_editCmd.ActiveConnection = MM_editConnection MM_editCmd.CommandText = MM_editQuery MM_editCmd.Execute MM_editCmd.ActiveConnection.Close If (MM_editRedirectUrl <> "") Then Response.Redirect(MM_editRedirectUrl) End If End If End If %> <% Dim rs_userdetail__MMColParam rs_userdetail__MMColParam = "1" If (Request.QueryString("Username") <> "") Then rs_userdetail__MMColParam = Request.QueryString("Username") End If %> <% Dim rs_userdetail Dim rs_userdetail_numRows Set rs_userdetail = Server.CreateObject("ADODB.Recordset") rs_userdetail.ActiveConnection = MM_pl_users_STRING rs_userdetail.Source = "SELECT * FROM Usernames WHERE Username = '" + Replace(rs_userdetail__MMColParam, "'", "''") + "'" rs_userdetail.CursorType = 0 rs_userdetail.CursorLocation = 2 rs_userdetail.LockType = 1 rs_userdetail.Open() rs_userdetail_numRows = 0 %> PrivateLabel - User Datails

User Details

 
Username:
<%=(rs_userdetail.Fields.Item("Username").Value)%>
Pasword:
<%=(rs_userdetail.Fields.Item("Password").Value)%>
Access Level:
<%=(rs_userdetail.Fields.Item("Access").Value)%>
First Name:
<%=(rs_userdetail.Fields.Item("FirstName").Value)%>
Last Name:
<%=(rs_userdetail.Fields.Item("LastName").Value)%>
Company:
<%=(rs_userdetail.Fields.Item("CompanyName").Value)%>
eMail Address:
<%=(rs_userdetail.Fields.Item("EmailName").Value)%>

 

Return

">
 

 

<% rs_userdetail.Close() Set rs_userdetail = Nothing %>