<% Response.CodePage = 65001 Response.CharSet = "utf-8" dim conn dim conn_string Set conn=server.createobject ("adodb.connection") conn.open "driver={MySQL ODBC 3.51 Driver};server=localhost;uid=esig;pwd=EntornoSIG2008;database=imefe" set rs2=server.createobject("adodb.recordset") rs2.activeconnection = conn strQuery2 = "SELECT * FROM sectoresactividad" Set RS2 = conn.Execute(strQuery2) set rs=server.createobject("adodb.recordset") rs.activeconnection = conn strQuery = "SELECT * FROM empresas ORDER BY nombre_comercial" Set RS = conn.Execute(strQuery) %> ::IMEFE JAÉN::