Movida Galega: locales

<% filas_pagina=8 Contador_filas=0 Function Final_pagina Final_pagina=False Contador_filas=Contador_filas+1 If Contador_filas>filas_pagina Then Final_pagina=True End If End Function var_zona=Request.QueryString("zona") ConsultaSQL="Select cod_local,nombre_local,im_logo,txt_intro,provincia,Locales.zona,txt_info,im_zona,link_info From Locales,Zonas Where Zonas.zona Like ('"&var_zona&"') and Locales.zona Like ('"&var_zona&"') Order By nombre_local" set RB=Conn.Execute(ConsultaSQL) num_pagina=Request.QueryString("pag") Consulta1SQL="Select Count(*) as num_registros From Locales Where zona Like ('"&var_zona&"')" set RB1=Conn.Execute(Consulta1SQL) num_reg=RB1("num_registros") paginas_totales=(num_reg \(filas_pagina*3)) If (num_reg Mod (filas_pagina*3)) <> 0 Then paginas_totales=paginas_totales+1 End if If num_pagina="" Then num_pagina=1 End If If num_pagina <> 1 then For i=1 to ((num_pagina-1)*(3*filas_pagina)) RB.Movenext Next End If If Not RB.Eof Then zona=RB("zona") url_im=obtener_url(RB("provincia"),RB("zona")) %>

<%=RB("zona")%>
www.movidagalega.com

<%'Tabla donde se incluirá la info de la zona%> <%textoZona=RB("txt_info")%> <%if (RB("im_zona")<>"") AND (textoZona<>"") Then %> <%nombre_foto_zona RB("im_zona"),url_im,fzona1,fzona2%>

" width="150" height="120">

<%=textoZona%>

<%if RB("link_info")<>"" Then %> " target=_blank class="linkzona">Más información turística en AGalicia.com <%end if %>

" width="150" height="120">

<%end if %>
<% If num_reg>filas_pagina*3 Then 'entra si en la consulta hay más locales de los que caben en una pagina %>

Más locales: <%If num_pagina>1 Then%> << Anterior <%End If For i=1 to paginas_totales If i=CInt(num_pagina) Then Response.write(num_pagina) Else%> <%=(i)%> <%End If Next If (CInt(num_pagina) Siguiente >> <%End If%>

<% End If%>
<% 'Sacamos los locales. While Not Final_pagina and Not RB.EOF If Not RB.EOF Then %> <% RB.Movenext If Not RB.EOF Then %> <% RB.Movenext If Not RB.EOF Then %> <% Else %> <% End If Else %> <% End If End If WEnd %>

"> " alt="<%=RB("nombre_local")%>"> "> <%=RB("nombre_local")%> <%=(Left(RB("txt_intro"),50)&"...")%>	"> " alt="<%=RB("nombre_local")%>"> "> <%=RB("nombre_local")%> <%=(Left(RB("txt_intro"),50)&"...")%>	"> " alt="<%=RB("nombre_local")%>"> "> <%=RB("nombre_local")%> <%=(Left(RB("txt_intro"),50)&"...")%> <%RB.Movenext%>

<% If num_reg>filas_pagina*3 Then 'entra si en la consulta hay más locales de los que caben en una pagina %>

<% End If Else %>

<%=(var_zona)%>
webmaster@movidagalega.com

No hay locales registrados en MovidaGalega en esta zona.

<% End If %>