Set rsFSO = Server.CreateObject("ADODB.Recordset")
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
'create a row with 3 fields
With rsFSO.Fields
.Append "Field1", adVarChar, 200
.Append "Field2", adDate
.Append "Field3", adInteger
End With
rsFSO.Open()
rsFSO.AddNew
rsFSO("Field1") = "Test"
rsFSO("Field2") = date()
rsFSO("Field3") = 100
rsFSO.Update