Sub readDescriptions 'Read all file descriptions in publish.mdb
Dim strProvider, sql, rs, n, i
strProvider="DRIVER=Microsoft Access Driver (*.mdb); DBQ=publish.mdb;"
Set conn = Server.CreateObject("ADODB.Connection")
conn.open strProvider,"",""
sql = "SELECT FileList.FileName, FileList.FileDescription, FileList.FilePath FROM FileList ORDER BY FileList.FileName"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3, 3
If not rs.EOF Then
rs.movelast
n = rs.recordcount - 1
rs.movefirst
For i = 0 to n
strDisplay = strDisplay + rs.Fields("FileName").Value + " " + rs.Fields("FileDescription").Value + semiColon
rs.movenext
Next
End If
End Sub