-
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. :)
Code:
<%
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
%>
-
What is the error message??
-
New Problem....
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:
Code:
error '80020009'
Exception occurred.
/promgmt.com/inres.asp, line 102
Any assistance would be greatly appreciated.
