<%
adParamInput = 1
adInteger = 3
adDate = 7
adBoolean = 11
adVarChar = 200
Set con = Server.CreateObject("ADODB.Connection")
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Databases\MSAccess\Test.mdb;User Id=Admin;Password=;"
' make all tasks completed that are completed
Set cmd = Server.CreateObject("ADODB.Command")
cmd.ActiveConnection = con
cmd.CommandText = "UPDATE worktasks SET completed = true WHERE completetime < NOW()"
cmd.Execute
Set cmd = Nothing
' insert new task
If Not Request.Form("name") Is Nothing Then
If Request.Form("name") <> "" Then
Set cmd = Server.CreateObject("ADODB.Command")
cmd.ActiveConnection = con
cmd.CommandText = "INSERT INTO worktasks VALUES(@nam,@cmplt,@tim)"
cmd.Parameters.Append(cmd.CreateParameter("@nam", adVarchar, adParamInput, 50))
cmd.Parameters.Append(cmd.CreateParameter("@cmplt", adBoolean, adParamInput))
cmd.Parameters.Append(cmd.CreateParameter("@tim", adDate, adParamInput))
cmd.Parameters("@nam") = Request.Form("name")
cmd.Parameters("@cmplt") = false
cmd.Parameters("@tim") = DateAdd("n", 3, Now()) ' <---- 3 minutes to completion
cmd.Execute
Set cmd = Nothing
End If
End If
' display completed tasks
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "SELECT name FROM worktasks WHERE completed",con
Response.Write "Completed:" & vbCrLf
Response.Write "" & vbCrLf
Do While Not rs.EOF
Response.Write "- " & rs("name") & "
" & vbCrLf
rs.MoveNext
Loop
Response.Write "
" & vbCrLf
rs.Close
' display tasks in progress
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "SELECT name,completetime FROM worktasks WHERE NOT completed",con
Response.Write "In progress:" & vbCrLf
Response.Write "" & vbCrLf
Do While Not rs.EOF
Response.Write "- " & rs("name") & " will be done in " & DateDiff("n", Now(), rs("completetime")) & " minutes
" & vbCrLf
rs.MoveNext
Loop
Response.Write "
" & vbCrLf
rs.Close
con.Close
Set rs = Nothing
Set con = Nothing
%>
Add: