% @ 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 %>
<%
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
%>