<% Dim conn Set conn = server.CreateObject("ADODB.Connection") conn.Open strConn %>