Aargh! Data not updating! Help!

[vbuser1976]

Okay, I have a form with text boxes and at the bottom of the form I have a table with text boxes in each cell. For each row of the table, if there is data, then If the data is new, then add new, otherwise, just update. If there is no data in the next row then stop saving. There are five rows. Could someone please look at the code below and see if there is something missing or wrong? Any help would be IMMENSELY appreciated.

<%
dim row
dim cn
dim rs
dim rs2
dim number

set cn = CreateObject("ADODB.Connection")
set rs = CreateObject("ADODB.Recordset")
set rs2 = CreateObject("ADODB.Recordset")

cn.Provider = "SQLOLEDB.1"
cn.ConnectionString = "DATABASE=ProMgmt;SERVER=WEBSQL;UID=sa;PWD=;"
cn.Open

Set rs.ActiveConnection = cn
Set rs2.ActiveConnection = cn
rs.CursorType = adOpenKeyset
rs2.CursorType = adOpenKeyset
rs.LockType = adLockOptimistic
rs2.LockType = adLockOptimistic

if Request.Form("ProjId") = "" then
   rs.Source = "ProjectManager"
   rs2.Source = "ProjectTaskList"
else
   rs.Source = "Select * from ProjectManager where ProjectId = " & Request.Form("ProjId")
   rs2.Source = "Select * from ProjectTaskList where IdNumber = " & Request.Form("ProjId")
end if

rs.Open
rs2.Open

'***Save New Project to Database
if Request.Form("ProjId") = "" then
   rs.AddNew
end if

rs.Fields("ProjectName") = Request.Form("PName")
rs.Fields("Owner") = Request.Form("Owner")
rs.Fields("DateSubmit") = Request.Form("Date")
rs.Fields("ProjLeader") = Request.Form("PLeader")
rs.Fields("AssignTo") = Request.Form("AssignName")
rs.Fields("ProjectDesc") = Request.Form("PDescription")
rs.Fields("Benefit") = Request.Form("Benefit")
rs.Fields("Duration") = Request.Form("Duration")
rs.Fields("Priority") = Request.Form("Priority")
rs.Fields("ProjectNotes") = Request.Form("Notes")
rs.Fields("ProjectStatus") = Request.Form("ProjStat")
rs.Fields("LastUpdate") = Date()
rs.Update
Id = rs.Fields("ProjectId")

'THIS IS WHERE THE PROBLEM BEGINS
Do While Request.Form("Task_" & number) <> ""
   If trim(rs2.Fields("TaskDesc")) = "" then
      rs2.AddNew
   End if
   rs2.Fields("IdNumber") = Id
   rs2.Fields("TaskDesc") = Request.Form("Task_" & number)
   rs2.Fields("TaskPriority") = Request.Form("TPriority_" & number)
   rs2.Fields("TaskAssignName") = Request.Form("Assign_" & number)
   rs2.Fields("TaskDue") = Request.Form("DueDate_" & number)
   rs2.Fields("TaskStatus") = Request.Form("Status_" & number)
   rs2.Fields("TaskComments") = Request.Form("Comments_" & number)
   rs2.Update
   number = number + 1
Loop

'***Generate output

Response.Write "<p>Thanks for your input.  This is what you entered:</p>"
Response.Write "<p>Project Name: " & Request.Form("PName") & "<br>"
Response.Write "Project Owner: " & Request.Form("Owner") & "<br>"
Response.Write "Date Submitted: " & Request.Form("Date") & "<br>"
Response.Write "Project Leader: " & Request.Form("PLeader") & "<br>"
Response.Write "Assigned To: " & Request.Form("AssignName") & "<br>"
Response.Write "Project Description: " & Request.Form("PDescription") & "<br>"
Response.Write "Business Benefit: " & Request.Form("Benefit") & "<br>"
Response.Write "Duration of Project: " & Request.Form("Duration") & "<br>"
Response.Write "Priority Code: " & Request.Form("Priority") & "<br>"
Response.Write "Project Notes: "  & Request.Form("Notes") & "<br>"
Response.Write "Project Status: " & Request.Form("ProjStat") & "<br>"
Response.Write "This project was last updated on " & rs.Fields("LastUpdate") & ".</p>"
Response.Write "<b><i>Your Project ID is: " & rs.Fields("ProjectId") & "</i></b>"
rs.Close
rs2.Close
cn.Close
%>

[josmond]

What is the error message??

[vbuser1976]

I am now getting a new problem when I try to add a new record of data to the existing data. This is the error:

error '80020009' 
Exception occurred. 

/promgmt.com/inres.asp, line 102

Any assistance would be greatly appreciated.