Concurrent Updates of status not working

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic


   <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>
<head>
<script language="javascript">
<!--
var numOfBoxes = 8;
function enable(inBox) {
if (!document.forms['myForm']['cb' + inBox].checked) {
// If the user unchecked a box, then disable all after it
for (var i = inBox + 1; i <= numOfBoxes; i ++) {
document.forms['myForm']['cb' + i].checked = false;
document.forms['myForm']['cb' + i].disabled = true;
}
}
else {
// User checked a box, so enable the next
document.forms['myForm']['cb' + (inBox+1)].disabled = false;
}
}
//-->
</script>
<script language="javascript">
<!--
function updateCookie()
{
document.forms['myForm']['cb' + inBox]=document.forms['myForm']['cb' + i].checked.value
location.reload(true)
}
//-->
</script>
</head>
<body>
<%
Set DataConnection = Server.CreateObject("ADODB.Connection")
DataConnection.Open "dsn=aqaqas"
ProjectID = Request.QueryString("Project_ID")
competestatus = "Completed"
    sql = "SELECT * FROM tblStatus WHERE tblStatus.StatusName = '"&competestatus&"'"
    set statusset = DataConnection.execute(sql)
        if not statusset.eof then
            compstatusid = statusset("StatusID")
        end if
        statusset.close
        set statusset = nothing
    sql = "SELECT tblProjectTasks.TaskID, tblProjectTasks.Project_id, tblProjectTasks.StatusID "
    sql = sql & " FROM tblProjectTasks WHERE tblProjectTasks.Project_ID = "&ProjectID&""
    sql = sql & "AND tblProjectTasks.StatusID <> "&compstatusid&""
    set projectset = dataconnection.execute(sql)
    if not projectset.eof then
%>
<%
FUNCTION SortArray(varArray)
    For i = UBound(varArray) - 1  To 1 Step - 1
        MaxVal = varArray(i)
        MaxIndex = i
        For j = 0 To i
            If varArray(j) > MaxVal Then
                MaxVal = varArray(j)
                MaxIndex = j
            End If
        Next
        If MaxIndex < i Then
            varArray(MaxIndex) = varArray(i)
            varArray(i) = MaxVal
        End If
    Next
    'response.write "array sort complete"
END FUNCTION
SQL = "SELECT * FROM tblProjects WHERE tblProjects.Project_id = "&ProjectID&""
set RS = DataConnection.Execute(sql)
if not RS.EOF then
    ProjName = RS("projName")
end if
RS.Close
set RS = nothing
val = request.form("val")
if val = "yes" then
    redim arrSORT(8)
    tasknum = 0
    arraycount = -1
    for each item in request.Form
        if item = "val" or item = "btnUpdate" or item = "txtTaskCode"  or item = "txtIssues" or item = "txtDailyNotes" or item = "txtEndDate" or item = "txtPR_Percent" or item = "txtstatus" then
        else
        ptaskID = Right(item, 1)
        arrSORT(tasknum) = int(ptaskID)
        tasknum = tasknum + 1
        arraycount = arraycount + 1
        end if
    next
        ReDim Preserve arrSORT(arraycount + 1)
            SortArray arrSORT
            ReDim Preserve arrSORT(arraycount)
                currenttaskarryposition =  Ubound(arrSORT)
                currenttask = arrSORT(currenttaskarryposition)
    txtIssues = request.form("txtIssues")
    txtDailyNotes = request.form("txtDailyNotes")
    txtPR_Percent = request.form("txtPR_Percent")
    txtstatus = request.form("txtstatus")
    thissql = "SELECT * FROM tblStatus where tblStatus.StatusID = "&txtstatus&""
    set statusset = DataConnection.execute(thissql)
    StatusName = statusset("StatusName")
    statusset.close
    set statusset = nothing
    set UpdateSet = Server.CreateObject("ADODB.RecordSet")
    UpdateSet.Open "SELECT * FROM tblProjectTasks WHERE tblProjectTasks.Project_id = "&ProjectID&" AND tblProjectTasks.TaskID = "�ttask&"", DataConnection, 2, 2, &H0001
    if not UpdateSet.eof then
        projectTaskID = updateset("ProjectTaskID")
        thecurrentstatus = UpdateSet("StatusID")
        if thecurrentstatus <> txtstatus then
        UpdateSet("StatusID") = txtstatus
        if competestatus = StatusName then
        UpdateSet("DateCompleted") = now()
        end if
        UpdateSet.Update
        UpdateSet.close
        end if
    end if
    if int(txtstatus) = int(compstatusid) then
    nextptaskID = currenttask + 1
    set UpdateSet = Server.CreateObject("ADODB.RecordSet")
    UpdateSet.Open "SELECT * FROM tblProjectTasks WHERE tblProjectTasks.Project_id = "&ProjectID&" AND tblProjectTasks.TaskID = "&nextptaskID&"", DataConnection, 2, 2, &H0001
    if not UpdateSet.eof then
        curentstatus = Updateset("StatusID")
        nexttaskstatusID = curentstatus + 1
        UpdateSet("StatusID") = nexttaskstatusID
        Updateset("StartDate") = now()
        UpdateSet.Update
        UpdateSet.close
    else
        set UpdateSet = Server.CreateObject("ADODB.RecordSet")
        UpdateSet.Open "SELECT * FROM tblProjects WHERE tblProjects.Project_id = "&ProjectID&"", DataConnection, 2,