|
<mailto:%@LANGUAGE="VBscript'>%@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,
|