Thank you all for your replying.
Here is the sample code:
<%
'Connect the Database
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "DSN=Test;UID=sa;PWD=;database=Northwind"
'SQL Command
SQL="Select CategoryName, CategoryID from Categories order by CategoryID"
'run SQL Command
Set RS=Conn.Execute(SQL)
'Appear result
Response.write "<table Align=center border=1 ...