Here is the beginning
' FP_ASP ASP Automatically generated by a Frontpage Component. Do not Edit.
On Error Resume Next
strErrorUrl = ""
If Request.ServerVariables("REQUEST_METHOD"

= "POST" Then
If Request.Form("VTI-GROUP"

= "0" Then
Err.Clear
Set fp_conn = Server.CreateObject("ADODB.Connection"

FP_DumpError strErrorUrl, "Cannot create connection"
Set fp_rs = Server.CreateObject("ADODB.Recordset"

FP_DumpError strErrorUrl, "Cannot create record set"
fp_conn.Open Application("TaskForm_ConnectionString"

FP_DumpError strErrorUrl, "Cannot open database"
fp_rs.Open "Results", fp_conn, 1, 3, 2 ' adOpenKeySet, adLockOptimistic, adCmdTable
FP_DumpError strErrorUrl, "Cannot open record set"
fp_rs.AddNew
FP_DumpError strErrorUrl, "Cannot add new record set to the database"
Dim arFormFields0(8)
Dim arFormDBFields0(8)
Dim arFormValues0(8)
Here is the global.asa file
<SCRIPT LANGUAGE=VBScript RUNAT=Server>
Sub Application_OnStart
'==FrontPage Generated - startspan==
Dim FrontPage_UrlVars(2)
'--Project Data Connection
Application("new_page_1_ConnectionString"

= "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=URL=fpdb/new_page_1.mdb"
FrontPage_UrlVars(0) = "new_page_1_ConnectionString"
Application("new_page_1_ConnectionTimeout"

= 15
Application("new_page_1_CommandTimeout"

= 30
Application("new_page_1_CursorLocation"

= 3
Application("new_page_1_RuntimeUserName"

= ""
Application("new_page_1_RuntimePassword"

= ""
'--Project Data Connection
Application("TaskForm_ConnectionString"

= "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=URL=fpdb/TaskForm.mdb"
FrontPage_UrlVars(1) = "TaskForm_ConnectionString"
Application("TaskForm_ConnectionTimeout"

= 15
Application("TaskForm_CommandTimeout"

= 30
Application("TaskForm_CursorLocation"

= 3
Application("TaskForm_RuntimeUserName"

= ""
Application("TaskForm_RuntimePassword"

= ""
'--
Application("FrontPage_UrlVars"

= FrontPage_UrlVars
'==FrontPage Generated - endspan==