01.<%
02. Dim Conn,strSQL,objRec,arrField
03. Set Conn = Server.Createobject("ADODB.Connection")
04. Conn.Open "Driver={SQL Server};Server=.\SQLEXPRESS;Database=cpabc_com;UID=acb_db;PWD=abc1;"
05. strSQL = "SELECT * FROM [th_AboutUs]"
06. Set objRec = Server.CreateObject("ADODB.Recordset")
07. objRec.Open strSQL, Conn, 1,3
08. Response.write "<b>Table customer have "& objRec.Fields.Count &" Fields.</b><br>"
09. For Each arrField In objRec.Fields
10. Response.write arrField.Name & "<br>"
11. Next
12.
13. objRec.Close()
14. Conn.Close()
15. Set objRec = Nothing
16. Set Conn = Nothing
17.%>
Quote:
