<% Set con = Server.CreateObject( "ADODB.connection" ) con.Open "dbcputun" con.Execute sqlstring con.close %>