Okay it all works... all you have to do is change the fields, table names and the database connection information.
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html>
<head>
<title>Replace and Reassign</title>
</head>
<body style="font-family: Verdana; font-size: 10pt; color: #000000;">
<form action="" method="post">
<p>Enter name of the sales rep that you wish to re-assign: <input type="text" size="40" name="sales" /></p>
<p><input type="submit" value="Re-assign." name="submit" /></p>
</form>
<%
If Request.Form("sales")<>"" Then
Dim strConnection, intCustomers, intRepID
Set cSQL=Server.CreateObject("ADODB.Connection")
strConnection = "Driver=MySQL;server=GEMINI;user id=;password=;database=test1;"
cSQL.ConnectionString=strConnection
cSQL.Open
Set reps=cSQL.Execute("SELECT * FROM salesreps WHERE name='"&Request.Form("sales")&"';")
If reps.EOF Then
%>
<p style="color: #FF0000;"><b>ERROR : </b>There was no sales rep with that name in the database.</p>
<%
Else
intRepID=reps("salesrepID")
Set reps=cSQL.Execute("SELECT * FROM salesreps WHERE status='Active';")
intCustomers=0
Set cmrs=cSQL.Execute("SELECT * FROM customers WHERE salesrepID='"&intRepID&"';")
Do While Not cmrs.EOF
If reps.EOF Then reps.MoveFirst
cSQL.Execute "UPDATE customers SET salesrepID='" & reps("salesrepID") & "' WHERE fullname='" & cmrs("fullname") & "'"
intCustomers=intCustomers+1
cmrs.MoveNext
reps.MoveNext
Loop
%>
<p><b>Update completed. <%= intCustomers %> customers were re-assigned.</b></p>
<%
End If
End If
%>
</body>
</html>
It should all work.