<% Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DSN=127.0.0.1;UID=sa;PWD=1234;DATABASE=Test"
Set RS = Conn.Execute("select * from test") %>