Update an existing customer

Select a customer to update:

<% OpenDatabase() sql = "SELECT customer_id, customer_business, customer_contact FROM customer WHERE customer_removed = 0 ORDER BY customer_business" Set tempRS = conn.Execute(sql) If tempRS.EOF Then Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Else Do Until tempRS.EOF cnt = cnt + 1 If cnt Mod 2 = 0 Then bgcolor = "F7F7E6" Else bgcolor = "E8E8E8" End If Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf tempRS.MoveNext Loop End If tempRS.Close CloseDatabase() %>

Functions	Customer Business	Customer Contact
No customers found. Click here to add a new customer.
Update	" & tempRS("customer_business") & "	" & tempRS("customer_contact") & "

Back