<%
user=request.querystring("user")
'Declare variables needed
Dim strSQL
Dim adCmdText

'Set required variables
adCmdText = 1

'***********************************************************
'* Step 1: Display a list of boat class names to select from
'***********************************************************
If Len(Request.Form("FormAction")) = 0 Then

'Create the recordset object
Set objRS = Server.CreateObject("ADODB.Recordset")

'Open the recordset getting a list of all boat classes
objRS.Open "Select Distinct wedate from everyone'","DSN=offstats"
'Response.write objRS("user") & "<BR>"
%>
<form action=Ex.asp method=post name=frmDisplay>
<input type=hidden name=FormAction value=Step2>
<table>
<tr>
<td colspan=2>Select a we date to update</td>
</tr>
<tr>
<td>WE Date</td>
<td><select name=cbowedate>
<%
'Loop through the recordset adding class name to the combo box
Do While Not objRS.EOF
%>
<option value="<%=objRS("wedate")%>">
<%=objRS("wedate")%></option>
<%
objRS.MoveNext

Loop

'Close and dereference database objects
objRS.Close
Set objRS = Nothing
%>
</select>EDSNET ID <input NAME="user" VALUE="<%=Request.ServerVariables("REMOTE_USER")%>" size="20"></td>
</tr>
<tr>
<td height=60><input type=submit name=btnSubmit value=Submit></td>
</tr>
</table>
</form>

<%
'***********************************************************
'* Step 2: Display the update form
'***********************************************************
ElseIf Request.Form("FormAction") = "Step2" Then

'Build the SQL string
strSQL = "Select * from Everyone where wedate = '" & _

CStr(Request.Form("cbowedate")) & "'"

'Create the recordset object
Set objRS = Server.CreateObject("ADODB.Recordset")

'Open the recordset getting the boat class details
objRS.Open strSQL,"DSN=offstats"
%>

<form action=update2.asp method=post name=frmUpdate>
<%
'Loop through the recordset adding class name to the combo box
'Do While Not objRS.EOF
%>

<input type=hidden name=txtClassName
value="<%=objRS("Account")%>"><input type=hidden name=FormAction value=Step3>
<p>
ID    <input type="text" name="ID" size="20" value="<%=objRS("id")%>">
</p>
<p>
Account <input type=text name=account size=30
value=<%=objRS("account")%>>
</p>
<p>
EDSNET <input NAME="edsnet" VALUE="<%=Request.ServerVariables("REMOTE_USER")%>" size="20">
</p>
<table height="334">
<tr>
<td nowrap height="21">Allison Cust</td>
<td height="21"><input type="text" name="aecust" size="20" value="<%=objRS("cust")%>"></td>
</tr>
<tr>
<td nowrap height="25">Allison SN</td>
<td height="25"><input type=text name=aesn size=5
value=<%=objRS("sn")%>></td>
</tr>
<tr>
<td nowrap height="25">SA</td>
<td height="25"><input type=text name=aesa size=5
value=<%=objRS("sa")%>></td>
</tr>
<tr>
<td nowrap height="25">SE</td>
<td height="25"><input type=text name=aese size=5
value=<%=objRS("se")%>></td>
</tr>
<tr>
<td nowrap height="25">Misc</td>
<td height="25"><input type=text name=aemisc size=5
value=<%=objRS("misc")%>></td>
</tr>
<tr>
<td height="25">Undisp</td>
<td height="25"><input type=text name=aeundisp size=30
value=<%=objRS("undisp")%>></td>
</tr>
<tr>
<td height="21">Report</td>
<td height="21"><input type=text name=aereport size=30
value=<%=objRS("report")%>></td>
</tr>
<tr>
<td height="21">FYI</td>
<td height="21"><input type=text name=aefyi size=30
value=<%=objRS("fyi")%>></td>

</tr>
</table>
<%

objRS.MoveNext

'Loop

'Close and dereference database objects
'objRS.Close
'Set objRS = Nothing
'End If
%>

ID <input type="text" name="argid" size="20" value="<%=objRS("id")%>">
<p>Account <input type=text name=argaccount size=30
value=<%=objRS("account")%>>

</p>
<p>ARG Cust <input type="text" name="argcust" size="20" value="<%=objRS("cust")%>">
</p>
<p>ARG SN <input type="text" name="argsn" size="20" value="<%=objRS("sn")%>">
</p>
<p><input type="submit" value="Submit" name="Submit">

<br>

<% End If %>
</p>
</form>
---------------------------
Here is the error message I am getting:

Record is now updated!

Your update is shown below
UPDATE Everyone SET account='Allison',edsnet='VMCWEB\rzm41v',cust='111',sn='221',sa='331',se='441',misc='551',undisp='661',report='771',fyi='881' WHERE ID=516Database Errors Occured

UPDATE Everyone SET argcust='201',argsn='191' WHERE ID=517

Error #-2147217904

Error desc. -> [Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 2.
------------------
Any help is apprecited! Thanks!

It may be expecting more inputs that you have supplied