ACLUS Update Member

<% If Request("customer_id") <> "" And IsNumeric(Request("customer_id")) Then CustomerID = Request("customer_id") Else CustomerID = 0 If Request("action") <> "" Then SQL = "" SQL = "UPDATE customers SET " & _ "first_name = " & CSQL(Request("first_name")) & "," & _ "last_name = " & CSQL(Request("last_name")) & "," & _ "company = " & CSQL(Request("company")) & "," & _ "address = " & CSQL(Request("address")) & "," & _ "address2 = " & CSQL(Request("address2")) & "," & _ "city = " & CSQL(Request("city")) & "," & _ "state = " & CSQL(Request("state")) & "," & _ "zip = " & CSQL(Request("zip")) & "," & _ "country = " & CSQL(Request("country")) & "," & _ "phone = " & CSQL(Request("phone")) & "," & _ "fax = " & CSQL(Request("fax")) & "," & _ "email = " & CSQL(Request("email")) & "," & _ "password = " & CSQL(Request("password")) & "," & _ "is_disabled = " & MakeNumber(Request("is_disabled")) & " " & _ "WHERE customer_id = " & CustomerID Con.Execute(SQL): SQL = "" eMsg = "This member's information has been updated" End If Set RS = Con.Execute("SELECT * FROM customers WHERE customer_id = " & CustomerID) If RS.EOF Then RS.Close: Set RS = Nothing Response.Redirect("default.asp") End If %> ACLUS Update Member

ACLUS | Admin | Member Details

« back to members

<% If eMsg <> "" Then %>

<%=eMsg%>

<% End If %>

All fields marked with * are required.

Membership Information
* First Name	" size="35" maxlength="50" />
* Last Name	" size="35" maxlength="50" />
Company	" size="35" maxlength="100" />
* Address	" size="35" maxlength="50" />
(cont)	" size="35" maxlength="50" />
* City	" size="35" maxlength="50" />
* State / Province	" size="35" maxlength="50" />
* Postal Code	" size="15" maxlength="15" />
* Country	" size="35" maxlength="50" />
* Phone	" size="20" maxlength="20" />
Fax	" size="20" maxlength="20" />
* Email	" size="35" maxlength="100" />
* Password	" size="20" maxlength="20" />
* Is Disabled

« back to members

<% RS.Close: Set RS = Nothing %> <% KillCon() %>