Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Dim TextStream
Set TextStream = file.OpenAsTextStream(ForReading, _
TristateUseDefault)
Dim Line
' Read the file line by line
Do While Not TextStream.AtEndOfStream
Line = TextStream.readline
' Parse the line into "fields" eg with the split() function
'store the fields in a record set (below)
Loop
Set TextStream = nothing
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