<% dim db dim strConn strConn = "acart2_0" Set db = Server.CreateObject("ADODB.Connection") db.open strConn %>