<% @ Language=VBScript %> <% Response.Expires = -1 Response.ExpiresAbsolute = Now() - 2 Response.AddHeader "pragma","no-cache" Response.AddHeader "cache-control","private" Response.CacheControl = "No-Store" Dim strSQL Dim rs Dim i Dim intID Dim strSQL1 Dim rs1 Dim strName Dim strTitle Dim strText Dim strFiyat Dim strAciklama Dim intI %> <% OpenDB %> Ürünlerimiz
image1

<% strSQL="SELECT * FROM SAYFA2" Set rs=objConnection.Execute(strSQL) If rs.EOF Then %> <% strTitle="Anasayfa" strText="" Else strTitle=rs("PageTitle") strText=rs("PageText") End If rs.Close Set rs=Nothing %>

<% set baglanti=server.createobject("adodb.connection") baglanti.open "provider=microsoft.jet.oledb.4.0;data source =" & Server.MapPath("veri/veri.mdb") %> <% kat=request.querystring("catno") set veri1 = Server.CreateObject("ADODB.Recordset") sql = "select * from URUNLER where KategoriId like '"&kat&"'" veri1.open sql,baglanti,1,3 %> <%s = 1 While Not veri1.EOF%> <%if s mod 3 = 0 then%> <%end if s = s + 1 veri1.MoveNext wend %>

" align="center"> " rel="example_group" title="(<%=veri1("UrunAd")%><%if not veri1("UrunFiyat")="" then%> - Fiyat: <%=formatnumber(veri1("UrunFiyat"))%> TL<%end if%>)
<%=veri1("UrunAciklama")%>"> <%=veri1(" src="urunler/<%=veri1("UrunResim")%>" border="0" height="124" width="182" style="border: 1px solid #808080 ; " >

" align="center">

&u=<%=veri1("UrunAd")%>" style="text-decoration: none; font-weight:700"> <%=veri1("UrunAd")%>
 
<%if not veri1("UrunFiyat")="" then%><%=formatnumber(veri1("UrunFiyat"))%> <%end if%>

Laminant Parke

içerik buraya eklenecek

Lamine Parke

içerik buraya eklenecek

Pvc Ürünler

içerik buraya eklenecek

Halı Grubu

içerik buraya eklenecek