<%Set conn = Server.CreateObject("ADODB.Connection") conn.Open "DSN=damian;uid=damian;pwd=FuckinDamo" TaskLookupID = request("EditTask") If request("SaveForm") = "1" then Set rsUpdateTask = Server.CreateObject("ADODB.Recordset") strUpdateTask = "SELECT * FROM TASKMAST WHERE TASKID = " & TaskLookupID rsUpdateTask.CursorType = 2 rsUpdateTask.LockType = 3 rsUpdateTask.Open strUpdateTask, conn rsUpdateTask.Fields("TaskName") = Request.Form("TaskName") rsUpdateTask.Fields("TaskLevel") = Request.Form("TaskLevel") rsUpdateTask.Fields("TaskObjective") = Request.Form("TaskObjective") rsUpdateTask.Fields("TaskValue") = Request.Form("TaskValue") rsUpdateTask.Fields("TaskType") = Request.Form("TaskType") rsUpdateTask.Fields("TaskFaults") = Request.Form("TaskFaults") rsUpdateTask.Fields("TaskLocation") = Request.Form("TaskLocation") rsUpdateTask.Fields("TaskCompleted") = Request.Form("TaskCompleted") rsUpdateTask.Fields("TaskDetails") = Request.Form("TaskDetails") rsUpdateTask.Fields("TaskItemsRequired") = Request.Form("TaskItemsRequired") rsUpdateTask.Fields("TaskAdminDetails") = Request.Form("TaskAdminDetails") rsUpdateTask.Fields("TaskAdminSetup") = Request.Form("TaskAdminSetup") rsUpdateTask.Update rsUpdateTask.Close Set rsUpdateTask = Nothing Response.Redirect "EditDetailedTask.asp?EditTask=" &TaskLookupID End if Set rsTaskLookup = Server.CreateObject("ADODB.Recordset") strTaskLookup = "SELECT * FROM TASKMAST WHERE TASKID =" & TaskLookupID rsTaskLookup.Open strTaskLookup, conn %> ID: <%=rsTaskLookup("TaskID")%>

Task Name: " name="TaskName">

Skill Level: " name="TaskLevel">

Type:

Status:

Objectives:
" name="TaskObjective">

Location:
" name="TaskLocation">

Point Value: " name="TaskValue">

Fault Value: " name="TaskFaults">

Task Details:
<%=rsTaskLookup("TaskDetails")%>

Items Required:
<%=rsTaskLookup("TaskItemsRequired")%>

Admin Details:
<%=rsTaskLookup("TaskAdminDetails")%>

Admin Setup:
<%=rsTaskLookup("TaskAdminSetup")%>