<%
Set db=Server.CreateObject("ADODB.Connection")
db.Open "PROVIDER=MSDASQL;" & _
"DRIVER={Microsoft Access Driver (*.mdb)}; " & _
"DBQ=" & server.mappath("yonetim/db/neutral.mdb")
%>
<%
Set rs = Server.CreateObject ("ADODB.RecordSet")
sql = " Select * from kategoriler"
rs.open sql,db,1,3
do while not rs.eof
%>
<%
rs.movenext
loop
rs.close
set rs=nothing
%>
<%
kategori=Request.Querystring("kategori")
Set Rs=Server.CreateObject("Adodb.Recordset")
sorgu="select * from album where kategori = '" & kategori & "' and onay=1 ORDER BY id DESC"
Rs. Open Sorgu, db, 1, 3
If rs.eof then
Response.Write "Veritabanında Henüz Kayıt Yok."
Response.End
End If
adet=rs.recordcount
shf = Request.QueryString("shf")
if shf="" then
shf=1
end if
%>
» Ürünler & Servis / <%=kategori%>
|
 |
|
