|
|
|
|
|
|
<%
Set db=Server.CreateObject("ADODB.Connection")
db.Open "PROVIDER=MSDASQL;" & _
"DRIVER={Microsoft Access Driver (*.mdb)}; " & _
"DBQ=" & server.mappath("db/neutral.mdb")
%>
<%
Set Rs=Server.CreateObject("Adodb.Recordset")
sorgu="select top 6 * from album where onay=1 ORDER BY id DESC"
Rs. Open sorgu, db, 1, 3
for i=1 to Rs.pagesize
if Rs.eof then
exit for
end if
if i mod 2=1 then
response.write ""
end if
response.write " | "
Rs.movenext
if i mod 2=0 then
response.write "
"
end if
next %>
|
|
