<% Dim conn Set conn = Server.CreateObject("ADODB.Connection") conn.Open "Provider=SQLOLEDB; Data Source = (local); Initial Catalog = Northwind; User Id = sa; Password=" If conn.errors.count = 0 Then Response.Write "Connected OK" End If %>