<%@ LANGUAGE="VBSCRIPT" %> Bienes Raices / Mazamitla
 
 
 

Restaurantes

  
 

Actividades

  
 

Comercio

  
 

Por qué venir a Mazamitla

  
 
<% Dim propvta() Dim M cadena="SELECT * FROM propvta WHERE estatus ='A' ORDER BY cve_msg;" Set SelBd = Server.CreateObject ("ADODB.Connection") SelBd.Open "DSN=BDMazamitlaPM;" Set rec0 = SelBd.Execute(cadena) If Not(rec0.bof) Then rec0.MoveFirst M=0 While Not rec0.EOF ReDim Preserve propvta(8,M+1) propvta(0,M) = cInt(rec0("cve_msg")) propvta(1,M) = Trim(rec0("desc_tit")) propvta(2,M) = Trim(rec0("desc_sup0"))&" "&Trim(rec0("desc_sup1")) propvta(3,M) = Trim(rec0("desc_loc0"))&" "&Trim(rec0("desc_loc1")) propvta(4,M) = Trim(rec0("desc_srv0"))&" "&Trim(rec0("desc_srv1")) propvta(5,M) = Trim(rec0("contacto")) propvta(6,M) = Trim(rec0("precio")) propvta(7,M) = Trim(rec0("gif1")) M = M + 1 rec0.MoveNext WEnd reg_propvta = M End If rec0.Close Set rec0 = Nothing For M = 0 to reg_propvta-1 %> <%Next%>
 

<%=propvta(1,M)%>

<%=propvta(2,M)%>

<%=propvta(3,M)%>

<%=propvta(4,M)%>

<%=propvta(5,M)%>

<%=propvta(6,M)%>

 

 

 

 

<% ' 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)%>
<%=empresas(0,2)%>
<%=empresas(1,2)%>
 <%=empresas(2,2)%> <%=empresas(3,2)%> 
 <%=empresas(4,2)%>
 <%=empresas(5,2)%>
   
<%=empresas(6,0)%> <%=empresas(7,0)%>/ <%=empresas(9,0)%> /