<% Dim IdiomaPag IdiomaPag="es" Dim strSQL Dim objCn 'conecto la DB cuando haga falta Dim objRs Set objRs = Server.CreateObject ("ADODB.Recordset") Call ConectarDb Dim strUrl strUrl = Request.ServerVariables("URL") strUrl = Cstr(Mid(strUrl,2,4)) Dim arrImagenes, contador, z, y, bolEncontrado, maxImagenID Dim strNombreProducto_es, strImagen, curPrecio, ProductoID strSQL = " SELECT ImagenID FROM tGaleria ORDER BY intOrder DESC" objRs.Open strSQL, objCn arrImagenes = objRs.GetRows objRs.Close contador = UBound(arrImagenes,2)+1 strSQL = " SELECT MAX(ImagenID) FROM tGaleria " objRs.Open strSQL, objCn maxImagenID = objRs(0) objRs.Close y = 0 Do While not bolEncontrado Randomize y = int((maxImagenID * Rnd)+1) z = 0 Do While z < contador if Cint(arrImagenes(0,z)) = CInt(y) then bolEncontrado = True Exit Do Else bolEncontrado = False End if z = z + 1 Loop Loop strSQL = " SELECT * FROM tGaleria WHERE ImagenID = " & y objRs.Open strSQL, objCn strImagen = objRs("strImagen") strDescripcion_es = objRs("strDescripcion_es") objRs.Close Dim arrImagenesPequenyo(2) strSQL = " SELECT ImagenID, strImagen, strDescripcion_es FROM tGaleria WHERE ImagenID <> " & y & " ORDER BY intOrder DESC" objRs.Open strSQL, objCn arrImagenes = objRs.GetRows objRs.Close contador = UBound(arrImagenes,2)+1 Dim n, bolDuplicado, contBucle 'if cont < 4 then ' contBucle = cont 'Else contBucle = 2 'End if n = 0 Do While n < contBucle Randomize y = int((maxImagenID * Rnd)+1) z = 0 Do While z < contador if Cint(arrImagenes(0,z)) = CInt(y) then bolEncontrado = True Exit Do Else bolEncontrado = False End if z = z + 1 Loop z = 0 if bolEncontrado then if n < contador then Do while z < contBucle if arrImagenesPequenyo(z) = y then bolDuplicado = True exit do End if z = z + 1 Loop Else bolDuplicado = False End if if not bolDuplicado then arrImagenesPequenyo(n) = y n = n + 1 Else bolDuplicado = False End if End if Loop %> Club Rugby Seminario Tarazona
<% strSQL="SELECT TOP 2 * FROM tNoticias WHERE bolAprobada=True ORDER BY intOrden DESC,datFecha DESC" objRs.Open strSQL, objCn if not objRs.EOF then %> <% Dim cont cont = 0 Do While not objRs.EOF cont = cont + 1 %> <% if cont<>1 then %> <%end if%> <%objRs.MoveNext Loop %> <% End if objRs.Close %> <% n = 0 Do While n < contBucle strSQL = " SELECT * FROM tGaleria WHERE ImagenID = " & arrImagenesPequenyo(n) objRs.Open strSQL, objCn n = n + 1 %> <% if n MOD 2 =0 then %> <% end if objRs.Close Loop %>
<%=UCase(":: Últimas noticias en RugbyTarazona.com")%>
<%if objrs("strImagen")<>"" then %>
" width="165" alt="" style="border: 1px solid #6699CC">
<%end if%> " class="text"><%=objRs("strTitulo_es")%>

<%=PonerBr(objRs("strCabecera_es"))%>
[Ver todas las noticias] 
<%=UCase(":: Algunas imágenes del club")%>
" class="text"><%= objRs("strDescripcion_Es") %>
" class="text">" width="226" alt="<%=objRs("strDescripcion_Es")%>" border="0">
[Ver galeria de imágenes]