<% intMarka = Request("intMarka") intUrunGrubuID = Request("intUrunGrubuID") intAltKategoriID = Request("intAltKategoriID") chrHasozen = Request("chrHasozen") chrKampanya = Request("chrKampanya") %> <% Set rstUrunler = CreateObject("ADODB.Recordset") strKayit = "SELECT tblUrun.intID, tblUrun.intUrunGrubu, tblUrun.strResimK," strKayit = strKayit & " tblUrun.strUrunAdi, " strKayit = strKayit & " tblUrun.strFiyat, tblUrun.strDoviz, tblUrun.strKdv,tblUrun.chkKampanya," strKayit = strKayit & " tblUrun.strKampanyaFiyat, tblUrun.strKampanyaDoviz, tblUrun.strKampanyaKdv" strKayit = strKayit & " FROM tblUrun " strKayit = strKayit & " where tblUrun.chrAktif='E'" if intUrunGrubuID<>"" then strKayit = strKayit & " and tblUrun.intUrunGrubu=" & intUrunGrubuID end if if intAltKategoriID<>"" then strKayit = strKayit & " and tblUrun.intAltKategori=" & intAltKategoriID end if if intMarka<>"" then strKayit = strKayit & " and (tblUrun.intUrunMarka= 4 or tblUrun.intUrunMarka=" & intMarka & ")" end if if chrHasozen<>"" then strKayit = strKayit & " and tblUrun.chkFirsat='" & chrHasozen & "'" end if if chrKampanya<>"" then strKayit = strKayit & " and tblUrun.chkKampanya=" & chrKampanya end if strKayit = strKayit & " order by tblUrun.strUrunAdi" rstUrunler.Open strKayit,strConStr',adOpenStatic,adLockOptimistic,1 if not rstUrunler.EOF then%> <% bgcolor="#E9E9E9" Dim i i=0 do while not rstUrunler.EOF i=i+1 if bgcolor="#E6E7E9" then bgcolor="#E9E9E9" else bgcolor="#E6E7E9" end if if i=1 then%> <%end if%> <% if i=2 then%> <% i=0 else%> <%end if%> <%rstUrunler.MoveNext loop if i=1 then%> <%end if%> <%else%> <%end if Set rstUrunler = nothing %>
<%if chrHasozen ="E" then%> KENDI IMALATLARIMIZ <%end if%> <%if intMarka<>"" then%> <%=fncBuyukTr(fncMarkaAdi(intMarka))%> <%end if%> <%if intUrunGrubuID<>"" then%> <%=fncBuyukTr(fncUrunGrubuAdi(intUrunGrubuID))%> <%end if%> <%if intAltKategoriID<>"" then%> <%=fncBuyukTr(fncAltKategoriAdi(intAltKategoriID))%> <%end if%>
<%if trim(rstUrunler("strResimK"))<>"" then%>
">/<%=rstUrunler("strResimK")%>" border="0" alt="<%=rstUrunler("strUrunAdi")%>">
<%else%>
<%end if%>
Seçtiginiz kategoriye ait bir ürünümüz bulunmamaktadir.