<% Dim cnOptOut Set cnOptOut = Server.CreateObject("ADODB.Connection") cnOptOut.Open "Provider=SQLOLEDB.1;Password=redbu11sql;Persist Security Info=True;User ID=bloggerheads-dba;Initial Catalog=bloggerheads;Data Source=localhost,1433;" %>