Dim objConn Set objConn = Server.CreateObject("ADODB.Connection") objConn.ConnectionString = "Provider=SQLOLEDB; Data Source=tcp:s24.winhost.com; Database=DB_52704_louis; User ID=DB_52704_louis_user; Password=MASH4o77" objConn.Open Dim SQL, objRec SQL = "SELECT Title from Book" Set objRec = objConn.Execute(SQL) While Not objRec.EOF Response.Write(objRec("Title")) objRec.MoveNext Wend objRec.Close Set objRec = Nothing