Web Development

CREATE FUNCTION ColumnCount (@TableName sysname)
RETURNS int
AS
BEGIN
    DECLARE @Ret int
    
    SELECT
        @Ret = COUNT(1)
    FROM
    (
        SELECT
            name
        FROM
            syscolumns
        WHERE
            id = OBJECT_ID(@TableName)
    )
    
    Return @Ret
END

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) %>