Web Development

Function ColumnsInTable(Connection, TableName)
Dim rst
On Error Resume Next
    Set rst = Connection.Execute("SELECT TOP 1 * FROM [" & TableName & "]")
    If rst Is Nothing Then
        ColumnsInTable = -1
    Else
        ColumnsInTable = rst.Fields.Count
        rst.Close
        Set rst = Nothing
    End If
End Function

Dim Connection
    Set Connection = Server.CreateObject("ADODB.Connection")
    Connection.Open "Your connection string here"

Dim iColumns
    iColumns = ColumnsInTable(Connection, "Your table name here")

    Response.Write "Table contains <b>" & iColumns & "</b> columns."

    Connection.Close
    Set Connection = Nothing

<% obj.save CStr(savedirectory) %>