<%on error resume next query="?" if request.QueryString("codigo")<>"" then codigo=replace(request.QueryString("codigo"),"'","''") where=where & " and codigo LIKE '%" & codigo & "%'" query=query & "codigo=" & replace(request.QueryString("codigo"),"'","''") & "&" end if if request.QueryString("marca")<>"" then marca=replace(request.QueryString("marca"),"''","'") where=where & " and (tensores.cod_marca = " & marca & ") " query=query & "marca=" & replace(request.QueryString("marca"),"'","''") & "&" end if if request.QueryString("ano")<>"" then ano=replace(request.QueryString("ano"),"''","'") 'where=where & " and ano LIKE '%" & ano & "%'" query=query & "ano=" & replace(request.QueryString("ano"),"'","''") & "&" end if if request.QueryString("modelo")<>"" then modelo=replace(request.QueryString("modelo"),"''","'") 'where=where & " and modelo LIKE '%" & modelo & "%'" query=query & "modelo=" & replace(request.QueryString("modelo"),"'","''") & "&" end if if len(where)<>0 then where="WHERE " & mid(where,5,len(where)) else where="0" end if SET DB2= Server.CreateObject ("ADODB.Connection") SET RS2= Server.CreateObject ("ADODB.RecordSet") DB2.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source='C:\Inetpub\vhosts\farodamientos.com.ar\httpdocs\db\newtensores.mdb'" SET DB3= Server.CreateObject ("ADODB.Connection") SET RS3= Server.CreateObject ("ADODB.RecordSet") DB3.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source='C:\Inetpub\vhosts\farodamientos.com.ar\httpdocs\db\newtensores.mdb'" %> <%if request.QueryString("Lang")="eng" then%>

Belt Tensioners

Fill the fields in blank as follows:

<% sql="SELECT * FROM Marcas ORDER BY Marca" RS.Open sql, DB, 3,3 %>
<% function iif(condicion,verdadero,falso) if condicion then iif = verdadero else iif = falso end function %>
<% 'Realizo la consulta de la búsqueda if where<>"0" then SQL= "SELECT * FROM Tensores inner join marcas on Marcas.cod_marca = Tensores.cod_marca " & where & " order by marca" else if request.QueryString("ano")<>"" or request.QueryString("modelo")<>"" then SQL= "SELECT * FROM Tensores inner join marcas on Marcas.cod_marca = Tensores.cod_marca" else SQL="SELECT * FROM Tensores WHERE 1=2" end if end if if request.QueryString("ver")="See All" then SQL= "SELECT * FROM Tensores inner join marcas on Marcas.cod_marca = tensores.cod_marca" RS.Open SQL, DB, 3,3 'if RS.recordcount<>0 then %> <% 'resultados=RS.recordcount 'end if if not rs.eof then %> <% i=0 while not RS.eof if request.QueryString("modelo")<>"" then Sql2 = "Select modelos.modelo,tenmod.codten,modelos.cod_modelo from Tenmod inner join modelos on tenmod.Cod_Modelo = modelos.Cod_Modelo where tenmod.Codten=" & Rs("codten") & " And modelos.cod_modelo = " & modelo else Sql2 = "Select modelos.modelo,tenmod.codten,modelos.cod_modelo from Tenmod inner join modelos on tenmod.Cod_Modelo = modelos.Cod_Modelo where tenmod.Codten=" & Rs("codten") End if if request.QueryString("ano")<>"" then Sql3 = "Select * from Tenyear inner join years on Years.cod_year = Tenyear.cod_year where tenyear.Codten = " & rs("codten") & " and Toshi like '%" & ano & "%'" 'response.write(Sql3) else Sql3 = "Select * from Tenyear inner join years on Years.cod_year = Tenyear.cod_year where tenyear.Codten = " & rs("codten") s2=1 end if rs3.open Sql3 ,db3 ,3 ,3 Rs2.open Sql2 ,db2 ,3 ,3 if (not rs2.eof and s2=1) or ( not (rs2.eof or rs3.eof)) then S=1 Filename = Server.MapPath(".\tensores\" & RS("codTen") & ".jpg") Set fs = CreateObject("Scripting.FileSystemObject") If fs.FileExists(filename) Then foto="
Enlarge
" else foto="No Picture" end if if i=1 then c=" class='c'" i=0 else c="" i=1 end if %> > <% end if rs3.close rs2.close RS.movenext wend RS.Close %>
Picture Code Maker Year Model Description
<%=foto%>  <%=RS("Codigo")%>  <%=RS("Marca")%>  <%=RS("descripcion")%> 
<% end if if s=1 then %> <% end if else%>

Tensores

Complete cualquiera de los campos que aparecerán a continuación para encontrar lo que está buscando. Por favor, haga la búsqueda con todas las equivalencias posibles.

<% sql="SELECT * FROM Marcas ORDER BY Marca" RS.Open sql, DB, 3,3 %>
<% function iif(condicion,verdadero,falso) if condicion then iif = verdadero else iif = falso end function %>
<% 'Realizo la consulta de la búsqueda if where<>"0" then SQL= "SELECT * FROM Tensores inner join marcas on Marcas.cod_marca = Tensores.cod_marca " & where & " order by marca" else if request.QueryString("ano")<>"" or request.QueryString("modelo")<>"" then SQL= "SELECT * FROM Tensores inner join marcas on Marcas.cod_marca = Tensores.cod_marca" else SQL="SELECT * FROM Tensores WHERE 1=2" end if end if if request.QueryString("ver")="Ver Todos" then SQL= "SELECT * FROM Tensores inner join marcas on Marcas.cod_marca = tensores.cod_marca" RS.Open SQL, DB, 3,3 'if RS.recordcount<>0 then %> <% 'resultados=RS.recordcount 'end if if not rs.eof then %> <% i=0 while not RS.eof if request.QueryString("modelo")<>"" then Sql2 = "Select modelos.modelo,tenmod.codten,modelos.cod_modelo from Tenmod inner join modelos on tenmod.Cod_Modelo = modelos.Cod_Modelo where tenmod.Codten=" & Rs("codten") & " And modelos.cod_modelo = " & modelo else Sql2 = "Select modelos.modelo,tenmod.codten,modelos.cod_modelo from Tenmod inner join modelos on tenmod.Cod_Modelo = modelos.Cod_Modelo where tenmod.Codten=" & Rs("codten") End if if request.QueryString("ano")<>"" then Sql3 = "Select * from Tenyear inner join years on Years.cod_year = Tenyear.cod_year where tenyear.Codten = " & rs("codten") & " and Toshi like '%" & ano & "%'" 'response.write(Sql3) else Sql3 = "Select * from Tenyear inner join years on Years.cod_year = Tenyear.cod_year where tenyear.Codten = " & rs("codten") s2=1 end if rs3.open Sql3 ,db3 ,3 ,3 Rs2.open Sql2 ,db2 ,3 ,3 if (not rs2.eof and s2=1) or ( not (rs2.eof or rs3.eof)) then S=1 Filename = Server.MapPath(".\tensores\" & RS("codTen") & ".jpg") Set fs = CreateObject("Scripting.FileSystemObject") If fs.FileExists(filename) Then foto="
Agrandar
" else foto="SIN FOTO" end if if i=1 then c=" class='c'" i=0 else c="" i=1 end if %> > <% end if rs3.close rs2.close RS.movenext wend RS.Close %>
Foto Código Marca Año Modelo Descripción
<%=foto%>  <%=RS("Codigo")%>  <%=RS("Marca")%>  <%=RS("descripcion")%> 
<% end if if s=1 then %> <% end if end if if err<>0 then response.Write(err.description) end if %>