<%@ LANGUAGE="VBSCRIPT" %> Mazamitla  Pueblo Mágico

 

<% ' D a t o s E m p r e s a Dim empresas() Set selBd1 = Server.CreateObject ("ADODB.Connection") selBd1.Open "DSN=BDMazamitlaPM;" Set rec1 = selBd1.Execute("SELECT * FROM dempresa WHERE estatus = 'A';") If Not(rec1.EOF) Then rec1.MoveFirst P=0 While Not rec1.EOF ReDim Preserve empresas(11,P+1) empresas(0,P) = trim(rec1("nom_emp")) empresas(1,P) = trim(rec1("dir_emp")) empresas(2,P) = trim(rec1("cp_emp")) empresas(3,P) = trim(rec1("pob_emp")) empresas(4,P) = trim(rec1("tel_emp")) empresas(5,P) = trim(rec1("tel2_emp")) empresas(6,P) = trim(rec1("prop_emp")) empresas(7,P) = trim(rec1("der_emp")) empresas(8,P) = trim(rec1("mailw_emp")) empresas(9,P) = trim(rec1("descw_emp")) empresas(10,P)= trim(rec1("imagen")) P = P + 1 rec1.MoveNext WEnd regempresas=P End If rec1.Close Set rec1 = Nothing %>

<%=empresas(0,1)%>
<%=empresas(1,1)%>
 <%=empresas(2,1)%> <%=empresas(3,1)%> 
 <%=empresas(4,1)%>
 <%=empresas(5,1)%>

cuartoshotel.com

<%=empresas(0,2)%>
<%=empresas(1,2)%>
 <%=empresas(2,2)%> <%=empresas(3,2)%> 
 <%=empresas(4,2)%>
 <%=empresas(5,2)%>

elparaisodelasranas.com.mx
 
<%=empresas(6,0)%> <%=empresas(7,0)%>/ <%=empresas(9,0)%> /