<%@ LANGUAGE="VBSCRIPT" %> Mazamitla Pueblo Magico
 

Alojamiento del Mes

villaelrincon.com.mx

 Villa el Rincón
Es la opción ideal de descanso y esparcimiento el pié de la Montaña en nuestro Precioso Pueblo. Contamos con todo lo necesario para garantizar una estancia inolvidable.

Evento del Mes

Fiestas Patrias

 
<% ' P u b l i c i d a d P a t r o c i n a d o r e s Dim img() cadena = "SELECT * FROM imgpube WHERE (startdate <= {"&date()&"} AND enddate => {"&date()&"} AND clicks < maxclicks AND displays < maxdisplay) ORDER BY id;" Set imgBD = Server.CreateObject ("ADODB.Connection") imgBD.Open "DSN=BannersMazamitlaPM;" Set img1 = imgBD.Execute(cadena) If Not(img1.EOF) Then img1.MoveFirst N=0 While Not img1.EOF ReDim Preserve img(5,N+1) img(0,N) = cInt(img1("id")) img(1,N) = Trim(img1("name")) img(2,N) = Trim(img1("desc_img")) img(3,N) = Trim(img1("gif")) img(4,N) = Trim(img1("url_gif")) imgBD.Execute("UPDATE imgpube SET displays=displays + 1 WHERE id="& img(0,N) &";") N = N + 1 img1.MoveNext WEnd End If img1.Close Set img1 = Nothing Randomize() aleatorio = Int((4 * Rnd)+1) Select case aleatorio Case 1 inicio = N-1 final = 0 varia = -1 Case 2 inicio = 0 final = N-1 varia = 1 Case 3 inicio = 0 final = N-1 varia = 2 Case 4 inicio = N-1 final = 0 varia = -2 End Select For I = inicio To final step varia %> <% Next %>

<%If aleatorio = 3 AND I <> 0 Then%> <%End If%> <%If aleatorio = 4 AND I <> N-1 Then%> <%End If%>

<% ' E n c u e s t a userip = Request.ServerVariables("REMOTE_ADDR") fecha=Date tmpfecha = Month(fecha)&"/"&Day(fecha)&"/"&Year(fecha) cadena="SELECT * FROM vota WHERE estatus='A' AND startdate <= {"&tmpfecha&"} AND enddate => {"&tmpfecha&"};" Set selBd1 = Server.CreateObject ("ADODB.Connection") selBd1.Open "DSN=BDMazamitlaPM;" Set rec1 = selBd1.Execute(cadena) If Not(rec1.EOF) Then rec1.MoveFirst cve_vota = Trim(rec1("cve_vota")) desc_vota = Trim(rec1("desc_vota")) preg_vota = Trim(rec1("preg_vota")) res1_vota = Trim(rec1("res1_vota")) res2_vota = Trim(rec1("res2_vota")) res3_vota = Trim(rec1("res3_vota")) res4_vota = Trim(rec1("res4_vota")) res5_vota = Trim(rec1("res5_vota")) End If rec1.Close Set rec1 = Nothing vota = 0 %>

Encuesta
<%=preg_vota%>
method=get> > > > > > > > > >

<% If Len(Trim(res1_vota)) > 0 Then %> <%=res1_vota%>
<% End If If Len(Trim(res2_vota)) > 0 Then %> <%=res2_vota%>
<% End If If Len(Trim(res3_vota)) > 0 Then %> <%=res3_vota%>
<% End If If Len(Trim(res4_vota)) > 0 Then %> <%=res4_vota%>
<% End If If Len(Trim(res5_vota)) > 0 Then %> <%=res5_vota%>
<% End If %>

Historico

 

 

DIRECTORIO
Presidencia Municipal

01(382)538-01-49
Auto-Transportes Mazamitla

01 (382) 538-04-10
IMSS

01(382)538-03-50
Centro de Salud S.S.A

01(382)538-04-30
Policía Municipal

01(382)538-02-02
 

 

<% ' 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)%>


elparaisodelasranas.com.mx

<%=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)%> /