<%@LANGUAGE="VBSCRIPT"%> <% fFecha = Date() nDiaHoy = Day(fFecha) nMesHoy = Month(fFecha) nAnioHoy = Year(fFecha) nDia = Day(fFecha) nMes = Month(fFecha) nAnio = Year(fFecha) Dim TmpProductos Dim TmpProductos_numRows Dim cSql Dim StrConn StrConn = "DSN=BaseIB" Set TmpProductos = Server.CreateObject("ADODB.Recordset") TmpProductos.ActiveConnection = StrConn cSql = "Select P.Id, P.Nombre, P.Rubro, P.Foto01_ch, P.Detalle, P.Link, P.Empresa From Productos P Where Activo = 2 and Empresa = 51 order by Rand()" TmpProductos.Source = cSql TmpProductos.CursorType = 0 TmpProductos.CursorLocation = 2 TmpProductos.LockType = 1 TmpProductos.Open() Dim Repeat1__numRows Dim Repeat1__index TmpProductos_numRows = 0 Repeat1__numRows = -1 Repeat1__index = 0 TmpProductos_numRows = TmpProductos_numRows + Repeat1__numRows 'Aqui van los que comercializan los productos Dim TmpEmpresas Set TmpEmpresas = Server.CreateObject("ADODB.Recordset") TmpEmpresas.ActiveConnection = StrConn cSql = "Select P.Empresa, P.Activo, E.Nombre From Productos P Inner Join Empresas E on E.Id = P.Empresa Where P.Activo = 2 and P.Empresa = 51 Group By P.Empresa Order By rand()" TmpEmpresas.Source = cSql TmpEmpresas.CursorType = 0 TmpEmpresas.CursorLocation = 2 TmpEmpresas.LockType = 1 TmpEmpresas.Open() nDistribuye = TmpProductos.Fields.Item("Empresa").Value Dim TmpDistri Dim TmpDistri_numRows Dim cSql2 Set TmpDistri = Server.CreateObject("ADODB.Recordset") TmpDistri.ActiveConnection = StrConn cSql2 = "Select * From Empresas Where Id = " + Replace(nDistribuye,"'","''") + " and Tipo = 1 Order By Tipo ASC" TmpDistri.Source = cSql2 TmpDistri.CursorType = 0 TmpDistri.CursorLocation = 2 TmpDistri.LockType = 1 TmpDistri.Open() Dim Repeat3__numRows Dim Repeat3__index TmpDistri_numRows = 0 Repeat3__numRows = -1 Repeat3__index = 0 TmpDistri_numRows = TmpDistri_numRows + Repeat3__numRows nDistri = TmpDistri.Recordcount Dim TmpComerPro Dim TmpComerPro_numRows Dim cSql3 Set TmpComerPro = Server.CreateObject("ADODB.Recordset") TmpComerPro.ActiveConnection = StrConn cSql3 = "Select Tipo, Provincia, IdDistribuye From Empresas Where IdDistribuye = " + Replace(nDistribuye,"'","''") + " and Tipo = 2 Group By Provincia Order By Tipo ASC, Provincia" TmpComerPro.Source = cSql3 TmpComerPro.CursorType = 0 TmpComerPro.CursorLocation = 2 TmpComerPro.LockType = 1 TmpComerPro.Open() Dim Repeat4__numRows Dim Repeat4__index TmpComerPro_numRows = 0 Repeat4__numRows = -1 Repeat4__index = 0 TmpComerPro_numRows = TmpComerPro_numRows + Repeat4__numRows 'nComer = TmpComerPro.Recordcount 'Aqui van los banners de eventos - Los que van arriba de todos - Los Eventos Dim nCntBanners nCntBanners = 0 Dim TmpBanners Set TmpBanners = Server.CreateObject("ADODB.Recordset") TmpBanners.ActiveConnection = StrConn cSql = "Select * From Banners Where activado = 2 and pagina = 1 and tipo = 1 Order By Id" TmpBanners.Source = cSql TmpBanners.CursorType = 0 TmpBanners.CursorLocation = 2 TmpBanners.LockType = 1 TmpBanners.Open() nCntBanners = TmpBanners.RecordCount Dim strBannerCar strBannerCar = "
" If nCntBanners >= 1 Then Dim bannercar() Redim bannercar(nCntBanners,4) i = 0 While Not TmpBanners.Eof bannercar(i,0) = TmpBanners.Fields.Item("banner").Value bannercar(i,1) = 300 bannercar(i,2) = 50 bannercar(i,3) = TmpBanners.Fields.Item("link").Value bannercar(i,4) = TmpBanners.Fields.Item("alt").Value i = i + 1 TmpBanners.MoveNext() Wend Randomize Second(Now) aleatorio = Int((i * Rnd)) strBannerCar = strBannerCar & "" strBannerCar = strBannerCar & "" & bannercar(aleatorio,4) & "
" End If strBannerCar = strBannerCar & "
" %> Nuevos Productos en InfoBiker - El Portal del Ciclismo Argentino
<%Response.write(strbannercar)%>

IB EspañaCalendario EspañaNoticiasCarteleraForo IBFotosVideosAudiosIB Argentina
<%While ((Repeat1__numRows <> 0) AND (NOT TmpProductos.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 TmpProductos.MoveNext() Wend TmpProductos.Close() Set TmpProductos = Nothing %>
 

 
">" width="130" align="absmiddle">
  <<- Volver

 

Contacto Mayorista
<%=TmpDistri.Fields.Item("Nombre").Value%>
<%=TmpDistri.Fields.Item("Domicilio").Value%>
<%=TmpDistri.Fields.Item("Localidad").Value%>
<%=TmpDistri.Fields.Item("Provincia").Value%>
<%=TmpDistri.Fields.Item("Telefono").Value%>
"><%=TmpDistri.Fields.Item("Mail").Value%>
 
 

 

Nuestro e-mail: info@infobiker.info -  Quiénes somos - Publicidad