www.pudn.com > 2003112315823.rar > userconn.inc

<% 
Dim MM_conn_STRING 
dim conn 
MM_conn_STRING = "Provider=SQLOLEDB;Data Source=hunter;Initial Catalog=finance;User ID=sa; Password=123456;" 
Set conn = Server.CreateObject("ADODB.Connection") 
conn.Open MM_conn_STRING 
%>