<% %> <% 'Abre conex„o OLE-DB Dim conn, rs set conn = server.createobject("adodb.Connection") conn.open DSNString %> TQM - Técnicas de Qualidade e Marketing
 
<% conn.close set conn = nothing %>