thanks...much appreciated. I am still going to look at it and try to figure out whats wrong. Here is the Form page:
<%@ Language=VBScript %>
<% Response.Buffer=true %>
<%
dim conn
Session.timeout = 2
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "attendance2004","",""
sQl="SELECT * FROM ""servicesStaffQuery"" ORDER BY ""shiftcode"" ASC, ""fullname"" ASC"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3, 3
%>
<html>
<head>
<meta HTTP-EQUIV="Content-Type" CONTENT="text/html;charset=windows-1252">
<title>Services Scheduled Shifts</title>
</head>
<body bgcolor="" text="navy">
<form METHOD="POST" ACTION="shifts2.asp" style="border: 1px solid #000000; background-color: #EAEAEA; ">
<p align="left"><font color="#00008B">Week Starting: <input type="text" name="weekof" size="20"> mm/dd/yyyy
</font></p>
<table WIDTH="220" BORDER="0" CELLSPACING="0">
<font FACE="Arial" COLOR="#000000">
<tr>
<th BGCOLOR="#ffffcc" WIDTH="140" align="left" ><span style="font-weight: 400"><font FACE="Arial" COLOR="darkblue">Name</font></span></th>
<th BGCOLOR="#ffffcc" WIDTH="100" align="right"><span style="font-weight: 400"><font FACE="Arial" COLOR="darkblue"># Shifts Sched</font></span></th>
</tr>
</table>
<span id="dataPanel"
style="font:10pt;height:420px;width=400px;visibility:visible;overflow:scroll;background:#ffffff;border:0
inset black">
<table WIDTH="324" BORDER="0" CELLSPACING="0">
<font FACE="Arial" COLOR="#000000">
<%
i=0
On Error Resume Next
rs.MoveFirst
Do While Not RS.EOF
i=i+1
%>
<tr>
<td WIDTH="120"><font SIZE="2"><input type="HIDDEN" name="fullname<%=i%>" value="<%Response.Write(rs.Fields("FullName"))%>"><%Response.Write(rs.Fields("FullName"))%></font></td>
<td width="58" align="center"><font color="blue"><input TYPE="text" NAME="shiftsworked<%=i%>" size="5">
</tr>
<%
rs.MoveNext
loop%></span>
<td><input type="submit" value="Submit" name="submit"></left></td>
<input type = "HIDDEN" Name = "recCount" Value = <%=i%>>
</table>
</form>
</font>
</body>
</html>
and the update page
<% DIM conntemp, mySQL, myDSN, recCount
recCount=Request.Form("recCount")
myDSN = "DSN=attendance2004"
set conntemp=server.createobject("adodb.connection")
conntemp.open myDSN
FOR i = 1 to recCount
IF Request("ShiftsWorked" & i) <> "" THEN
mySQL = "INSERT INTO ShiftsWorkedCOPY (WeekOf, FullName, ShiftsWorked) VALUES"
mySQL = mySQL & " (#" & Request("WeekOf") & "#, '" & Request("Fullname" & i) & "', " & Request("ShiftsWorked" & i) & ")"
conntemp.execute(mySQL)
END IF
NEXT
conntemp.close
set conntemp=nothing
Response.write "Records added."
%>
