<% response.buffer=true ' ENTRADAS: ' tableName ==> El nombre de la tabla que se consulta ' porPagina ==> Número de tuplas a mostrar en cada iteración de la consulta ' start ==> Indica el número de tupla a partir del cual mostrar los resultados de la consulta. ' p ==> Nº Entero: Indica el nº de página de resultados que se ha clickeado. ' tipo_menu ==> Puede contener :"empresa", "producto" o "provincia", e indica cuando la consulta a ' realizar es de un tipo u otro. ' clave ==> Contiene la clave por la que se busca en la consulta a la BD ' nombre_empresa ==> Cadena: Contenido del campo del formulario con el mismo nombre ' nombre_producto ==> Cadena: Contenido del campo del formulario con el mismo nombre ' nombre_provincia ==> Cadena: Contenido del campo del formulario con el mismo nombre ' PROCESO ' Se realiza una consulta a BD para rellenar el listado de provincias del menú desplegable de provincias. ' Una vez preparado los formularios, en función del formulario el valor de la variable TIPO_MENU indica que se ' realice una u otra consulta. ' ' SALIDA ' Mostrar el resultado de una consulta a BD, más un pie de página con ' Establece el timeout a 3 minutos para las conexiones que son excesivamente lentas Server.ScriptTimeout = timeOutDB %>

País: ESPAÑA

SELECCIONE LA CÁMARA DE COMERCIO DIRECTAMENTE DESDE EL DESPLEGABLE:

<% tableName="camaras_comercio" ' Nombre de la tabla a la que consultar 'Lee el pais ' pais=request("pais") if (isEmpty(pais) or pais="") then pais="España" end if Dim nxt nxt=0 ' Creo el objeto para acceder al fichero de imagen del logo Set fs = CreateObject("Scripting.FileSystemObject") ' Establece la conexión con la BD Set conn = Server.CreateObject("ADODB.Connection") conn.Open StrConnAccessCamarasComercio 'Activa la conexión Set rs = Server.CreateObject("ADODB.RecordSet") rs.ActiveConnection = conn %>

<% if seleccion then response.write "" else %>

<% end if %>

O HAGA CLICK SOBRE LA PROVINCIA: